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CHAPTER  I 


INTRODUCTION 


I 


INTRODUCTION 


Volume  II  of  the  documentation  of  the  GLAS  fourth  order  general  circulation 
model  contains  compiler  listings  of  the  scalar  version  of  the  model  for  the 
CYBER  205  computer  system.  At  the  time  of  this  work  the  FORTRAN  compiler  in 
use  at  the  NASA  High  Speed  Computing  Facility  was  Version  2.0  Cycle  VK2G. 

The  FORTRAN  language  for  the  CYBER  200  series  contains  both  Control  Data 
Corporation  and  unique  CYBER  200  extensions  to  the  standard  FORTRAN  (American 
National  Standards  X3.9— 1966).  These  extensions  allow  the  FORTRAN  user  to 
take  full  advantage  of  the  vector  processing  architecture  of  the  computer. 

The  code  contained  herein  however,  makes  no  use  of  the  unique  CYBER  200 
extensions  and  is  therefore  refered  to  as  scalar.  As  a consequence,  the 
program  is  suboptimal  with  regard  to  computational  speed  but  offers  the 
intended  advantages  of  portability  to  an  Amdahl  470-equivalent  computer  and 
of  allowing  investigators  with  scant  familiarity  of  vector  syntax  to  adapt 
the  code  in  conventional  FORTRAN. 

It  should  be  noted  that  the  scalar  code  presented  here  and  the  vectorized 
code  presented  in  Volume  III  are  identical  in  the  sense  that  zero  differences 
are  obtained  on  all  prognostic  and  diagnostic  quantities  after  three  simulated 
hours  of  integration. 

Chapter  II  contains  a dictionary  of  the  FORTRAN  variables  used  in  the 
scalar  version  of  the  model.  For  each  variable,  a brief  description  is  provided 
along  with  the  units,  common  block,  if  any,  where’ the  variable  is  included,  and 
the  subroutine(s)  where  the  variable  appear(s). 

Chapter  III  contains  the  listings  of  the  FORTRAN  code  compiled  with  the 
"C"  option.  As  a result,  cross  reference  maps  of  local  variables  are  included 
for  each  subroutine. 
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VARIABLE  LIST  OF  THE  GLA5  4TH-0RDER  MODEL 


A 


VARIABLE 

COMMON 

SU8RTN 

VARIABLE  DESCRIPTION 

A 

FILFFT 

ARRAY  TO  FILTER. 

i 

2 

AAA 

COMP  3 

LOCAL  TEMPORARY  VARIABLE. 

■ ] 

? 0 

ACLEAR 

D5DLAR 

SOLAR  1 

INCIDENT  SOLAR  RADIATION  MULTIPLIED  BY 

1 

to 

FRACTIONAL  CLEAR  AREA. 

n 

ACLOUD 

DSOLAR 

SOLAR  1 

INCIDENT  SOLAR  RADIATION  MULTIPLIED  BY 

to 

FRACTIONAL  CLOUDY  AREA. 

i 

D 

ADATE 

CU7CHK 

CONTAINS  MM/DO/YY. 

AOATE 

CCNTRL 

GWSGCM 

MM/DD/YY  FOR  CURRENT  RUN. 

l J 

2 

ADLDP 

RDPARM 

COMP2 

SPHERICAL  COORDINATE  SCALING  FACTOR. 

p-  ■ ! 

Q 

DEPEND 

ADLDPS 

COMP  2 

SPHERICAL  COORDINATE  SCALING  FACTOR . 

L‘  ! 

AG 

LINKHO 

TEMPORARY  VARIABLE  USED  IN  FLUX  QUADRATURE. 

I 

> 

AL 

03 1 NT 

LOCAL  TEMPORARY  VARIABLE. 

»• 

O 

AL 

RADCOM 

SOLAR  1 

USED  IN  THE  CALCULATION  OF  ABSORBED  SOLAR 

t=i 

CLOUDS 

RADIATION  IN  CLEAR  AND  CLOUDY  SKIES. 

5;t.‘  ■ 

ALBDOI 

MNTHLY 

DAILY 

MONTHLY  DATA  FIELD. 

tod 

ALBD02 

MNTHLY 

DAILY 

MONTHLY  DATA  FIELD, 

i— » 

ALBEDO 

QANDQT 

DAILY 

MODEL  ALBEDO  FIELD. 

£ 

RADIO 

,, 

AOZONE 

STAT  FUNC 

SOLAR  1 

FUNCTION  USED  TO  OBTAIN  ABSORPTION  OF 

■V 

s 

SOLAR  RADIATION  DUE  TO  OZONE. 

aphel 

RCNTRL 

daily 

DAY  OF  YEAR  OF  EARTH'S  APOGEE. 

Lv\ 

APRI 

LINKHO 

TEMPERATURE  CORRECTION  TO  THE  OPTICAL  DEPTH 

2 

OF  WATER  VAPOR, 

O 

AS 

RADCOM 

C0MP3 

ABSORBED  SOLAR  RADIATION, 

* 

>-4 

RADIO 

i V 

wl 

SOLAR  1 

■> 

»xj 

ASGL 

C0MP3 

1 . / DSIG ( L I 

ASGLM1 

C0MP3 

1 . /DSIG  f LM1  ) 

F 

E 

ATI  ME 

CUTCHK 

HH/MM/SS 

1 w 

ATIME 

CCNTRL 

GWSGCM 

HH/MM/SS  FOR  CURRENT  RUN. 

1 

& 

AV 

LINKHO 

TEMPORARY  VARIABLE  USED  FOR  VARIOUS  THINGS. 

u 

w 

AVI 

LINKHO 

TEMPORARY  VARIABLE  USED  FOR  VARIOUS  THINGS. 

r A 

■ 

AWATER 

STAT  FUNC 

SOLARt 

FUNCTION  USED  TO  OBTAIN  ABSORPTION  OF  SOLAR 

r V 

CLOUDS 

RADIATION  DUE  TO  WATER  VAPOR, 

S k 

BB 

LINKHO 

PLANCK  FUNCTION  EVALUATED  AT  A GIVEN 

F.I 

RAD  I AT I DN  MODEL  LEVEL. 

It 

EBB 

C0MP3 

LOCAL  TEMPORARY  VARIABLE. 

1 

BB  1 

LINKHO 

PLANCK  FUNCTION  EVALUATED  AT  t MB  LEVEL. 

5 

BETA 

RCNTRL 

SMS HAP 

MOIST  ADIABATIC  LAPSE  RATE. 

BG 

LINKHO 

PLANCK  FUNCTION  EVALUTATED  A T THE  GROUND, 

t ' 

BLANK 

DEFALT 

CHARACTER  ARRAY  CONTAINING  BLANKS. 

* , 

BPRI 

LINKHO 

TEMPERATURE  CORRECTION  TO  THE  OPTICAL  DEPTH 

[ * 

OF  WATER  VAPOR. 

F 1 

C 

LINKHO 

CONSTANTS  USED  IN  CURTI S -GOODSON 

APPROXIMATION. 

L ' ! 

CA 

COMMON 

CONHTR 

CHARACTER  ARRAY  FOR  HISTORY  HEADER. 

i f i 

CAP 

LINKHO 

CORRECTED  SPECIFIC  HUMIDITY. 

: * 

CAPPS! 

L INKHO 

COEFFICIENT  USED  TO  GET  CORRECTED  SPECIFIC 

i i 

HUMIDITY. 

CAP  t 

LINKHO 

INTERPOLATION  COEFFICIENT 

r 1 

* 

CAP2 

LINKHO 

INTERPOLATION  COEFFICIENT 

\ 

CARD 

COMMON 

INPUT 

WORK  SPACE  TO  READ  INPUTZ  NAMELIST. 

\ '■ 

CATA 

COMMON 

AVR  X 

TEMPORARY  USED  TO  COMPUTE  SEA  LEVEL  PRESSURE 

1 i 

SMSHAP 

cc 

CCNTRL 

CONHTR 

ARRAY  OF  CHARACTER  VARAIBLE5  ON  MODEL 

{J  • 

IOQ 

HISTORY  RECORD. 

|’  , 

ccc 

C0MP3 

LOCAL  TEMPORARY  VARIABLE. 

li 

CD 

DCOMP3 

COMP3 

SURFACE  DRAG  COEFFICIENT. 

I; 
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CDATE 

CDATE I 
CDATE J 
CDAY 
CDC 
CDFR 

CDXL 

CDXO 

CG 

CLEAR 

CLH 

CLOUD 

CLOUDY 

CM 

CMASS 

CM  I 
CM  I 1 
CNUCUB 
CPE 

CDEF 

COEFS 

COLMR 
CONT 
CONTI 
CONT2 
CON  V 

CONI 

CON2 

CONS 

CON4 

CON  IDT 

CON2DT 

C0N3DT 

CON4DT 

CON5 

COSD 

COSd 


R A DCOM 


cntrlp 

CNTRLP 

CNTRLP 

DSOLAR 

CNTRLP 

RADCOM 

DSOLAR 


CNTRLP 

CNTRLP 

CNTRLP 

DC0MP3 

QMSAVE 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RCNTRL 


QZONE2 

0Z0NE2 

OZDNfci 

OZONE2 

CONHTR 

COMP3 

CON5TA 

COMP  3 

CONSTA 

COMP  3 

CONSTA 

LINKHO 

SOLAR  1 

CLOUDS 

C0MP3 

CONSTA 

CUMULO 

COMP  3 

CUMULO 

LINKHO 

SOLAR  1 

SOLA  R 1 

LINKHO 

CONSTA 

LINKHO 

LINKHO 

LINKHO 

COMPS 

CONSTA 

CONSTA 

COMP  3 

CONSTA 

COMPS 

LINKHO 

LINKHO 

LINKHO 

COMP  t 

VERT 

COMPO 

COMP  1 

DEPEND 

VERT 

COMPO 

COMP  1 

DEPEND 

VERT 

CQMPO 

DEPEND 

COMPO 

DEPEND 

COMPO 

COMP  1 

COMPO 

COMP  1 

COMPO 

C0MP2 

COMPO 

C0MP2 

C0MP2 

DEPEND 

VERT 

COMP3 

DAILY 

DEFALT 

FMEAN 


CALENDAR  DAY  ASSOCIATED  WITH  THE  FOUR 
SEASONS* 

CALENDAR  DAY  LIMIT  USED  IN  INTERPOLATiON ♦ 
CALENDAR  DAY  LIMIT  USED  IN  INTERPOLATION* 
CALENDAR  DAY* 

STRING  REPRESENTING  CDC  READABLE  RECORDS* 
FRICTIONAL  WIND  SHEAR  ADJUSTMENT  PARAMETER. 

DRAG  COEFFICIENT  ADJUSTMENT  PARAMETER  OVER 
LAND 

DRAG  COEFFICIENT  ADJUSTMENT  PARAMETER  OVER 
OCEANS. 

LOGICAL  VARIABLE  WHICH  IS  TRUE  IF  NO  CLOUDS 
ARE  PRESENT. 

RATIO  OF  LATENT  TO  SPECIFIC  HEAT. 


VARIABLE  REPRESENTING  EXISTING  CLOUD  TYPES. 


LOGICAL  VARIABLE  WHICH  IS  TRUE  IF  CLOUDS 
ARE  PRESENT. 

USED  IN  CALCULATION  OF  THE  OPTICAL  DEPTH 
OF  WATER  DIMER. 

10  X MASS  OF  A COLUMN  OF  AIR  EXTENDING 
TO  SEA  LEVEL  PRESSURE. 

SAME  AS  CM* 

SAME  AS  CM* 

PARAMETER  USED  IN  PLANCK  * S FUNCTION* 
TEMPERATURE  CHANGE  RESULTING  FROM  AN  INPUT 
OF  ONE  CALORIE  TO  A GIVEN  LAYER  L OF  A 
UNIT  COLUMN  OF  AIR. 

TEMPERATURE  CHANGE  RESULTING  FROM  IN  INPUT 
OF  ONE  CALORIE  TO  A UNIT  COLUMN  OF  AIR. 
PARAMETERIZED  CONSTANT. 

COLUMN  MASS  RATIO. 

USED  IN  WATER  DIMER  CALCULATION* 

USED  IN  WATER  DIMER  CALCULATION* 

USED  IN  WATER  DIMER  CALCULATION, 

MASS  CONVERGENCE  AT  A GIVEN  LEVEL* 

CONSTANT  USED  IN  POLE  EQUATIONS. 


CONSTANT  USED  IN  POLE  EQUATIONS. 


CONSTANT  USED  IN  POLE  EQUATIONS. 
CONSTANT  USED  IN  POLE  EQUATIONS. 
CONI  * DT. 


CQN2  * DT. 


CON3  * DT. 
CON4  - DT, 


SCALING  CONSTANT. 


COSINE  OF  5GLAR  DECLINATION* 

USED  IN  COMPUTING  WEIGHT  FUNCTION  FOR 
GLOBAL  AVERAGES. 
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COSL 

COSLON 


COSMAG 

COSROT 

cosz 

CP 

CPD2 
CPP 
ca  tp 

CQ3P 

CQ5P 

CTID 

CTIN 


CTINF 

CTRAN5 

CT1P 

CT3P 

CT5P 

OUMDAY 

CUMRAT 


CUTOFF 

CVQ 

CVQ1P 

CVQ3P 

CVQ5P 

CVT 

CVT1P 

CVT3P 

CVT5P 

cx 

CXD 

CXL 

CY 

CZFAC 

c zn 
cto 
Cl  o.o 

C40 

D 


RDP ARM 
RDPARIW 


DSOLAR 

CNTRLP 

RADCOM 

rcntrl 

FlDP  ARM 
CNTRLP 

CNTRLP 


CNTRLP 

CNTRLP 

RADCOM 

DCUMU 

DCUMU 

DCUMU 

RADCOM 

DCUMU 

DCUMU 

DCUMU 

RADCOM 

RADCOM 

CNTRLP 

CNTRLP 

CNTRLP 


DEPEND 

SOLAR  t 

COMP  1 

COMP  2 

DEPEND 

POL ! NP 

SMSHAP 

SOLAR  I 

VERT 

SOLAR  1 

CLOUDS 

C0N5TA 

SOLAR  1 

SOLAR  1 

DEPEND 

GEOHT 

DEPEND 

GEOHT 

COMP3 

C0N5TA 

CUMULO 

CUMULO 
CUMULO 
COMP  3 
CONSTA 
LINKHO 


L1NKHO 

LINKHO 

CUMULO 

CUMULO 

CUMULO 

C0MP3 

CONSTA 

COMP3 

CONSTA 

RADIO 

CUTCHK 

GWSGCM 

COMP  3 

CUMULO 

CUMULO 

CUMULO 
CUMULO 
COMP  3 
CUMULO 
CUMULO 

CUMULO 

CUMULO 

SMSHAP 

CUMULO 

CUMULO 

SMSHAP 

C0MP35 

COMPS 

COMP3 

COMP  3 

C0MP3 

DEFALT 

PMEAN 

CLOUDS 


COSINE  OF  LATITUDE, 
COSINE  OF  LONGITUDE. 


MAGNIFICATION  FACTOR  FOR  SLANT  PATH  AND 
REFRACTION  OF  SOLAR  RADIATION. 

COSINE  OF  TARTH'S  ROTATION. 

COSINE  OF  SOLAR  ZENITH  ANGLE. 

SPECIFIC  HEAT  AT  CONSTANT  PRESSURE. 

CP  / 2. 

SPECIFIC  HEAT  AT  CONSTANT  PRESSURE. 

SPECIFIC  HUMIDITY  CHANGE  AT  PRIMED  LEVEL  1 
FROM  CUMULUS  PARAMETERIZATION. 

SAME  AS  C0 1 P BUT  FOR  PRIMED  LEVEL  3. 

SAME  AS  C0 1 P BUT  FOR  PRIMED  LEVEL  5. 

THERMAL  CONDUCTIVITY  OF  ICE, 

TRANSMISSION  FUNCTION  OF  CARBON  DIOXIDE 
BETWEEN  1 MB  AND  A GIVEN  MODEL  RADIATION 
LEVEL. 

SAME  AS  CT IN  BUT  FOR  5 MB. 

TRANSMISSION  FUNCTION  OF  CARBON  DIOXIDE 
BETWEEN  TWO  MODEL  RADIATION  LEVELS. 
TEMPERATURE  CHANGE  AT  PRIMED  LEVEL  1 
FROM  CUMULUS  PARAMETERIZATION. 

SAME  AS  CT 1 F BUT  FOR  PRIMED  LEVEL  3. 

SAME  AS  CT I P BUT  FOR  PRIMED  LEVEL  5. 

THE  NUMBER  OF  HISTORY  WRITES  PER  DAY. 

INVERSE  OF  THE  NUMBER  OF  PHYSICS  CALLS 
BETWEEN  HISTORY  WRITES, 

DD/HH/MM 

TOTAL  SPECIFIC  HUMIDITY  CHANGE  DUE  TO 
CUMULUS  CONVECTION. 

TOTAL  SPECIFIC  HUMIDITY  CHANGE  AT  PRIMED 
LEVEL  1 FROM  CUMULUS  PARAMETERIZATION. 

SAME  AS  CVQtP  BUT  FOR  PRIMED  LEVEL  3. 

SAME  AS  CVQ5P  BUT  FOR  PRIMED  LEVEL  5. 

TOTAL  TEMPERATURE  CHANGE  DUE  TO  CUMULUS 
CONVECTION. 

TOTAL  TEMPERATURE  CHANGE  AT  PRIMED  LEVEL  1 
FROM  CUMULUS  PARAMETERIZATION. 

SAME  AS  CVT 1 P BUT  FOR  PRIMED  LEVEL  3, 

SAME  AS  CVT1P  BUT  FOR  PRIMED  LEVEL  5. 

WEIGHTED  FACTOR  FOR  SHAPIRO  FILTER  - 
X DIRECTION. 

TOTAL  MASS  FLUX  INTO  CLOUD  FOR  MIDDLE  AND 
PENETRATING  CONVECTION. 

TOTAL  MASS  FLUX  INTO  CLOUD  FOR  LOW-LEVEL 
CONVECTION. 

WEIGHTED  FACTOR  FOR  SHAPIRO  FILTER  - 
Y DIRECTION. 

TOTAL  HEAT  CAPACITY  OVER  LAND  OR  FROST- 
TOTAL  HEAT  CAPACITY. 

NUMERICAL  CONSTANT. 

NUMERICAL  CONSTANT. 

NUMERICAL  CONSTANT. 

LOCAL  TEMPORARY  VARIABLE. 
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DA 

CLOUDS 

ABSORBED  SOLAR  RADIATION  ABOVE  CLOUDS, 

DARK 

DSOLAR 

OZONE2 
SOLAR  1 
CLOUDS 

LOGICAL  FLAG  FOR  DARKNESS . 

DATA 

COMMON 

AVRX 
PRO  I AG 
DEFALT 
SMSHAP 

HIGH  LATITUDE  FILTER  COEFFICIENTS. 

CONTAINS  WAVE-NUMBERS  OF  SEA  LEVEL  PRESSURE. 

DAYSPY 

RCNTRL 

DAILY 

NUMBER  OF  DAYS  IN  A YEAR, 

DB 

CLOUDS 

ABSORBED  SOLAR  RADIATION  BELOW  CLOUDS, 

DDSIG 

C0MP3 

RATIO  OF  TWO  ADJACENT  THICKNESSES. 

DEC 

RCNTRL 

DAILY 

SUN  DECLINATION. 

DECMAX 

RCNTRL 

DAILY 

DEPEND 

MAXIMUM  SUN  DECLINATION. 

DELNU 

LINKHO 

FREQUENCY  WIDTH  OF  SPECTRAL  INTERVAL. 

DELTA 

CNTRLP 

SOLAR T 

NUMERICAL  CONSTANT. 

DELTAP 

DAILY 

CORRECTION  FOR  ATMOSPHERIC  MASS  LOSS. 

DENOM 

COMP3 

CLOUDS 

LOCAL  TEMPORARY  VARIABLE. 

DI ABAT 

QANDQT 

COMP3 

DEPEND 

INITSD 

TOTAL  DIABATIC  HEATING- 

DIST 

RCNTRL 

DAILY 

FRACTION  OF  A YEAR  ELAPSED  SINCE  EARTH  * S 

aphelion. 

DL 

DEFALT 

PMEAN 

LATITUDINAL  GRID  LENGTH, 

DLAT 

OZONE2 

ABSOLUTE  VALUE  OF  LATITUDE. 

dlati 

OZONE2 

INTERPOLATED  LATITUDE. 

DLATJ 

OZONE2 

INTERPOLATED  LATITUDE. 

dlon 

RCNTRL 

DEPEND 

LONGITUDINAL  GRID  LENGTH. 

DLONG 

DEFALT 

LONGITUDINAL  GRID  LENGTH. 

DNORM 

DEFALT 

RATIO  OF  LONGITUDINAL  TO  LATITUDINAL  GRID 
LENGTH  . 

DP 

LINKHO 

PRESSURE  DIFFERENCE  BETWEEN  TWO  ADJACENT 
MODEL  RADIATION  LEVELS. 

DPI 

DEFALT 

PI  . 

DP  1 

LINKHO 

PRESSURE  DIFFERENCE  BETWEEN  t MB  AND 
5 MB  LEVELS, 

DP2 

LINKHO 

PRESSURE  DIFFERENCE  BETWEEN  5 MB  LEVEL 
AND  THE  FIRST  MODEL  RADIATION  LEVEL. 

DRAD 

COMP3 

CHANGE  IN  UPWARD  FLUX  OF  LONGWAVE  RADIATION 
WITH  RESPECT  TO  GROUND  TEMPERATURE. 

DRAW 

DCOMP  3 

C0MP3 

AIR/SURFACE  INTERACTION  COEFFICIENT. 

D5HS 

DCOMP 3 

COMP3 

DIFFERENCE  BETWEEN  SATURATED  AND  UNSATURATED 
SPECIFIC  HUMIDITY  AT  THE  GROUND. 

DSIG 

RDPARM 

SIGMA  LEVEL  THICKNESS,  USED  IN  MOST 
SUBROUTINES. 

DsqG 

COMP  3 

CHANGE  IN  UPWARD  FLUX  OF  LATENT  HEAT 
WITH  REPECT  TO  GROUND  TEMPERATURE. 

DS1P 

CUMULO 

VERTICAL  GRID  INCREMENT  AT  PRIMED  LEVEL  1 
USED  IN  CUMULUS  PARAMETERIZATION. 

DS3P 

CUMULO 

SAME  AS  D51P  BUT  FOR  PRIMED  LEVEL  3. 

DSSP 

CUMULO 

SAME  AS  DS1P  BUT  FOR  PR IMED  LEVEL  5. 

DT 

RCNTRL 

COMPO 
COMP  1 
COMP  2 
GWSGCM 

MODEL  TIME-STEP  IN  SECONDS. 

DTC3 

CNTRLP 

C0MP3 
CONST A 

PHYSICS  TIME-STEP  IN  SECONDS. 

□ TL 

C0MP3 

TOTAL  DIABATIC  HEATING. 

DTOUT 

CNTRLP 

CONSTA 

TIME  BETWEEN  HISTORY  WRITES. 

DTS 

DCOMP 3 

C0MP3 

TEMPERATURE  DIFFERENCE  BETWEEN  THE  GROUND 
AND  THE  TOP  OF  THE  PBL . 

DU 

COMP3 

ZONAL  WIND  DIFFERENCE  BETWEEN  SURFACE 
AND  LEVEL  NLA Y . 

DUDVS 

COMP3 

SQUARE  OF  WIND  DIFFERENCES. 

DUMMY 

CLOCKS 

LOCAL  TEMPORARY  VARIABLE. 

DV 

C0MP3 

MERIDIONAL  WIND  DIFFERENCE  BETWEEN  SURFACE 
AND  LEVEL  NLA Y . 

DXDATE 

OZONE2 

INTERPOLATED  DATE. 

DXDLAT 

OZONE 2 

INTERPOLATED  LATITUDINAL  GRID  DISTANCE. 
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DXOCM 

OZONE 2 

DXP 

RDPARM 

COMP  1 
COMP  2 

depend 

VERT 

DKPRO 

OZONE2 

DXYP 

RDPARM 

COMP  1 
COMP  2 
DEPEND 
SCALEQ 
VERT 

DYP 

RDPARM 

COMP  1 
COMP2 
DEPEND 
VERT 

ECCN 

RCNTRL 

DAILY 

ED 

CNTRLP 

COMP  3 
CONSTA 

EDLE 

COMP3 

EDNM 

CNTRLP 

C0MP3 

EDNS 

COMP  3 

EDV 

DCOMP3 

C0MP3 

EFLUX 

QANDQT 

COMPS 

INITSD 

ETP 

CL DUDS 

EVACO 

DCOMP3 

COMP  3 

eval 

COMP3 

EVAP03 

CUMULO 

EVAPOS 

CUMULO 

EVE 

DCOMP3 

C0MP3 

EX 

CQMP3 

CUMULO 

E XL 

COMP3 

EXPBYK 

FUNCTION 

COMP  1 

COMP3 

DEPEND 

EXPBYK 

GEOHT 

SMSHAP 

EXPNO 

GWSGCM 

F 

FILFFT 

FC 

SOLAR  1 

FOLD 

DSOLAR 

SOLAR  1 
CLOUDS 

FCLEAR 

DSOLAR 

SOLAR  1 

FCLOUD 

DSOLAR 

SOLAR t 

FCOEF 

CNTRLP 

COMP3 

CONSTA 

FCOEF1 

DCOM P 3 

COMPS 

FCORLS 

RDPARM 

C0MP2 

DEPEND 

FOAT1 

DAILY 

FDAT2 

DAILY 

FDA  Y 

DAILY 

FDXYP 

COMP  2 

FILTER 

LDPARM 

COMPO 

DEPEND 

INPUT 

FJEQ 

DEPEND 

FK 

RADCOM 

CLOUDS 

FKK 

CLOUDS 

FLD 

COMMON 

SMSHAP 

FLUX  t 

COMP1 

FLUX2 

COMP  T 

FMU 

CNTRLP 

C0MP3 

INTERPOLATED  OZONE  INCREMENT. 
LONGITUDINAL  GRID  DISTANCE. 


SCALING  FACTOR  USED  IN  VERTICAL  OZONE 
INTERPOLATION. 

AREA  OF  LONGITUDE-LATITUDE  GRID  ELEMENT. 


MERIDIONAL  GRID  DISTANCE. 


ECCENTRICITY  OF  EARTH'S  ORBIT. 

COEFFICIENT  USED  IN  AIR/SURFACE  INTERATION. 

COEFFICIENT  of  vertical  diffusion. 

MINIMUM  ALLOWABLE  DIFFUSIVITY  COEFFICIENT. 
EDDY  DIFFUSIVITY  COEFFICIENT. 

EDDY  DIFFUSIVITY  COEFFICIENT  DIVIDED  BY 
PBL  THICKNESS. 

UPWARD  LATENT  HEAT  FLUX. 

LOCAL  TEMPORARY  VARIABLE. 

EVAPORATION  COEFFICIENT. 

LATENT  HEAT  OF  EVAPORATION. 

EVAPORATED  MOISTURE  AT  PRIMED  LEVEL  3 
FOR  LOW-LEVEL  CUMULUS  CLOUDS. 

SAME  AS  EVAP03  BUT  FOR  PRIMED  LEVEL  S. 

SOIL  E VAPOTRANSP I RAT I ON  COEFFICIENT. 

LOCAL  VARIABLE  USED  IN  CONVECTIVE  STABILITY 
TESTS. 

LOCAL  VARIABLE  USED  IN  SUPERSATURATED  CLOUDS 
FUNCTION  WHICH  COMPUTES  P RAISED  TO  THE 
POWER  ROCP. 


EXPERIMENT  NUMBER. 

CONTAINS  WAVE-NUMBER  FILTERS, 

FRACTIONAL  CLOUDY  AREA. 

LOGICAL  FLAG  FOR  FRACTIONAL  CLOUDINESS. 

FRACTIONAL  AREA  OF  CLEAR  SKY, 

FRACTIONAL  AREA  OF  CLOUDY  SKY, 

COEFFICIENT  FOR  INTERNAL  FRICTION  DUE  TO 
VERTICAL  WIND  SHEAR. 

INTERNAL  WIND  SHEAR  COEFFICIENT, 

CORIOLIS  PARAMETER. 

WEIGHT  FOR  TIME  INTERPOLATION  FROM  MONTHLY 
AVERAGES, 

WEIGHT  FOR  TIME  INTERPOLATION  FROM  MONTHLY 
AVERAGES . 

REAL  VALUE  OF  CURRENT  JULIAN  DAY. 

SCALED  CORIOLIS  PARAMETER. 

LOGICAL  FLAG  FOR  FOURIER  FILTERS. 


EQUATOR  GRID  POINT  INDEX. 

FREQUENCY  PROBABILITY  DISTRIBUTION  FUNCTION, 
LOCAL  TEMPORARY  VARIABLE ♦ 

TEMPORARY  ARRAY  TO  HOLD  THE  FIELD  BEING 
FILTERED, 

LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE. 

COEFFICIENT  OF  INTER-LAYER  FRICTION. 
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o 


F RAC  1 
FRAC2 
FROST 

R A DCOM 

CONSTA 
CUMULO 
CUMULO 
COMP  3 

SPECIFIC  HUMIDITY  STRAPPING  PARAMETER . 
SPECIFIC  HUMIDITY  STRAPPING  PARAMETER, 
LOGICAL  FROST  INDICATOR, 

FSCAT 

DSOLAR 

COMP35 
SOLAR  T 

FRACTION  OF  INCIDENT  SOLAR  RADIATION  AFTER 

FSLfRF 

FUSION 

QANDQT 

COMP  3 
C0MP3 

SCATTERING, 

EFFECTIVE  SURFACE  FRICTION  COEFFICIENT, 
HEATING  DUE  TO  CONDUCTION  THROUGH  SEA  ICE, 

F WE  T 

CNTRLP 

INIT5D 
COMP  3 

limiting  ground  wetness  for  potential 

FX 

F IDT 

R DP ARM 

CONSTA 
COMP2 
COPOP  0 

evapotranspiratidn  rate. 

MOMENTUM  TENDING  DUE  TO  CORIOLIS  FORCE. 
8 - DT, 

F2DT 

RDPARM 

COMP  2 
COMPO 

- DT, 

G 

GAM 

RADCOM 

COMP  2 
LINKHO 
COMP  3 

WATER  DIMER  DATA. 

LATENT  HEATING  PARAMETER. 

GAMC 

GAMFAC 

CNTRLP 

CUMULO 

COMPS 

COMP  3 

TEMPERATURE  DIFFERENCE  RELATING  TO  MOIST 
AND  DRY  ADIABATIC  LAPSE  RATES, 

LATENT  HEATING  PARAMETER. 

GAMS 
GAM  IP 

DCUMU 

CONSTA 
CUMULO 
COMP  3 
CUMULO 

LATENT  HEATING  PARAMETER  AT  THE  SURFACE. 
LATENT  HEATING  PARAMETER  AT  PRIMED  LEVEL  1 

GAM3P 

DCUMU 

CUMULO 

LATENT  HEATING  PARAMETER  AT  PRIMED  LEVEL  3 

GNUT 

rcntrl 

DEPEND 

CENTER  TIME  AVERAGING  TERM. 

GNU  2 , 

RCNTRL 

TTMAVG 

COMPO 

OUTER  TIME  AVERAGING  TERM. 

GRAV 

RCNTRL 

DEPEND 
DEFALT 
T I MAVG 
COMP  3 

GRAVITATIONAL  ACCELERATION. 

GRNDP 

GSTAR 

GT 

QANDQT 

CONSTA 
CUMULO 
5M3HAR 
LINKHO 
SOLAR7 
COMP  3 

GROUND  PRESSURE. 

SCALED  WATER  VAPOR  COEFFICIENT, 
GROUND  TEMPERATURE . 

GTOPO 

CNTRLP 

COMP 35 
CONSTA 
DAILY 
SMS HAP 
SOLAR  1 

SCALED  WATER  VAPOR  COEFFICIENT, 

GW 

QANDQT 

COMP  3 

GROUND  WETNESS  . 

GW  1 

JVTNTHLY 

COMP 3 5 

DAILY 

DAILY 

HOLDS  CLIMATOLOGY  OF  GROUND  WETNESS 

GW2 

MNTHLY 

DAILY 

FOR  ONE  MONTH. 

HOLDS  CLIMATOLOGY  OF  GROUND  WETNESS 

HACOS 
HF  LUX 

QANDQT 

SOLAR t 
COMP  3 

FOR  ONE  MONTH, 

SOLAR  ZENITH  ANGLE  COEFFICIENT. 
UPWARD  FLUX  OF  SENSIBLE  HEAT. 

HH 

RAOCOM 

INITSD 
COMP  3 

MOIST  STATIC  ENERGY  AT  MID-LEVELS. 

HHE 

RADCOM 

CUMULO 

COMP3 

MOIST  STATIC  ENERGY  AT  EDGE  - LEVELS , 

KHS 

RADCOM 

CUMULO 
COMP  3 

SATURATION  MOIST  STATIC  ENERGY. 

HH2P 

DCUMU 

CUMULO 

CUMULO 

MOIST  STATIC  ENERGY  AT  PRIMED  LEVEL  2. 

HH3P 

DCUMU 

CUMULO 

MOIST  STATIC  ENERGY  AT  PRIMED  LEVEL  3. 

HH4P 

DCUMU 

CUMULO 

MOIST  STATIC  ENERGY  AT  PRIMED  LEVEL  4. 

HN5P 

DCUMU 

CUMULO 

MOIST  STATIC  ENERGY  AT  PRIMED  LEVEL  5, 

HH  1 SP 

DCUMU 

CUMULO 

SATURATION  MOIST  5TATIC  ENERGY  AT  PRIMED 

HH3SP 

DCUMU 

CUMULO 

LEVEL  1. 

SATURATION  MOIST  STATIC  ENERGY  AT  PRIMED 

HIC 

ICNTRL 

CONHTR 

LEVEL  3. 

HALF  PRECISION  VARIABLE  EOUIVALENCED  TO  IC . 
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MICE 

CNTRLP 

COMP3 

EFFECTIVE  OCEAN-ICE  THICKNESS. 

HHSS 

CONHTR 

KS  TO  USE  ON  HISTORY  TAPE, 

HKUS 

CONHTR 

KU  TO  USE  ON  HISTORY  TAPE. 

HWORK 

COMMON 

CONHTR 

HALF  PRECISION  WORK  ARRAY . 

H IDT 

RDPARM 

COMPO 
COMP  1 

A X D T , 

H2DT 

I 

ROPARM 

COMPO 
COMP  T 

- 0 . 5 X DT . 

LONGITUDINAL  INDEX  USED  IN  MOST  SUBROUTINES 

I A 

COMMON 

CONHTR 

INTEGER  ARRAY  FOR  HISTORY  TAPE  HEADER 

IBB 

L I NKHO 

longitudinal  index  . 

IBM 

CONHTR 

STRING  REPRESENTING  IBM  READABLE  RECORDS . 

IC 

icntrl 

IOQ 

INTEGER  MODEL  PARAMETERS  ON  HISTORY  RECORDS 

IC 

Q5AT 

LOCAL  TEMPORARY  VARIABLE. 

ICE 

R A DCOM 

C0MP3 

COMP35 

LOGICAL  FLAG  FOR  ICE . 

I CHK 

CUTCHK 

INTEGER  WITH  CURRENT  CLOCK  READING- 

ICHKC 

CUTCHK 

CHARACTER  ARRAY  EQUIVALENCED  TO  ICHK. 

I CL  DUD 

oandot 

COMP  3 
CUMULO 
INI TSD 

CONVECTIVE  AND  SUP E RSA TURAT I ON  CLOUDS. 

I CUT 

CUTCHK 

INTEGER  WITH  CUT-OFF  TIME. 

ICUTC 

CUTCHK 

CHARACTER  ARRAY  EQUIVALENCED  TO  ICUT. 

IDAV 

LINK  HO 

CURRENT  JULIAN  DAY . 

idayh 

STRATM 

CURRENT  JULIAN  Day . 

i e n r 

CONHTR 

ERROR  FLAG. 

I FALSE 

CONHTR 

HALF  PRECISION  ARRAY  CONTAINING  ZEROS* 

I I 

COMP35 
CONSTA 
L I NKHO 

LOCAL  TEMPORARY  VARIABLE. 

I I I 

LINKHO 

LOCAL  TEMPORARY  VARIABLE. 

I J 

L INKHO 

LOCAL  TEMPORARY  VARIABLE. 

I JTEST 

LINKHO 

LOCAL  TEST  VALUE  FOR  DETERMINING 
INTERPOLATION  FORMULA* 

I JUMP 

IDPARM 

COMPO 

DAILY 

DEPEND 

ARRAY  USED  TO  CHANGE  LONGITUDINAL  INDEX 
INCREMENT.  INC,  TO  IM  AT  THE  POLES. 

I LA T 

STRATM 

A MEASURE  OF  LATITUDE. 

I LATH 

STRATM 

LATITUDE* 

IM 

ICNTRL 

number  of  grid  points  per  latitude  circle. 

USED  IN  MOST  SUBROUTINES 

IMD2 

ICNTRL 

AVRX 

DEPEND 

INPUT 

PRDIAG 

IM  / 2 . 

I MD  2 P 1 

ICNTRL 

DEPEND 

IMD2  * 1 . 

IMNLAY 

CONHTR 

IM  * NLA Y . 

INC 

COMPO 

DAILY 

LONGITUDINAL  INDEX  INCREMENT. 

INCHMS 

FUNCTION 

GWSGCM 

PERFORMS  HOUR-MINUTE*- SECOND  ARITHMETIC* 

INCYMD 

FUNCTION 

DAILY 

INCREMENTS  YR-MNTH-DAY  BY  ONE  DAY, 

INDEX 

IDPARM 

COMP2 

DEPEND 

VERT 

ARRAY  WITH  LONGITUDINAL  INDICES  ASSOCIATED 
WITH  I + IMD2, 

INPHYS 

CONSTA 

NAME  FOR  PHYSICS  INPUT  NAMELIST* 

INPUTZ 

INPUT 

INPUT  MODEL  PARAMETER  NAMELIST. 

ioflag 

I OLD 

INPUT 

STRATM 

TWRITE 

CODE  OF  OPERATION  TO  PERFORM. 

IP  1 

COMP  1 
COMP  2 
VERT 
SMSHAP 

LONGITUDINAL  INDEX  PLUS  f. 

I P 2 

COMP  T 
COMP  2 
VERT 

LONGITUDINAL  INDEX  PLUS  2. 

IRECS 

IOO 

IM  - KS. 

IRECU 

IOQ 

IM  * NLA Y * KU. 

IROD 

IDPARM 

INPUT 

TWRITE 

COUNTER . 

ISS 

GWSGCM 

SENSE  SWITCH  SETTING  FOR  AMDAHL  RUNS. 
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IS1 

COMP  t 
COMP  2 
VERT 
SMSHAP 

LONGITUDINAL  INDEX  MINUS  1, 

IS2 

COMPt 

C0MP2 

VERT 

LONGITUDINAL  INDEX  MINUS  2. 

ITM 

GWSGCM 

TIME  REMAINING  UNTIL  END  OF  JOB , 

ITRUE 

CONHTR 

HALF  PRECISION  ARRAY  CONTAINING  rt#. 

I UP 

LINKHO 

CLOUD  INDEX. 

IW 

PRDIAG 

WAVE  NUMBER  FOR  PRINT. 

I WAVE 

DEFALT 

TOTAL  NUMBER  OF  RESOLVABLE  WAVES. 

IX 

PRDIAG 

SMSHAP 

LONGITUDINAL  POINT  OF  PRESSURE  DIAGNOSTIC. 
I + IMD2 - 

IXM1 

PRDIAG 

IX  - 1 , 

IXP 

C0MP2 

VERT 

LOCAL  TEMPORARY  VARIABLE. 

IXP  1 

PRDIAG 

IX  + 1 . 

1X5 

I 1 
J 

COMP2 

VERT 

STRATM 

LOCAL  TEMPORARY  VARIABLE. 

LATITUDINAL  INDEX  USED  IN  MOST  SUBROUTINES 

JAL 

03  I NT 

JALB,  JNP  -JALB  - 1. 

JALB 

RADCOM 

LINKHO 
03  I NT 
RADIO 
CLOUDS 

LATITUDINAL  GRID  LOCATION. 

JC 

IDPARM 

COMP  1 
CDMP2 
DEPEND 
GEOHT 

restqm 

SAVEQM 

TIMAVG 

VERT 

MOD  f d- 1 „ MSM)  + 1 

JDAYH 

STRATM 

LOCAL  TEMPORARY  VARIABLE  USED  FOR 
TIME  INTERPOLATION. 

JE 

I DP ARM 

COMP  1 
C0MP2 
DEPEND 
POL I NP 
VERT 

INDICIES  OF  SOUTH  AND  NORHT  POLE. 

JEND 

C0MP2 

VERT 

LOCAL  TEMPORARY  VARIABLE. 

JIC 

CCNTRL 

DEFALT 

EXPERIMENT  IDENTIFIER, 

Jd 

CONSTA 

IOQ 

LINKHO 

LOCAL  TEMPORARY  VARIABLE. 

ddd 

LINKHO 

LOCAL  TEMPORARY  VARIABLE, 

JL1 

SMSHAP 

LOCAL  TEMPORARY  VARIABLE. 

JL2 

SMSHAP 

LOCAL  TEMPORARY  VARIABLE. 

dM 

ICNTRL 

NUMBER  OF  LATITUDE  BANDS  IN  GRID,  USED  IN 
MOST  SUBROUTINES. 

JMD2 

ICNTRL 

depend 

SMSHAP 

(dM  + t > / 2 

JMP1 

INPUT 

IDQ 

dM  + t . 

dMT2 

ICNTRL 

OEPEND 

SMSHAP 

JM  * 2 , 

JM! 

LINKHO 
OZONE  2 

LOCAL  TEMPORARY  VARIABLE. 

JNF 

ICNTRL 

NORTH  POLE  INDEX,  USED  IN  MOST  SUBROUTINES 

JOB 

CCNTRL 

DEFALT 

GWSGCM 

TWRITE 

EXPERIMENT  IDENTIFIER. 

dP 

IDPARM 

COMP  T 
CQMP2 
DEPEND 
VERT 

INDEX  ARRAY  USED  FOR  POLE  COMPUTATIONS. 

dPI 

COMPO 
COMP  1 

LATITUDINAL  INDEX  PLUS  1. 

ORIGINAL  PAQE  IS 


JP2 

COMP  2 
SMSHAP 
VERT 
COMPQ 

LATITUDINAL  INDEX  PLUS  2. 

JSP 

ICNTRL 

COMP  1 
C0MP2 
VERT 

SOUTH  POLE  INDEX,  USED  IN  MOST  SUBROUTINES. 

JSt 

COMPO 

LATITUDINAL  INDEX  MINUS  1, 

JS2 

COMP  2 
SMSHAP 
VERT 
COMPO 

LATITUDINAL  INDEX  MINUS  2* 

UX 

COMP2 
VERT 
PRDI AG 

LATITUDINAL  POINT  OF  PRESSURE  DIAGNOSTIC. 

JXM1 

PRDI AG 

JX  - 1 . 

JXP  1 

FRDI AG 

ifX  * t . 

K 

KE 

C0MP2 

COMMONLY  USED  VERTICAL  INDEX. 
LOCAL  TEMPORARY  VARIABLE* 

KEB 

VERT 

CONHTR 

LOCAL  TEMPORARY  VARIABLE 

KF 

SMSHAP 

LOCAL  TEMPORARY  VAR  TABLE . 

KFSGN 

SMSHAP 

LOCAL  TEMPORARY  VARIABLE. 

KX 

CONHTR 

LOCAL  TEMPORARY  VARIABLE. 

KJ 

LINKHO 

LOCAL  TEMPORARY  VARIABLE. 

UK 

LINKHO 

LOCAL  TEMPORARY  VARIABLE. 

KXB 

CONHTR 

LOCAL  TEMPORARY  VARIABLE. 

KKK 

LINKHO 

LOCAL  TEMPORARY  VARIABLE. 

KKQS 

CONHTR 

LOCAL  TEMPORARY  VARIABLE. 

KKQS1NC 

CONHTR 

JNP  * IM. 

KKQSST 

CONHTR 

LOCAL  TEMPORARY  VARIABLE. 

KKQU 

CONHTR 

LOCAL  TEMPORARY  VARIABLE. 

KKQUINC 

CONHTR 

IMNLAY  * JNP. 

KKQUST 

CONHTR 

LOCAL  TEMPORARY  VARIABLE. 

KLIALB 

ICNTRL 

DAILY 

ALBEDO  CLIMATOLOGY  FLAG. 

KLIGW 

ICNTRL 

DEFALT 

DAILY 

GROUND  WETNESS  CLIMATOLOGY  FLAG- 

KLISST 

ICNTRL 

DEFALT 

DAILY 

SEA  SURFACE  TEMPERATURE  CLIMATOLOGY  FLAG. 

kmaxb 

DEFALT 

CONHTR 

LOCAL  TEMPORARY  VARIABLE. 

KNTQS 

CONHTR 

IM  * KS. 

KNTQU 

CONHTR 

IM  * NLAY  * KU. 

KOP 

100 

CODE  OF  OPERATION  TO  PERFORM. 

KOP  1 

iop 

KOP  * 1 . 

KP1 

COMP  1 

VERTICAL  INDEX  PLUS  1. 

KP2 

VERT 
COMP  1 

VERTICAL  INDEX  PLUS  2. 

KQ 

VERT 

CONHTR 

A LOOP  INDEX  FOR  UPPER  AIR  FIELDS. 

KRS 

TWRITE 

fLU  - 12 ) / 2 + T , 

KS 

ICNTRL 

CONHTR 

TOTAL  NUMBER  OF  SURFACE  FIELDS. 

K5B 

INPUT 

100 

CONHTR 

LOCAL  TEMPORARY  VARIABLE. 

KSC 

SCALEQ 

SCALING  EXPONENT. 

KSS 

CONHTR 

COUNTER . 

KSTEP 

I DP ARM 

COMPO 

FLAG  FOR  MAT5UMO  PREDICTOR. 

KU 

ICNTRL 

GW5GCM 

CONHTR 

TOTAL  NUMBER  OF  UPPER  AIR  FIELDS. 

KURT 

INPUT 

IOQ 

LINKHO 

LOCAL  TEMPORARY  VARIABLE- 

KUS 

CONHTR 

COUNTER . 

L 

LA 

COMMON 

CONHTR 

VERTICAL  INDEX,  USED  IN  MOST  SUBROUTINES. 
LOGICAL  ARRAY  FOR  HISTQR  Y HEADER. 

LAND 

R A DCOM 

LINKHO 
COMP  3 

LOCAL  TEMPORARY  VARIABLE. 
LOGICAL  FLAG  FOR  LAND. 

LAV 

LINKHO 

LOCAL  TEMPORARY  VARIABLE. 

LC 

LCNTRL 

CONHTR 

LOGICAL  FLAG;  TRUE  IF  NEXT  RECORD  IS  V8RSTR 

ra'i  yood  jo 
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\ 


LCL  t 
LCL2 
LEAP 
LF  LAG 
LL 

LLAY 

LLLAY 

LM 

LM1 


LNB 


LND 


LOGBR 
LP  1 


LP  1 NB 
LP  1ND 
LTM 
LU 


LUALB 

LUGW 

LUNG  XT 

LUSST 

LUU 

LWE 

LX 

LI 

L2 

L3 

M 

MACH I D 
MATIN 

MATSNX 

MATSUN 


MHMS 

MJ 

MLF 

MODHMS 

MODYMD 

MONALB 

MONGW 

MONSST 

MOT 

M02 

MPER 

MROD 

MSEC 


IOQ 

CUMULO 
CUMULO 
INCVMD 
TWRITE 
LINKHO 
SMSHAP 
LINKHO 
LINKHO 
SMSHAP 
CQMP3 
SHCORN 
SOLAR  1 
COMP  I 
COMP  2 
VERT 
COMP  1 
COMP  2 
VERT 
INPUT 
TWRITE 
COMP  1 
GEOHT 
SOLAR  1 
COMP  1 
COMP  1 
GV/SGCM 
DAILY 
INPUT 
100 

TWRITE 

DAILY 

daily 

TWRTTE 

DAILY 

TWRITE 

VERT 

C0MP3 

GEOHT 

CLOUDS 

LINKHO 

03  1 NT 

LINKHO 


INPUT 

DEFALT 

GWSGCM 

DEFALT 

GWSGCM 

COMPO 

DEFALT 

GWSGCM 

1NCHMS 


DEFALT 

GWSGCM 

CONSTA 

GWSGCM 

DEPEND 

GWSGCM 

DAILY 

DAILY 

DAILY 

DAILY 

DAILY 

GWSGCM 

DEFALT 

TWRITE 

INCHMS 


STAT  FUNC 


ICNTRL 


ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ENTRY 

ENTRY 


STAT  FUNC 
ICNTRL 


LEVEL  LIMIT  FOR  PENETRATING  CONVECTION. 
LEVEL  LIMIT  FOR  PENETRATING  CONVECTION. 
STAT  FUNC  USED  AS  FLAG  FOR  LEAP  YEARS. 
RECORD  TYPE  FLAG- 
LOCAL  TEMPORARY  VARIABLE. 

NUMBER  OF  MODEL  LAYERS. 

LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE- 
VERTICAL  INDEX  MINUS  1. 


VERTICAL  INDEX  ASSOCIATED  WITH  CURRENT 
TIME  STEP. 

VERTICAL  INDEX  ASSOCIATED  WITH  PREVIOUS 
TIME  STEP. 

RECORD  FLAG:  RESTART,  HISTORY  OR  V8MAND . 

VERTICAL  INDEX  PLUS  1 . 


L NB  * t. 

LND  + 1. 

LAST  CPU  CLOCK  TIME . 

LOGICAL  UNIT  ON  WHICH  TO  DO  INPUT/OUTPUT. 


UNIT  NUMBER  FOR  READING  MONTHLY  ALBEDO. 

UNIT  NUMBER  FOR  READING  MONTHLY  GR . WETNESS . 
UNIT  NUMBER  FOR  MODEL  HISTORY  RECORDS, 

UNIT  NUMBER  FOR  READING  MONTHLY  TOPOGRAPHY 
UNIT  NUMBER  FOR  MODEL  HISTORY  RECORDSlSJ. 

LNB  + 1 . 

LOCAL  TEMPORARY  VARIABLE. 


LOCAL  TEMPORARY  VARIABLE. 
LOCAL  TEMPORARY  VARIABLE. 


LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE , USED  IN  MOST 
SUBROUTINES, 

MACHINE  IDENTIFIER. 

MATSUNO  STEPS  TO  INTEGRATE  BEFORE  CYCLE „ 


NEXT  TIME-STEP  SCHEME ( 0 « L EAP F ROG . 1 =MATSUNO ) . 
CURR.  TIME-STEP  SCHEME ( 0 =L EAPF ROG , I ®MA TSUNO ) 


INCREMENT  TIME  IN  HHMM5S  FORMAT. 

POLE  GRID  POINT  INDICATOR,  USED  IN  MOST 
SUBROUTINES. 

TIME-STEP  FLAGS  FOR  A COMPLETE  SEQUENCE. 

ENDING  POINT  IN  FUNCTION  INCHMS. 

ENDING  POINT  IN  FUNCTION  INCYMD. 


CURRENT  MONTH  OF  ALBEDO. 

CURRENT  MONTH  OF  GROUND  WETNESS. 
CURRENT  MONTH  OF  TOPOGRAPHY. 

MONTH  INDEX  FOR  CLIMATOLOGY. 

MONTH  INDEX  FOR  CLIMATOLOGY. 

HHMMSS  TXMESTEP  COUNTER. 

MAXIMUM  NUMBER  OF  RECORDS  TO  WRITE. 

HHMMSS  IN  SECONDS. 
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M5M 

N 

ICNTRL 

DEPEND 

NUMBER  OF  BANDS  TO  KEEP  IN  LOCAL  STORAGE . 
LOCAL  TEMPORARY  VARIABLE,  USED  IN  MOST 

subroutines . 

NAB 

SOL AR 1 

LOW-LEVEL  CONVECTION  CLOUD  PARAMETER. 

NAC 

SOLAR  1 

PENETRATING  CONVECTION  CLOUD  PARAMETER. 

NB 

icntrl 

TIME  INDEX  OF  CURRENT  STEP.  USED  IN  MOST 
SUBROUTINES. 

NSC 

SOLAR  T 

MID-LEVEL  CONVECTION  CLOUD  PARAMETER. 

NCALL 

CLOUDS 

COUNTER. 

NCL 

CUWIULO 

COUNTER . 

NCL  EAR 

CLOUDS 

NUMBER  OF  LEVELS  ABOVE  HIGHEST  CLOUD  LAYER 

NCLR  t 

CLOUDS 

NCLEAR  * I . 

NO 

ICNTRL 

TIME  INDEX  OF  PREVIOUS  STEP,  USED  IN  MOST 
SUBROUTINES. 

NDALT 

ICNTRL 

DEFALT 

GWSGCM 

TIME  INCREMENT  TO  INVOKE  ANALYSIS. 

NDARK 

SOLAR  1 

NUMBER  OF  NIGHT-TIME  LONGITUDINAL  GRID 
POINTS. 

NDAT 

DAILY 

CURRENT  DATE  IN  THE  MODEL. 

NOAY 

ICNTRL 

consta 

DAILY 

DEPEND 

RADIO 

CURRENT  JULIAN  DAY. 

NDHOG 

ICNTRL 

CONSTA 

TIME  INCREMENT  BETWEEN  CALLS  TO  THE 
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AVERAGED  MERIDIONAL  MASS  FLUX, 
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TOTAL  CLOUD  REFLECTANCE. 

REFLECTANCE  FOR  A CLOUD  LAYER. 

RGAS  / CP. 

ROCP  + 1 . 

CURRENT  ANGLE  OF  EARTH'S  ROTATION. 

SQUARE  OF  DISTANCE  FROM  SUN. 

SURFACE  REFLECTANCE, 


CLOUD  REFLECTIVITY  FUNCTION, 

RADIATION  FLUX  AT  TOP  OF  A GIVEN 
MODEL  LAYER. 

TOTAL  GLOBAL  AREA. 

AVERAGED  CLOUDY  SKY  ABSORPTANCE,  SK , 
OVER  ALL  ANGLES, 

SOLAR  CONSTANT  MODIFIED  BY  SOLAR  ZENITH 
ANGLE, 

NET  MASS  CONVERGENCE. 

NUMBER  OF  SECONDS  PER  DAY. 


LOCAL  TEMPORARY  VARIABLE. 
LOCAL  TEMPORARY  VARIABLE, 
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SEASON 

RCNTRL 

DAILY 

SFPOL 

SMSHAP 

SG 

RADCOM 

RADIO 
SOLAR  1 

SGNP 

RDPARM 

COMP  1 

COMP2 

DEPEND 

POL  IMP 

SMSHAP 

VERT 

SH 

QANDQT 

SHG 

RADCOM 

C0MP3 

LINKHO 

SHL 

RADCOM 

comp  a 

CUMULO 

LINKHO 

SOLAR! 

SHLE 

RADCOM 

COMP1 

COMP3 

CUMULO 

RADIO 

SHLTOP 

CNTRLP 

SOLAR  1 

SHM 

QMSAVE 

RESTQM 

SAVEQM 

TIMAVG 

SHP 

OPOLES 

SHS 

QANDQT 

RADIO 

SHSAT 

RADCOM 

COMP  3 
CUMULO 

SHSATS 

COMP  3 

5IG 

RDPARM 

COMP  1 

COMP  3 

CONSTA 

DEPEND 

GEOHT 

SMSHAP 

SIGE 

RCNTRL 

COMP  3 

CONSTA 

DEPEND 

DEFALT 

GEOHT 

VERT 

SIND 

RCNTRL 

DAILY 
SOLAR  1 

SI  NL 

RDPARM 

COMP  2 
DEPEND 
SOLAR T 

SINLON 

RDPARM 

COMF1 

COMP2 

DEPEND 

POLINP 

SMSHAP 

SOLAR  1 

VERT 

SINROT 

CNTRLP 

CONSTA 
SOLAR  1 

SK 

CLOUDS 

SLEXP 

STAT  FUNC 

AVRX 

prdiag 

SMSHAP 

SMASS 

PMEAN 

SMTH 

QANDQT 

AVRX 

DEPEND 

DEFALT 

INPUT 

SNODEC 

CONSTA 

SNOW 

RADCOM 

C0MP3 

COMP35 

5NOWN 

CNTRLP 

COMP3 

FRACTION  DF  A YEAR  ELAPSED  SINCE  SUMMER 
SOLSTICE . 

LOCAL  TEMPORARY  VARIABLE. 

ABSORBED  SOLAR  RADIATION  AT  THE  GROUND. 

SIGN  COEFFICIENT  USED  IN  POLE  EQUATIONS. 


SPECIFIC  HUMIDITY  * USED  IN  MOST  SUBROUTINES. 
SPECIFIC  HUMIDITY  AT  THE  GROUND. 

SPECIFIC  HUMIDITY  USED  IN  PHYSICS. 


SPECIFIC  HUMIDITY  AT  EDGE  LEVELS. 


SPECIFIC  HUMIDITY  AT  THE  MODEL  TOP, 
SAVED  BASE  FIELD  SH . 


SPECIFIC  HUMIDITY  AT  THE  POLES , USED  IN  MOST 
SUBROUTINES, 

SURFACE  SPECIFIC  HUMIDITY, 

SATURATION  SPECIFIC  HUMIDITY. 

SATURATION  SPECIFIC  HUMIDITY  AT  THE  SURFACE. 
VERTICAL  SIGMA  COORDINATE. 


LAYER  INTERFACE  SIGMA  VALUES. 


SINE  OF  SOLAR  DECLINATION. 
SINE  OF  LATITUDE. 


SINE  OF  LONGITUDE. 


SINE  OF  EARTH'S  ROTATION. 

ABSORPTANCE  OF  CLOUDY  SKIES. 

SURFACE  TO  SEA  LEVEL  PRESSURE  FUNCTION. 


TOTAL  AREA-WEIGHTED  PRESSURE. 

HIGH  LATITUDE  FOURIER  FILTER  COEFFICIENTS, 


LATITUDE  OF  SNOW  LINE. 

LOGICAL  FLAG  FOR  SNOW. 

SNOW  LINE  IN  NORTHERN  HEMISPHERE. 
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SNOWS 

SN2FLG 

SOLS 

SP 

SPRESS 

SRNN 

5RS 

SRSN 

SS 

SSB 

SSD 

sss 

SSSE 

SSI 

S51P 
SS2P 
SS3P 
SS4P 
SSS  P 
STBO 
STERP  T 

STERPI 

STM 

5TN 

STNN 

STSN 

SUM 

SUP 

SURFL 

SURFU 


5VP 

SWALE 

SWI  L 

SO 

T 

TAPR 

TAUAB 

TAUL 

TAUP 

TAUSC 

TCOWD 

TDAY 

TDML 

TON 

TEM 


CNTRLP 

LCNTRL 

RCNTRL 
R A DCOM 

RADCOM 

RADCOM 

RADCOM 

DCUMU 

DCUMU 

DCUMU 

DCUMU 

DCUMU 

CNTRLP 

CNTRLP 

CNTRLP 

RADCOM 


RADCOM 

RADCOM 

RADCOM 

OANDOT 

RADCOM 

RADCOM 

DC0MP3 


CONSTA 

COMP  3 

CONSTA 

DEPEND 

DEFALT 

DAILY 

C0MP3 

CUMULO 

PMEAN 

CLOUDS 

CLOUDS 

CLOUDS 

LINKHO 

LINKHO 

LINKHO 

COMP3 

CUMULO 

COMP  3 

CUMULO 

LINKHO 

CUMULO 

CUMULO 

CUMULO 

CUMULO 

CUMULO 

COMP3 

COMP  3 

CONSTA 

COMP  3 

CONSTA 

GWSGCM 

CLOUDS 

CLOUDS 

CLOUDS 

LINKHCI 

SMSHAP 

LINKHO 

LINKHO 


SMSHAP 
SOLAR  1 
CLOUDS 
SOLAR  1 
CLOUDS 
CONSTA 
SOLAR  1 


STRATM 

CLOUDS 

SOLAR  1 
CLOUDS 
CLOUDS 
CLOUDS 

SOLAR  1 

STRATM 

C0MP3 

COMP3 

COMP3 


SNOW  LINE  IN  SOUTHERN  HEMISPHERE, 

LOGICAL  FLAG  FOR  SINE  SIGMA  PBL  PROFILE, 

JULIAN  DAY  OF  SUMMER  SOLSTICE, 

REFERENCE  PRESSURE, 

ZONAL  SUM  OF  PRESSURES. 

REFLECTANCE  BY  ADDING  TWO  LAYERS  (WITH 
ILLUMINATION  FROM  ABOVE), 

REFLECTANCE  BY  ADDING  TWO  LAYERS. 
REFLECTANCE  BY  ADDING  TWO  LAYERS  (WITH 
ILLUMINATION  FROM  BELOW). 

DERIVATIVE  OF  PLANCK'S  FUNCTION. 

SMOOTHED  DERIVATIVE  OF  PLANK'S  FUNCTION. 
SMOOTHED  DERIVATIVE  OF  PLANK'S  FUNCTION. 
DRY  STATIC  ENERGY. 

DRY  STATIC  ENERGY  AT  EDGE  LEVELS. 

DERIVATIVE  OF  PLANCK'S  FUNCTION  AT  1 MB 
LEVEL. 

DRY  STATIC  ENERGY  AT  PRIMED  LEVEL  1. 

DRY  STATIC  ENERGY  AT  PRIMED  LEVEL  2. 

DRY  STATIC  ENERGY  AT  PRIMED  LEVEL  3. 

DRV  STATIC  ENERGY  AT  PRIMED  LEVEL  4. 

DRY  STATIC  ENERGY  AT  PRIMED  LEVEL  S. 

STEFAN-BOLTZMAN  CONSTANT. 

SURFACE  WIND  INTERPOLATION  COEFFICIENT. 

SURFACE  WIND  INTERPOLATION  COEFFICIENT. 

CPU  TIME  USED  FOR  ONE  TIME  STEP. 
TRANSMISSION  BY  ADDING  TWO  LAYERS. 
TRANSMISSION  BY  ADDING  TWO  LAYERS  (WITH 
ILLUMINATION  FROM  ABOVE). 

TRANSMISSION  BY  ADDING  TWO  LAYERS  (WITH 
ILLUMINATION  FROM  BELOW), 

SUMMATION  OF  S. 

FLUX  AT  THE  TOP  OF  A MODEL  LAYER  DUE  TO 
RADIATION  FROM  THE  SURFACE  LAYER, 

FLUX  AT  THE  TOP  OF  A MODEL  LAYER  DUE  TO 
RADIATION  FROM  THE  LAYER  BETWEEN  5 MB 
AND  t MB. 

AMOUNT  OF  WATER  VAPOR  ABOVE  A GIVEN  LEVEL. 

AMOUNT  OF  WATER  VAPOR  BETWEEN  TWO  ADJACENT 
LEVELS. 

SOLAR  CONSTANT. 

PROGNOSTIC  TEMPERATURE  FIELD,  USED  IN  MOST 
SUBROUTINES. 

CLIMATOLOGICAL  STRATOSPHERIC  TEMPERATURES 
FOR  APRIL. 

OPTICAL  THICKNESS  OF  CLOUDS  DUE  TO 
ABSORPTION. 

OPTICAL  THICKNESS  DUE  TO  CLOUD  PARTICLES 
IN  A GIVEN  LAYER. 

LOCAL  TEMPORARY  VARIABLE. 

OPTICAL  THICKNESS  OF  CLOUDS  DUE  TO 
SCATTERING. 

OPTICAL  THICKNESS  OF  SUPER -SATURATION 
CLOUDS. 

TEMPERATURE  AT  A STRATOSPHERIC  LEVEL. 
TEMPERATURE  DIFFERENCE  IN  MIXED  LAYER. 
LOCAL  TEMPORARY  VARIABLE. 

CHANGE  IN  CONDUCTION  OF  HEAT  THROUGH  SEA 
ICE  WITH  RESPECT  TO  GROUND  TEMPERATURE. 
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TEMP 

COMP  3 

CUMULO 

QSAT 

LOCAL  TEMPORARY  VARIABLE. 

TEMPU 

COMP3 

LOCAL  TEMPORARY  VARIABLE . 

TEMPV 

COMP  3 

local  temporary  variable. 

TEMPI 

OSOLAR 

SOLAR  1 

LOCAL  TEMPORARY  VARIABLE. 

TEMP  ID 

EXPBYK 

LOCAL  TEMPORARY  VARIABLE. 

TERM 

GEOKT 

LINKHO 

LOCAL  TEMPORARY  VARIABLE. 

TERMT 

QMSAVE 

COMP2 

GEOHT 

TERM  PASSED  FROM  GEOHT  TO  COMP 2 . 

TERMW 

QMSAVE 

COMP  2 
GEOHT 

TERM  PASSED  FROM  GEOHT  TO  COMP2 . 

TERM  1 

LINKHO 

LOCAL  TEMPORARY  VARIABLE  * 

TERM2 

COMP  3 
LINKHO 

SENSIBLE  HEAT  FLUX. 

LOCAL  TEMPORARY  VARIABLE. 

TERM3 

COMP  3 

LATENT  HEAT  FLUX . 

TERM4 

COMP  3 

HEATING  DUE  TO  CONDUCTION. 

TFK 

clouds 

LOCAL  TEMPORARY  VARIABLE. 

TG 

RADCOM 

COMP  3 

COMP35 

LINKHO 

GROUND  TEMPERATURE. 

TGR 

COMP 35 

GROUND  TEMPERATURE. 

TGSQ 

COMP3 

GROUND  TEMPERATURE  SQUARED. 

TH 

RADCOM 

COMMON 

COMP  3 

LINKHO 

GEOHT 

POTENTIAL  TEMERATURE. 

THETA 

COMP  3 

MEAN  POTENTIAL  TEMPERATURE. 

THG 

COMP  3 

LOCAL  TEMPORARY  VARIABLE. 

THSTD 

RDPARM 

DEPEND 

GEOHT 

THSTD2 

RDPARM 

DEPEND 

GEOHT 

THT9 

COMP  3 

POTENTIAL  TEMPERATURE  WITH  SURFACE  PRESSURE 
AS  A REFERENCE. 

TICE 

CNTRLP 

C0MP3 

COMP35 

CONSTA 

TEMPERATURE  AT  WHICH  ICE  MELTS. 

T INF 

LINKHO 

TOTAL  TRANSMISSION  FUNCTION. 

+ 1 t 

LINKHO 
031  NT 

TRANSMISSION  FUNCTION  OF  OZONE. 

TI2 

LINKHO 
031  NT 

TRANSMISSION  FUNCTION  OF  OZONE. 

TJAN 

5TRATM 

CLIMATOLOGICAL  STRATOSPHERIC  TEMPERATURES 
FOR  JANUARY. 

TJUL 

STRATM 

CLIMATOLOGICAL  STRATOSPHERIC  TEMPERATURES 
FOR  JULY. 

TL 

RADCOM 

COMP  3 
CUMULO 
LINKHO 
SOLAR T 

TEMPERATURE  USED  IN  PHYSICS. 

TLE 

RADCOM 

COMP  3 
LINKHO 

TEMPERATURE  AT  EDGE  LEVELS. 

tlowl 

RADCOM 

SOLAR  1 

OPTICAL  THICKNESS  OF  LOW* LEVEL  CLOUDS. 

TLTOP 

CNTRLP 

SOLAR  1 

temperature  at  atmospheric  MODEL  TOP. 

TM 

QMSAVE 

RESTQM 

SAVEQM 

TIMAVG 

TMAX 

QANDQT 

C0MP3 
INI TSD 

MAXIMUM  DAILY  SURFACE  TEMPERATURE. 

TMIDL 

RADCOM 

SOLAR  1 

OPTICAL  THICKNESS  OF  MIDDLE  LEVEL  CLOUDS . 

TWIN 

QANDQT 

C0MP3 
INI TSD 

MINIMUM  DAILY  SURFACE  TEMPERATURE. 

TN 

RADCOM 

CLOUDS 

INDIVIDUAL  CLOUD  LAYER  TRANSMISSIVITY. 

TNK 

CLOUDS 

TOTAL  CLOUD  TRANSMITTANCE. 

TNN 

CLOUDS 

TRANSMITTANCE  OF  A CLOUD  LAYER. 

TOCT 

STRATM 

CLIMATOLOGICAL  STRATOSPHERIC  TEMPERATURES 
FOR  OCTOBER. 

TOPA0S 

RADCOM 

SOLAR  t 
CLOUDS 

ABSORPTION  ABOVE  LEVEL  1. 

TOPQG1 

MfJTHLY 

DAILY 

ro 

u> 
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S ! 


T0P0G2 

MNTHLY 

GWSGCM 

DAILY 

TOTABS 

DSOLAR 

SOLAR  1 

TOTOCM 

OZONE2 

TOTOZ 

RADCOM 

OZONE2 

TOTOZI 

OZONE2 

TOTOZJ 

OZONE  2 

TOt 

LINKHO 

T02 

03 1 NT 
LINKHO 

T03 

031  NT 
LINKHO 

TP 

QPOLES 

03  I NT 

TPENE 

RADCOM 

SOLAR  1 

TRAD 

LINKHO 

TRAD  1 

LINKHO 

TRANS 

solari 

TRB 

LINKHO 

TRD 

LINKHO 

TRD3 

LINKHO 

TS 

QANDQT 

Q3INT 
COMP  3 

TS 

LINKHO 

TSTAR 

QSAT 

TSTD 

RCNTRL 

DEPEND 

TSURF 

DEFALT 

SMSHAP 

TT 

LINKHO 

TTM 

GWSGCM 

TTOP 

STAT  FUNC 

CLOUDS 

TTT 

LINKHO 

TUP 

DC0MP3 

COMP  3 

T 1 

LINKHO 

T2 

STRATM 

LINKHO 

U 

QANDQT 

STRATM 

UDN 

DCDMP3 

COMP  3 

UM 

0M5AVE 

REST  QM 

up 

QPOLES 

SAVEQM 

TIMAVG 

US 

D COMP 3 

COMP3 

UUP 

D COMP 3 

COMP3 

V 

QANDQT 

VAR 

LINKHO 

VDN 

DCOMP3 

C0MP3 

VER 

CCNTRL 

INPUT 

VERSAVE 

INPUT 

VM 

QMSAV6 

RESTQM 

VP 

QPOLES 

SAVEQM 

TIMAVG 

VS 

DC0MP3 

C0MP3 

VUP 

DCOMP3 

COMP  3 

w 

DSOLAR 

SOLARI 

WAVAMP 

clouds 

PRD  I AG 

WAVLEN 

PRD  I AG 

TOTAL  ABSORPTION  OF  SOLAR  RADIATION, 

TIME  INTERPOLATED  TOTAL  VERTICAL  AMOUNT 
OF  OZONE. 

TOTAL  VERTICAL  OZONE  AMOUNTS. 

LIMIT  USED  IN  VERTICAL  INTERPOLATION  OF 
OZONE . 

SAME  AS  TOTOZI . 

TRANSMISSION  FUNCTION  OF  OZONE, 

TRANSMISSION  FUNCTION  OF  OZONE. 

TRANSMISSION  FUNCTION  OF  OZONE. 

TEMPERATURE  AT  THE  POLES  * USED  IN  MOST 
SUBROUTINES. 

OPTICAL  THICKNESS  OF  PENETRATING  CLOUDS. 
TEMPERATURE  AT  A GIVEN  MODEL  RADIATION 
LEVEL. 

TEMPERATURE  AT  THE  1 MB  LEVEL  * 


TRANSMISSION  FUNCTION  OF  OZONE. 

TEMPERATURE  OF  THE  AIR  ABOVE  THE  SURFACE. 
TEMPERATURE  AT  THE  TOP  OF  THE  SURFACE 
LAVER , 

LOCAL  TEMPORARY  VARIABLE. 

STANDARD  TEMPERATURE  FOR  NORMALIZATION. 


SCALED  TEMPERATURE  AT  A MODEL  RADIATION 
LEVEL. 

CLOUD  TRANSMITTANCE  FUNCTION. 

TT  * TT. 

LOCAL  TEMPORARY  VARIABLE* 

TEMPERATURE  AT  THE  t MB  LEVEL. 

TEMPERATURE  AT  THE  5 MB  LEVEL. 

ZONAL  WIND  COMPONENT,  USED  IN  MOST 
SUBROUTINES, 

LOCAL  TEMPORARY  VARIABLE. 


ZONAL  WIND  COMPONENT  AT  THE  POLES , USED  IN 
MOST  SUBROUTINES. 

ZONAL  SURFACE  WIND  COMPONENT. 

LOCAL  TEMPORARY  VARIABLE. 

MERIDIONAL  WIND  COMPONENT,  USED  IN  MOST 
SUBROUTINES. 

INTEGRAL  QUANTITY  USED  IN  OPTICAL  DEPTH 
CALCULATION. 

LOCAL  TEMPORARY  VARIABLE. 

MODEL  VERSION  IDENTIFICATION. 

EQUAL  TO  VER. 


MERIDIONAL  WIND  COMPONENT  AT  THE  POLES,  USED 
IN  MOST  SUBROUTINES. 

MERIDIONAL  SURFACE  WIND  COMPONENT „ 

LOCAL  TEMPORARY  VARIABLE. 

SCALED  WATER  VAPOR  AMOUNT  IN  A SLANT  PATH. 

VIA VE  AMPLITUDE. 

WAVE  LENGTH. 
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WAVPCT 

WAVPER 

WET 

WK 

WMAG 

WMAGC 

WMAGS 

WORK1 

WEAVE 


WTRINF 

WW 

X 

XD 

XDAY 


XK 

XKK 

XL ABEL 
XLAT 


HORDS 


XORDU 


XSA 

XUA 

XX 

XY 

YY 

Z 

ZLN 

ZLNCO 


radcom 

DCOMP3 

DCOMP3 

DCOMP3 

COMMON 

RDPARW 

□SOLAR 

CNTRLP 

RADCOM 

CCNTRL 

CORDER 

CORDER 

COMMON 

COMMON 

DCOMP3 

CNTRLP 


PRDI AG 

PRD  I AG 

COMP  3 

COMP35 

CLOUDS 

CQMP3 

COMP3 

C0MP3 

GWSGCM 

AVRX 

DEPEND 

FRDIAG 

LINKHO 

SOLAR  1 

LINK HO 
031  NT 
EXPBYK 
CONSTA 
OZONE2 
SOLAR t 
CLOUDS 
CLOUDS 
DEFALT 
OZONE  2 
RADIO 
SOLAR  1 

conhtr 

DEFALT 

IOQ 

CONHTR 

DEFALT 

IOQ 

CONHTR 

CONHTR 

LINKHO 

SOLAR  1 

LINKHO 

LINKHO 

COMP  3 

C0W1P3 

COMP  3 

CONSTA 


GROUND  WETNESS. 


WIND  SPEED  AT  GROUND, 

WIND  SPEED  AT  GROUND  CUBED. 
WIND  SPEED  AT  GROUND  SQUARED. 

WORK  SPACE, 


TOTAL  TRANSMISSION  FUNCTION. 

SCALED  MOISTURE  AMOUNT  FOR  REFLECTED 
RADIATION. 

DATA  USED  IN  PLANCK'S  FUNCTION. 

LOCAL  TEMPORARY  VARIABLE. 

SOLAR  DAY  OF  THE  YEAR. 


ABSORPTION  COEFFICIENT  OF  CLOUDS. 

EXPERIMENT  DESCRIPTION  LABEL. 
LATITUDE. 

CHARACTERS  FOR  SURFACE  VARIABLES  - 
CHARACTERS  FOR  UPPER  AIR  VARIABLES. 


LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE, 
LOCAL  TEMPORARY  VARIABLE. 
TOPOGRAPHICAL  HEIGHT. 
THICKNESS  OF  PBL . 

PBL  THICKNESS  COEFFICIENT. 
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CHAPTER  III 


CODE  LISTING 


«EFW  1 


PROGRAM  GWSGCM  < I NPUT , OUT PUT , 
UNI T3  = OUTPUT , 


UNI  T9- EXXXXHT5.  UMIT1 i - TEMPNL 
UNIT14=EXXXKRS2,  UN  I T4 1 = TOPOG  * 
UNI T43  = ALBEDO,  UN  I T55=WUDATA , 

UNI T15-RSPROC  » 

UN I T 6 0 = E X P NUM > 


UNIT5-EXXXXNL  * UNI T6  = 0UTPUT, 
UNI  T 1 I =TEMPNL  r UNI T1 2-EXXXKRS1 


UN  I T42-GRWET  , 
UNIT56=KRDATA« 


GODDARD  MODELING  AND  SIMULATION  FACILITY 
fourth-order  general  CIRCULATION  MODEL 


M/A-COM  SIGMA  DATA  INC.  NASA 


MOST  ROUTINES  OPERATE  ON  ONE  LATITUDE  BAND  AT  A TIME 
SEE  MODEL  TECHNICAL  DOCUMENTAT I ON  FOR  EXTENSIVE  DETAILS 


EXTERNAL  REFERENCES  AND  COMMON  USAGE 


ICfOjGlwrcjR'DjQlWPjO  DjMjCjW  I 
N A P O N A S M O C C C N O O I 
T NOR  T D O S R O O U T R R i 
R D L K R C L A K'H  H 0 K f 


L Q E 1 L O A V F 


AOOQ 

AVRX 

BLOCKD 

CLOCKS 

CLOUDS 

COMPO 

COMP  I 

COMP  2 

COMP3 

C0MP35 

CONSTA 

COP  YO 

CULULO 

DAILY 

DATE 

DEFALT 

DEPEND 

DIFFQ 

F I L F F T 

GEOHT 

GWSGCIU 

INCH MS 

INCVMD 

INITSD 

INPUT 

IOQ 

LINKHO 

MSGOP 

OZONE2 

FMEAN 

POL  I NP 

PRDIAG 

Q5MAPIN 

050PEN 

RADIO 

RESTGM 

SAVEQM 

SCALEQ 

SHCORN 

SMSHAP 

SOLAR  1 


T S D P PA  R E L 


Xf XjXl 

* x I* 

A i r 


m jivijn  v , n.  i 

PUL  E P I 

3 L V P K 

I I t * I 


! i 

x k| 

XXX 


X X 
X X X 
XX 


XXX 
X X j 


X X 

xxx 

K X 


X X 
X X X 
XX  X 
X X X 
X X X 
X X X X 


SGWSGCM  2 
SGV/SGCM  3 
, SGWSGCM  4 
SGWSGCM  5 
SGWSGCM  6 
SGWSGCM  7 
SGWSGCM  S 
* • SGWSGCM  9 
^SGWSGCM  10 

* * SGWSGCM  11 

SGV/SGCM  12 
* SGWSGCM  13 

* * SGWSGCM  1 4 

SGWSGCM  15 
SGWSGCM  16 
SGWSGCM  17 
SGWSGCM  18 
SGWSGCM  19 
SGV/SGCM  20 
SCNTCOM  2 
SCNTCOM  3 
— SCNTCOM  4 
SCNTCOM  5 
SCNTCOM  6 
SCNTCOM  7 
SCNTCOM  8 
SCNTCOM  9 
SCNTCOM  10 
SCNTCOM  1 1 
= =SCNT  COM  12 
SCNTCOM  13 
SCNTCOM  14 
SCNTCOM  15 
SCNTCOM  16 
SCNTCOM  17 
SCNTCOM  18 
SCNTCOM  19 
SCNTCOM  20 
SCNTCOM  21 
; SCNTCOM  22 
1 SCNTCOM  23 
SCNTCOM  24 
SCNTCOM  25 
SCNTCOM  26 
SCNTCOM  27 
SCNTCOM  28 
SCNTCOM  29 
SCNTCOM  30 
SCNTCOM  31 
! SCNTCOM  32 
SCNTCOM  33 
SCNTCOM  34 
SCNTCOM  35 
SCNTCOM  36 
SCNTCOM  37 
SCNTCOM  38 
SCNTCOM  39 
SCNTCOM  40 
SCNTCOM  41 
SCNTCOM  42 
SCNTCOM  43 
SCNTCOM  44 
SCNTCOM  45 
SCNTCOM  46 
SCNTCOM  47 
SCNTCOM  48 
SCNTCOM  49 
SCNTCOM  50 
SCNTCOM  51 
SCNTCOM  52 
SCNTCOM  53 
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C 

C DATASET  REQUIREMENTS 
C D5RN  3 PRIMARY  MODEL  PRINTOUT 

C DSRN  5 INPUT  CONTROL  NAMELISTS 

C DSRN  6 DEBUG  AND  ERROR  PRINTOUT 

C DSRN  S OUTPUT  MODEL  HISTORY  FILE  SEGMENT 

C DSRN  11  TEMPORARY  READ/WRITE  FILE  FOR  NAMELISTS  COPY 

C DSRN  12  RESTART  FILE  (HAS  INITIAL  CONDITIONS  FOR  THE  RUN) 

C DSRN  14  RESTART  FILE 

C DSRN  IS  FILE  WITH  PROC  TO  SEND  PROPER  RESTART  TO  FRONT  END 

C DSRN  41  INPUT  CLIMATOLOGICAL  TOPOGRAPHY 

C DSRN  42  INPUT  CLIMATOLOGICAL  GROUND  WETNESS 

C DSRN  43  INPUT  CLIMATOLOGICAL  ALBEDO 

C DSRN  55  INPUT  WU  RADIATION  DATA 

C DSRN  56  INPUT  KRI SHNAMURTH Y RADIATION  DATA 

C DSRN  60  INPUT  CARD  IMAGE  WITH  COMPUTATION  CUT-OFF  TIME 

C 
C 

C EX  r T ERROR  CONDITIONS 

C QO  REQUESTED  END  TIME  REACHED 

C 01  MAXIMUM  RECORDS  ON  DISK  REACHED 

C 05  COMPUTATION  CUT-OFF  TIME  EXCEEDED 

C 06  SENSE  SWITCH  6 ON 

C 08  I/O  ERROR  OR  REQUESTED  START  TIME  NOT  FOUND 

C 12  MODEL  DIAGNOSTIC 


c 

16 

TERMINATION  VIA  FORTRAN  EXTENDED  ERROR  FACILITY 

V* 

C 

CHARACTER 

MODEL 

PARAMETERS  SAVED  ON  HISTORY  RECORD 

c 

CC! 

1 > 

cco 

r CDC  ' FOR  CDC  READABLE  RECORDS 

c 

9 IBM  ' FOR  ISM  READABLE  RECORDS 

c 

CC< 

2) 

ADATE 

MM/DD/YY  FOR  CURRENT  RUN 

C 

cc< 

3) 

ATJME 

HH . MM.SS  FOR  CURRENT  RUN 

c 

ccc 

4) 

die 

EXPERIMENT  IDENTIFIER  FROM  INITIAL  CONDITIONS 

c 

CCf 

5) 

JOB 

EXPERIMENT  IDENTIFIER 

c 

CC( 

6)- 

c 

CC( 

8) 

SPARES 

c 

cc< 

S) 

VER 

MODEL  VERSION  IDENTIFICATION 

c 

CC( 

10)- 

c 

CC( 

19) 

X LABEL 

EXPERIMENT  DESCRIPTION 

c 

cc< 

20)- 

c 

r1 

CC( 200) 

SPARES 

c 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

c 

IC( 

! ) 

ICO 

SPARE 

c 

IC< 

2) 

IM 

NUMBER  OF  GRID  POINTS  PER  LATITUDE  CIRCLE 

c 

IC( 

3 ) 

JMD2 

IM  / 2 

c 

rc( 

4) 

IMD2P1 

t IM  / 2)  + 1 

c 

IC( 

5) 

NDRSW 

HHMM5S  INCREMENT  FOR  RESTART  WRITE 

c 

icf 

6) 

dM 

NUMBER  OF  LATITUDE  BANDS  IN  GRID 

c 

IC( 

7) 

JMD2 

( JM  * J ) / 2 

c 

ICI 

a> 

dMT2 

dM  * 2 

c 

IC  t 

g ) 

dNP 

JM  + T (NORTH  POLE  INDEX) 

c 

ICf 

10) 

J04 

LATITUDE  BAND  NUMBEn  OF  LIMIT  FOR  4 ' TH  ORDER 

c 

SHAPIRO  FILTER 

c 

IC( 

1 1 ) 

JOS 

LATITUDE  BAND  NUMBER  OF  LIMIT  FOR  8'TH  ORDER 

c 

SHAPIRO  FILTER 

c 

IC( 

! 2 ) 

JSP 

1 fSOUTH  POLE  INDEX) 

c 

ICf 

13) 

KLIALB 

ALBEDO  CLIMATOLOGY  FLAG: 

(SCNTCOM  54 
SCNTCOM  55 
SCNTCOM  56 
{SCNTCOM  57 
== SCNTCOM  53 
(SCNTCOM  59 
SCNTCOM  60 
SCNTCOM  61 
SCNTCOM  62 
SCNTCOM  53 
SCNTCOM  64 
[ SCNTCOM  65 
s-SCWTCOM  66 
SCNTCOM  67 
SCNTCOM  68 
SCNTCOM  63 
SCNTCOM  70 
SCNTCOM  71 
SCNTCOM  72 
SCNTCOM  73 
SCNTCOM  74 
SCNTCOM  75 
SCNTCOM  76 
SCNTCOM  77 
SCNTCOM  73 
SCNTCOM  79 
SCNTCOM  SO 
SCNTCOM  81 
SCNTCOM  82 
SCNTCOM  B3 
SCNTCOM  Q4 
SCNTCOM  85 
SCNTCOM  SG 
SCNTCOM  B7 
SCNTCOM  8B 
SCNTCOM  89 
SCNTCOM  90 
SCNTCOM  91 
SCNTCOM  92 
SCNTCOM  93 
SCNTCOM  94 
SCNTCOM  95 
SCNTCOM  96 
SCNTCOM  97 
SCNTCOM  98 
SCNTCOM  99 
SCNTCOM 100 
SCNTCOM! 01 
SCNTCOM  t 02 
SCNTCOM 103 
SCNTCQMl 04 
SCNTCOM 105 
SCNTCDM1 06 
SCNTCOM 107 
SCNTCQMl OS 
SCNTCOM 109 
SCNTCOM 1 10 
SCNTCQMl 1 1 
SCNTCQMl 12 
SCNTCOM  t 13 
SCNTCOM! 14 
SCNTCQMl  T 5 
SCNTCQMl  16 
SCNTCQMl 17 
SCNTCOM! 18 
SCNTCOM 1 19 
SCNTCOM 120 
SCNTCQMl 2 ! 
SCNTCOM 1 22 
SCNTCOM 1 23 
SCNTCQMl 24 
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ICC 

14) 

kligw 

0 - INITIAL  CONDITIONS 

1 - MONTHLY  UPDATE 

2 - TIME  INTERPOLATION 

GROUND  WETNESS  CLIMATOLOGY  FLAG: 

SCNTCOM 125 
SCNTC0M1 26 
SCNTCOM! 27 
SCNTCOM 128 

ICC 

15) 

KLISST 

0 - INITIAL  CONDITIONS 

1 - MONTHLY  UPDATE 

2 - TIME  INTERPOLATION 

SEA  SURFACE  TEMPERATURE  CLIMATOLOGY  FLAG: 

SCNTCOM 129 
5CNTCOM130 
SCNTC0M1 31 
SCNTCOM132 

ICC 

16) 

KS 

0 - INITIAL  CONDITIONS 

1 - MONTHLY  UPDATE 

2 - TIME  INTERPOLATION 
NUMBER  OF  SURFACE  FIELDS 

SCNTC0M1 33 
SCNTCOM 134 
SCNTCOM 1 35 
SCNTCOM  T 36 

IC< 

17) 

KU 

NUMBER  OF  UPPER-AIR  FIELDS 

SCNTCOM 137 

ICC 

18) 

LOG8R 

TYPE  OF  RECORD 

SCNTC0M133 

I C < 

19) 

MATIN 

ICf 

20) 

MATSNX 

ICf 

2 1 ) 

MAT SUN 

ICf 

22)- 

I C 1 

: 33) 

MLF 

IC( 

34) 

MROD 

IC( 

35) 

NKRSH 

rc( 

36) 

MSM 

ICf 

37) 

NB 

ICf 

38) 

ND 

ICf 

39) 

NDALT 

ICf 

40) 

NDAY 

ICf 

41  ) 

NDOUT 

ICf 

42) 

NDPHY 

ICf 

43) 

NDSMP 

ICf 

44) 

NDT 

ICf 

45) 

NHMS 

ICf 

46) 

NHMSE 

ICf 

47) 

NHMSO 

ICf 

4B) 

NLAY 

ICf 

49) 

NLAYM1 

ICf 

50) 

NLAYP1 

ICf 

51) 

NSDAY 

ICf 

52) 

NSEQ 

ICf 

53) 

NSSHF 

ICf 

54) 

NSTEP 

let 

55) 

ICf 

56) 

NYMD 

ICf 

57) 

NYMDE 

ICf 

58) 

WYMDO 

ICf 

59) 

NZINIT 

ICf 

60) 

NMLEV 

ICf 

61  ) 

NDHOG 

ICf 

62)- 

I C ( 200 ) 

- *•  * 

LOGICAL 

MODEL  PAF 

LC( 

1 J 

LCO 

LCf 

2 ) 

QALT 

LC  ( 

3) 

QBEG 

LCf 

4) 

QDAY 

LCf 

5) 

QEND 

0 - RESTART  f FOST-ANALYSI S ) V8RSTR 

-t  - RESTART  f PRE-ANALYSIS)  VBRSTR 

2 - HISTORY  ( POST  ANALYSIS)  VSSIG 

1 - HISTORY  < PRE-ANALYSIS)  VSSIG 

4 - VSMAND  (POST-ANALYSIS)  VSMAND 

3 - VBMAND  (PRE-ANALYSIS)  VBMAND 

NUMBER  OF  MATSUNO  STEPS  TO  INTEGRATE  BEFORE 
ENTERING  REGULAR  CYCLE 

NEXT  TIME-STEP  SCHEME  f 0 “LEAPFROG,  1=rMAT5UN0) 
CURRENT  TIME-STEP  SCHEME  < 0 = LEAPFROG  * 1=MATSUNO) 

TIME-STEP  FLAGS  FOR  A COMPLETE  SEQUENCE 
LENGTH  OF  SEQUENCE  GIVEN  BY  NSEQ  < 13 
f 0 = LEAPFROG , 1 =MAT5UN0) 

MAXIMUM  ALLOWABLE  NUMBER  OF  LOGICAL  RECORDS  TO 
WRITE  TO  EXXXXHTS 

FLAG  FOR  RESTART  RECORD  WRITE  TO  HISTORY 
NUMBER  OF  BANDS  TO  KEEP  IN  STORAGE  AT  ONE  TIME 
INDEX  OF  CURRENT  TIME-STEP  FIELDS 
INDEX  OF  PREVIOUS  TIME-STEP  FIELDS 
TIME  INCREPAENT  TO  INVOKE  ANALYSIS  IN  HHMM5S  FORM 
CURRENT  JULIAN  DAY 

TIME  INCREMENT  TO  WRITE  HISTORY  RECORDS  IN 
HHMMSS  FORM 

TIME  INCREMENT  TO  INVOKE  PHYSICS  IN  HHMMSS  FORM 

TIME  INCREMENT  TO  INVOKE  SHAPIRO  FILTER  IN 

HHMMSS  FORM 

TIME-STEP  IN  SECONDS 

CURRENT  MODEL  TIME  in  HHMMSS  FORM 

ENDING  TIME  IN  HHMMSS  FORM 

BEGINNING  TIME  IN  HHMMSS  FORM 

NUMBER  OF  VERTICAL  LAYERS  IN  GRID 

NLAY  - 1 

NLAY  + 1 

CURRENT  TIME  OF  MODEL  DAY  IN  SECONDS 
NUMBER  OF  STEPS  IN  A COMPLETE  TIME-STEP  SEQUENCE 
NUMBER  OF  TIME-STEPS  BETWEEN  CALLS  TO  THE 
SHAPIRO  FILTER 

TIME  STEPS  SINCE  INITIAL  START 
SPARE 

CURRENT  MODEL  DATE  IN  YYMMDD  FORM 
ENDING  DATE  IN  YYMMDD  FORM 
BEGINNING  DATE  IN  YYMMDD  FORM 
GRAVITY  WAVE  INITIALIZATION  FLAG: 

0 - NO  INITIALIZATION  WAS  DONE 

NUMBER  OF  MANDATORY  PRESSURE  LEVELS 
INCREMENT  BETWEEN  CALLS  TO  LONG  WAVE  RADIATION 
IN  HHMMSS  FORM 

SPARES 


T IF  NEXT  RECORD  IS  V8RSTR 
T IF  CURRENT  TIME-STEP  IS  ANALYSIS  STEP 
T IF  CURRENT  STEP  IS  THE  INITIAL  STEP 
T IF  THE  CURRENT  STEP  IS  THE  FIRST  STEP  OF  A DAY 
T IF  THE  CURRENT  STEP  IS  THE  LAST  STEP 


SCNTCQM1 39 
SCNTCOM 140 
SCNTC0M141 
SCNTCOM 142 
SCNTCOM 143 
SCNTC0M144 
SCNTCOM 145 
SCNTC0M146 
5CNTC0M147 
SCNTC0M14S 
SCNTCOM (49 
SCNTCOM 150 
SCNTC0M15  T 
SCNTCOM152 
SCNTCOM 153 
5CNTCQMT54 
SCNTCOM 155 
SCNTCOM 1 56 
SCNTC0M157 
SCNTCOM 1 SB 
SCNTCOM159 
SCNTC0M160 
SCNTCOM I 6 1 
SCNTCOM 1 62 
SCNTCOM 163 
SCNTCOM 164 
SCNTCOM 165 
SCNTCOM 166 
SCNTCOM 167 
SCNTCOM 168 
SCNTCOM 169 
SCNTCOM I 70 
5CNTC0M171 
5CNTC0M1 72 
SCNTCOMt  73 
SCNTCOM 1 74 
SCNTC0M1 75 
SCNTCGM176 
SCNTCOM 177 
SCNTCOM 17B 
SCNTC0M179 
SCNTCOM 1 80 
SCNTCOM (B1 
SCNTCOM 1 S2 
SCNTC0M1 S3 
SCNTCOM! B4 
SCNTCOM  T85 
SCNTCOM 1 S6 
SCNTCOM 1 S7 
scNTCOMiaa 
5CNTCOM189 
SCNTCOM  1 90 
SCNTC0M19T 
5CNTC0M192 
SCNTCOM 193 
SCNTCOM 194 
SCNTCOM 195 
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r 

r 

f 

1 

c 

LC  { 

6) 

\ ' ' 

QOUT 

2 l ' ■ *.  ■ ■ • 

T IF  THE  CURRENT  STEP  IS  WRITTEN  TO  THE  HISTORY 

SCNTCOM 196 

c 

LC( 

7) 

FILE 

SCNTC0M197 

c 

QPHY 

T IF  THE  CURRENT  STEP  IS  A PHYSICS  STEP 

SCNTCOM198 

c 

LC  f 

8) 

QSHP 

T IF  THE  CURRENT  STEP  IS  A SHAPIRO  FILTER  STEP 

SCNTC0M199 

! 

c 

LC  f 

9) 

SN2FLG 

T IF  THE  SIN  * * 2 PBL  SIGMA  PROFILE  IS  USED 

SCNTCOM200 

c 

LC( 

10) 

QH5W 

T IF  CURRENT  STEP  TO  BE  WRITTEN  TO  RESTART 

SCNTCOM201 

c 

LC< 

1 J ) 

QRSH 

T IF  CURRENT  STEP  RESTART  TO  BE  WRITTEN  TO  HIST 

5CNTCOM202 

i 

c 

LCf 

12)- 

SCNTCOM203 

r 

c 

LC{ 200) 

spares 

SCNTCOM204 

L 

c 

*•  * 

SCNTC0M205 

k 

c 

REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTCOM206 

c 

RC  < 

1 ) 

RCO 

SPARE 

SCNTCOM207 

c 

RC< 

2) 

APHEL 

DAY  OF  THE  YEAR  OF  THE  APOGEE  OF  THE  EARTH'S 

SCNTCOM20S 

c 

ORBIT 

SCNTCQM209 

c 

RC< 

3 ) 

BETA 

MOIST  ADIABATIC  LAPSE  RATE 

SCNTC0M21O 

; 

1 

c 

rci 

4) 

COED 

COSINE  OF  SOLAR  DECLINATION 

SCNTCOM21 1 

c 

RC  ( 

5) 

CP 

SPECIFIC  HEAT  OF  AIR 

SCNTC0M2 1 2 

4 

■ 1 

c 

RC( 

6) 

DAYSPY 

NUMBER  OF  DAYS  IN  A YEAR 

SCN7COM2 1 3 

1 

; 

c 

RC  f 

7) 

DEC 

CURRENT  DECLINATION  OF  THE  EARTH 

SCNTC0M2 1 4 

i 

c 

RC  f 

3} 

DFCMAX 

MAXIMUM  DECLINATION  OF  THGE  EARTH 

SCNTC0M2I5 

E: 

c 

RC  r 

9) 

□ 1ST 

CURRENT  DISTANCE  OF  THE  EARTH  WITH  RESPECT  TO 

SCNTCOM216 

5 

c 

THE  APOGEE 

SCNTCOM217 

1 

0 

RC  1 

10) 

DLAT 

NORTH-SOUTH  GRID  DISTANCE  IN  RADIANS 

SCNTC0M2 18 

c 

RC  ( 

1 1 ) 

DLON 

EAST-WEST  GRID  DISTANCE  IN  RADIANS 

SCWTC0M219 

j 

c 

RC  f 

12) 

DT 

MODEL  TIME-STEP  IN  SECONDS 

SCNTCOM220 

c 

RC  ( 

13) 

ECCN 

ECCENTRICITY  OF  PLANETARY  ORBIT 

SCNTCOM221 

;5 

‘ 

c 

RC  f 

14) 

GNU  1 

CENTER  TERM  FOR  TIME  AVERAGING  USED  WITH 

5CNTCOM222 

c 

LEAPFROG  SCHEME 

SCNTCOM223 

l\ 

c 

RC  f 

15) 

GNU2 

OUTER  TERM  FOR  TIME  AVERAGING  USED  WITH 

SCNTCDM224 

c 

LEAPFROG  SCHEME 

SCNTCOM225 

c 

RC( 

16) 

GRAV 

GRAVITATIONAL  ACCELERATION 

SCNTC0M22G 

l 

c 

RC  { 

T7) 

0MEGA2 

TWICE  THE  ANGULAR  VELOCITY  OF  THE  PLANET 

SCNTC0M227 

T,1 

V 

c 

RC  f 

18) 

PI 

CONSTANT  - ACOS (-1*0) 

SCNTCOM22S 

K 

c 

RC  ( 

19) 

piiao 

CONVERSION  FACTOR  PI  / 180,0 

SCNTC0M229 

l i 

c 

RC  { 

20) 

P 1 2 

CONSTANT  = 2.0  * PI 

SCNTCOM230 

P ; 

c 

RC  f 

21  ) 

PSTD 

REFERENCE  PRESSURE  FOR  NORMALIZATION 

SCNTC0M231 

v ; 

c 

RC  ( 

22) 

PIMEAN 

GLOBAL  MEAN  REFERENCE  PRESSURE 

SCNTCOM232 

* 

c 

RC  ( 

23) 

PSMAX 

MAXIMUM  ALLOWABLE  REFERENCE  PRESSURE 

SCNTC0M233 

[ 

U 

c 

RC  ( 

24) 

PSMIN 

MINIMUM  ALLOWABLE  REFERENCE  PRESSURE 

SCNTCOM234 

! 

1 ! 

c 

RC( 

25) 

PTOP 

PRESSURE  AT  TOP  OF  MODEL  ATMOSPHERE 

SCNTCOM235 

* 

1 1 

c 

RC  < 

2S  J 

RADE 

PLANETARY  RADIUS 

SCNTC0M236 

i 

c 

RC  f 

27  ) 

RGAS 

GAS  CONSTANT  FDR  DRY  AIR 

SCNTCQM237 

1 

f ; 

c 

RC  < 

28  > 

ROCP 

GAS  CONSTANT  DIVIDED  BY  SPECIFIC  HEAT  OF  AIR 

SCNTC0M238 

* 

\ : 

c 

ROCP  = RGAS  / CP 

SCNTC0M239 

r 

V 

c 

RC  f 

29  ) 

RSDIST 

SQUARE  OF  DISTANCE  FROM  SUN 

SCNTC0M24C 

X 

c 

RC( 

30) 

SDAY 

NUMBER  OF  SECONDS  PER  DAY 

SCNTCOM241 

jt 

1 

G 

RC  f 

3 1 ) 

SEASON 

CURRENT  POSITION  OF  THE  EARTH  WITH  RESPECT  TO 

SCNTCOM242 

c 

SUMMER  SOLSTICE 

SCNTC0M243 

* 

J1 

c 

RC< 

32)- 

SCNTCOM244 

c 

RC  f 

58) 

SIGE 

LAYER  INTERFACE  SIGMA  VALUES 

SCNTC0M245 

8 

c 

RC  ( 

57) 

SIND 

SINE  OF  SOLAR  DECLINATION 

SCNTC0M246 

K 

t 

c 

RC  f 

53) 

SOLS 

DAY  OF  THE  YEAR  OF  MAXIMAL  DECLINATION 

SCNTCOM247 

£.  . 

c 

RC  t 

59) 

TBAR 

STANDARD  TEMPERATURE  FOR  NORMALIZATION 

SCNTC0M24S 

B 

I 

c 

RC  f 

60  ) - 

SCNTC0M249 

( 

c 

RC  f 

84) 

DSIG 

THICKNESS  OF  VERTICAL  LAYERS 

SCNTC0M250 

i 

c 

RC  f 

85) 

5CNTCOM25 1 

c 

RC ( 109) 

SIG 

MID  LAYER  SIGMA  VALUES 

SCNTCOM252 

j, 

) 

c 

RC 1 110)- 

SCNTC0M253 

i 

c 

RC  f 134) 

PLEV5 

ARRAY  OF  NMLEV  MANDATORY  PRESSURE  LEVELS 

SCNTCOM254 

c 

RCt 135)- 

5CNTCOM255 

j 

c 

RC<  200) 

SPARES 

SCNTCOM256 

i 

c 

SCNTCOM257 

5 

c 

SCNTRL  2 

c 

o 

CHARACTER 

MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL  3 
SCNTRL  4 
SCNTRL  5 

■ 

00002 

COMMON 

/CCNTRL/ 

CCO 

00003 

COMMON 

/CCNTRL/ 

ADATE 

SCNTRL  6 

00004 

COMMON 

/CCNTRL/ 

ATIME 

SCNTRL  7 

.j 

00005 

COMMON 

/CCNTRL/ 

UIC 

SCNTRL  8 

j 

00003 

common 

/CCNTRL/ 

JOB 

SCNTRL  9 

00007 

COMMON 

/CCNTRL/ 

CCSP06 

SCNTRL  10 

o 

s 

n 

§ 


M 


O Q 

•gi 

O 

C g 
p 

iO  -g 
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> S3 
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&9 


3m  w t:  ■ v - 
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L 


aooos 

COMMON 

/CCNTRL/ 

CC5P07 

SCNTRL 

1 1 

00009 

COMMON 

/CCNTRL/ 

CC5P0S 

SCNTRL 

1 2 

00010 

COMMON 

/CCNTRL / 

VER 

SCNTRL 

13 

000  1 1 

common 

/CCNTRL/ 

*LABEL  MO) 

SCNTRL 

14 

00012 

COMMON 

/CCNTRL/ 

CQS  (30) 

SCNTRL 

15 

00013 

COMMON 

/CCNTRL/ 

cqu  r i o > 

SCNTRL 

16 

c 

SCNTRL 

17 

00014 

EQUIVALENCE 

[ CCO , CC  f 1 J ) 

SCNTRL 

18 

00015 

CHARACTER'S 

CCO,  CC { 200 ) 

SCNTRL 

19 

00016 

CHARACTER  *8 

ADATE 

SCNTRL 

20 

00017 

CHARACTERS  B 

ATIME 

SCNTRL 

21 

0001S 

CHARACTER'S 

JIC 

SCNTRL 

22 

00019 

CHARACTERS 

UOB 

SCNTRL 

23 

00020 

CHARACTERS 

CCSP06 

SCNTRL 

24 

00021 

characters 

CCSP07 

SCNTRL 

25 

00022 

CHARACTER  **8 

CCSP08 

SCNTRL 

26 

00023 

CHARACTERS 

VER 

SCNTRL 

27 

00024 

CHARACTERS 

XLABEL 

SCNTRL 

28 

c 

SCNTRL 

29 

c 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

30 

c 

SCNTRL 

31 

00025 

COMMON 

/JCNTRL/ 

ICO 

SCNTRL 

32 

00026 

COMMON 

/ ICNTRL/ 

IM 

SCNTRL 

33 

00027 

COMMON 

/ ICNTRL/ 

IMD2 

SCNTRL 

34 

00028 

COMMON 

/ICNTRL/ 

IMD2P1 

SCNTRL 

35 

00029 

COMMON 

/ICNTRL/ 

NDRSW 

SCNTRL 

36 

00030 

COMMON 

/ICNTRL/ 

JM 

SCNTRL 

37 

00031 

COMMON 

/ICNTRL/ 

JMD2 

SCNTRL 

38 

00032 

COMMON 

/ICNTRL/ 

JMT2 

SCNTRL 

39 

00033 

COMMON 

/ICNTRL/ 

JNP 

SCNTRL 

40 

00034 

COMMON 

/ICNTRL/ 

J04 

SCNTRL 

41 

00035 

COMMON 

/ICNTRL/ 

JOB 

SCNTRL 

42 

00036 

COMMON 

/ICNTRL/ 

JSP 

SCNTRL 

43 

00037 

COMMON 

/ICNTRL/ 

KLIALB 

SCNTRL 

44 

00038 

COMMON 

/ICNTRL/ 

KLIGW 

SCNTRL 

45 

00039 

COMMON 

/ICNTRL/ 

KLISST 

SCNTRL 

46 

00040 

COMMON 

/ICNTRL/ 

KS 

SCNTRL 

47 

0004  1 

COMMON 

/ICNTRL/ 

KU 

SCNTRL 

48 

00042 

COMMON 

/ICNTRL/ 

LOG8R 

SCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

MATIN 

SCNTRL 

50 

00044 

COMMON 

/ICNTRL/ 

MAT5NX 

SCNTRL 

51 

00045 

COMMON 

/ICNTRL/ 

MATSUN 

SCNTRL 

52 

00046 

COFdMON 

/ICNTRL/ 

MLF  M2) 

SCNTRL 

s: 

00047 

COMMON 

/ICNTRL/ 

MROD 

SCNTRL 

54 

00048 

COMMON 

/ICNTRL/ 

NKRSH 

SCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

MSM 

SCNTRL 

56 

00050 

COMMON 

/ICNTRL/ 

NB 

SCNTRL 

57 

0005  1 

COMMON 

/ICNTRL/ 

ND 

SCNTRL 

58 

00052 

COMMON 

/ICNTRL/ 

NDALT 

SCNTRL 

59 

00053 

COMMON 

/ICNTRL/ 

NOAY 

SCNTRL 

60 

00054 

COMMON 

/ICNTRL/ 

ndout 

SCNTRL 

61 

00055 

COMMON 

/ICNTRL/ 

NDPHY 

SCNTRL 

62 

00056 

COMMON 

/ICNTRL/ 

NDSHF 

SCNTRL 

63 

00057 

COMMON 

/ICNTRL/ 

NDT 

SCNTRL 

64 

00058 

COMMON 

/ICNTRL/ 

NHMS 

SCNTRL 

65 

00059 

COMMON 

/ICNTRL/ 

NHMSE 

SCNTRL 

66 

00060 

COMMON 

/ICNTRL/ 

NHMSO 

SCNTRL 

67 

00061 

COMMON 

/ICNTRL/ 

NLA  Y 

SCNTRL 

68 

00062 

COMMON 

/ICNTRL/ 

NLAYM1 

SCNTRL 

69 

00063 

COMMON 

/ICNTRL/ 

NLA YP 1 

SCNTRL 

70 

00064 

COMMON 

/ICNTRL/ 

NSDAY 

SCNTRL 

71 

00065 

COMMON 

/ICNTRL/ 

NSEO 

SCNTRL 

72 

00066 

COMMON 

/ICNTRL/ 

ICSP53 

SCNTRL 

73 

00067 

COMMON 

/ICNTRL/ 

NSTEP 

SCNTRL 

74 

00066 

COMMON 

/ICNTRL/ 

ICSP55 

SCNTRL 

75 

00069 

COMMON 

/ICNTRL/ 

NYMD 

SCNTRL 

76 

00070 

COMMON 

/ICNTRL/ 

NYMDE 

SCNTRL 

77 

00071 

COMMON 

/ICNTRL/ 

NYMDO 

SCNTRL 

78 

00072 

COMMON 

/ICNTRL/ 

NZINIT 

SCNTRL 

79 

00073 

COMMON 

/ICNTRL/ 

NMLEV 

SCNTRL 

80 

00074 

COMMON 

/ICNTRL/ 

NDHOG 

SCNTRL 

81 

9 

to 

o 

o 


U1 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


00075 

COMMON  /ICNTRL/ 

IQS  130) 

SCNTRL 

82 

00076 

COMMON  /ICNTRL/ 

IQU  (10) 

SCNTRL 

S3 

C 

SCNTRL 

84 

00077 

EQUIVALENCE 

( ITMIN 

* IQS< 

1 ) ) 

SCNTRL 

85 

Q007B 

EQUIVALENCE 

( ITMAX 

, IQS{ 

2)  } 

SCNTRL 

86 

00079 

EQUIVALENCE 

( IPREACC 

. IQS( 

a)  t 

SCNTRL 

87 

Q00B0 

EQUIVALENCE 

[ IPRECON 

. ! QSf 

4)  ) 

SCNTRL 

as 

00081 

EQUIVALENCE 

< IHFLUX 

. IQS( 

5)  ) 

SCNTRL 

89 

00032 

EQUIVALENCE 

( IEFLUX 

. IQS( 

5)  ) 

SCNTRL 

90 

OOOS3 

EQUIVALENCE 

( IFUSION 

. iQSt 

7 ) } 

SCNTRL 

9? 

00084 

EQUIVALENCE 

t IRADSWG 

. IQS( 

a) ) 

SCNTRL 

92 

00085 

EQUIVALENCE 

( IRADLWG 

. I QS  f 

9)  > 

SCNTRL 

93 

00086 

EQUIVALENCE 

{ IICLOUD 

. IQSMOM 

SCNTRL 

94 

C 

SCNTRL 

95 

00087 

EQUIVALENCE 

(IOMEGA 

.IQU* 

1 > ) 

SCNTRL 

96 

0 0 OS  8 

equivalence 

( IDIABAT 

. IQUI 

2)  ) 

SCNTRL 

97 

OOOB9 

EQUIVALENCE 

{ IRADSW 

, IQUf 

3)  ) 

SCNTRL 

98 

C 

SCNTRL 

99 

00090 

EQUIVALENCE 

{ ico . ic<  n > 

SCNTRL 

100 

00091 

INTEGER 

ICO,  IC ( 200 ) 

SCNTRL 

101 

c 

SCNTRL 

102 

c 

LOGICAL  MODEL  PARAMETERS  SAVED  ON 

HISTORY  RECORD 

SCNTRL 

103 

c 

n = saa  = rs:  = =:s;s:  = = = -=  = ' 

3 s = a = i 

a = = 33===S3=:==^  = 

SCNTRL 

104 

00092 

COMMON  /LCNTRL/ 

LCD 

SCNTRL 

105 

00093 

COMMON  /LCNTRL / 

QALT 

SCNTRL 

106 

00094 

COMMON  /LCNTRL/ 

QBEG 

SCNTRL 

107 

00095 

COMMON  /LCNTRL/ 

QDAY 

SCNTRL 

108 

00056 

COMMON  /LCNTRL/ 

QEND 

SCNTRL 

109 

00  097 

COMMON  /LCNTRL/ 

QOUT 

SCNTRL 

1 10 

O Q 

00098 

COMMON  /LCNTRL/ 

QPHV 

SCNTRL 

111 

-n  pa 

00099 

COMMON  /LCNTRL/ 

QSHF 

SCNTRL 

1 12 

00  100 

COMMON  /LCNTRL/ 

SN2FLG 

SCNTRL 

1 13 

O 2 

2 > 
33  r" 

00101 

COMMON  /LCNTRL/ 

QRSW 

SCNTRL 

1 14 

00102 

COMMON  /LCNTRL/ 

QRSH 

SCNTRL 

115 

00  103 

COMMON  /LCNTRL/ 

LQSOOI 

SCNTRL 

116 

00104 

COMMON  /LCNTRL/ 

LQU(  TO  > 

SCNTRL 

1 17 

c 

SCNTRL 

1 18 

iO  -s 

c > 
£ « 

00105 

EQUIVALENCE 

fLTMIN 

» L QS  ( 

1 ) ) 

SCNTRL 

1 19 

00106 

EQUIVALENCE 

{ L TMA  X 

, LQS  f 

2)  > 

SCNTRL 

120 

00  107 

EQUIVALENCE 

(LPREACC 

. LQS  ( 

3)  ) 

SCNTRL 

121 

0010S 

EQUIVALENCE 

(LPRECON 

♦ L Q S ( 

4)  ) 

SCNTRL 

T 22 

r*  n 

00109 

equivalence 

(LHFLUX 

,LQ5I 

5)  ) 

SCNTRL 

123 

•“*1 

ma  ujg 

001  10 

EQUIVALENCE 

(LEFLUX 

, LQS  f 

6)  } 

SCNTRL 

124 

*U<3 

00111 

EQUIVALENCE 

(LFUSION 

, LQS  f 

7 > ) 

SCNTRL 

125 

00112 

EQUIVALENCE 

(LRADS WG 

r LQS  ( 

a ) ) 

SCNTRL 

126 

001  13 

EQUIVALENCE 

(LRADLWQ 

,lqs< 

9 ) ) 

SCNTRL 

127 

00  114 

equivalence 

(LICLOUD 

. LQS ( 10)  ) 

SCNTRL 

128 

C* 

SCNTRL 

129 

00115 

EQUIVALENCE 

(LOMEGA 

, LQU  f 

t ) ) 

SCNTRL 

130 

00  116 

EQUIVALENCE 

(LDIABAT 

, L QU  ( 

2)  > 

SCNTRL 

1 3 T 

001  17 

equivalence 

(LRADSW 

. LQU  1 

3)  ) 

SCNTRL 

132 

c 

SCNTRL 

133 

00118 

LOGICAL 

QALT 

SCNTRL 

134 

00119 

LOGICAL 

QBEG 

SCNTRL 

135 

00120 

LOGICAL 

QDAY 

SCNTRL 

136 

00  121 

LOGICAL 

QEND 

SCNTRL 

137 

00  122 

LOGICAL 

QOUT 

SCNTRL 

138 

00(23 

LOGICAL 

qphy 

SCNTRL 

139 

00  124 

LOGICAL 

QSHF 

SCNTRL 

140 

00125 

LOGICAL 

SN2FLG 

SCNTRL 

141 

00126 

LOGICAL 

QRSW 

SCNTRL 

142 

00127 

LOGICAL 

QRSH 

SCNTRL 

143 

c 

SCNTRL 

144 

00  128 

LOGICAL 

LQS 

SCNTRL 

145 

00129 

LOGICAL 

Lqu 

SCNTRL 

146 

00130 

LOGICAL 

LTMIN 

SCNTRL 

147 

0013  1 

LOGICAL 

LTMAX 

SCNTRL 

148 

00132 

LOGICAL 

LPREACC 

SCNTRL 

149 

00133 

LOGICAL 

LPRECON 

SCNTRL 

150 

00134 

LOGICAL 

LHFLUX 

SCNTRL 

151 

00135 

LOGICAL 

LEFLUX 

SCNTRL 

1S2 

GWSGCM  6 


00  1 3 S 

LOGICAL 

LFUSION 

SCNTRL 

153 

00137 

LOGICAL 

LRADSWG 

SCNTRL 

154 

00138 

LOGICAL 

LflADLWG 

SCNTRL 

155 

00139 

LOGICAL 

LICLOUD 

SCNTRL 

156 

C 

SCNTRL 

157 

00140 

LOGICAL 

LOMEGA 

SCNTRL 

158 

00141 

LOGICAL 

ldiabat 

SCNTRL 

1 59 

00142 

LOGICAL 

LRADSW 

SCNTRL 

1 GO 

C 

SCNTRL 

161 

00143 

EQUIVALENCE 

ILCO.LCt I ) ) 

SCNTRL 

162 

00144 

LOGICAL 

LCO,  LC 1200) 

SCNTRL 

163 

C 

SCNTRL 

164 

C 

REAL  MODEL 

. PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

165 

c 

ii 

SCNTRL 

166 

00145 

COMMON 

/ RCNTRL / 

RCO 

SCNTRL 

167 

00149 

COMMON 

/ RCNTRL / 

APHEL 

SCNTRL 

168 

00147 

COMMON 

/RCNTRL/ 

BETA 

SCNTRL 

169 

00  1 48 

COMMON 

/RCNTRL/ 

COSD 

SCNTRL 

170 

00  149 

COMMON 

/RCNTRL/ 

CP 

SCNTRL 

171 

00150 

COMMON 

/RCNTRL/ 

DAYSPY 

SCNTRL 

172 

00151 

COMMON 

/RCNTRL/ 

DEC 

SCNTRL 

173 

00152 

COMMON 

/RCNTRL/ 

decmax 

SCNTRL 

174 

00153 

COMMON 

/RCNTRL/ 

□ 1ST 

SCNTRL 

175 

00154 

COMMON 

/RCNTRL/ 

DLAT 

SCNTRL 

176 

00155 

COMMON 

/RCNTRL/ 

DLON 

SCNTRL 

177 

00156 

COMMON 

/RCNTRL/ 

DT 

SCNTRL 

178 

00157 

COMMON 

/RCNTRL/ 

ECCN 

SCNTRL 

179 

0015S 

COMMON 

/RCNTRL/ 

GNU  1 

SCNTRL 

ISO 

0Q159 

COMMON 

/RCNTRL/ 

GNU2 

SCNTRL 

1 B 1 

00160 

COMMON 

/RCNTRL/ 

GRAV 

SCNTRL 

13  2 

00161 

COMMON 

/RCNTRL/ 

OMEGA 2 

SCNTRL 

1B3 

00162 

COMMON 

/RCNTRL/ 

PI 

SCNTRL 

164 

00163 

COMMON 

/RCNTRL/ 

PI  ISO 

SCNTRL 

185 

00164 

COMMON 

/RCNTRL/ 

P 1.2 

SCNTRL 

1S6 

00165 

COMMON 

/RCfiTRL/ 

PSTD 

SCNTRL 

187 

00  1 66 

COMMON 

/RCNTRL/ 

Pi ME AN 

SCNTRL 

183 

00  167 

COMMON 

/RCNTRL/ 

PSMAX 

SCNTRL 

139 

ooisa 

COMMON 

/RCNTRL/ 

PSMIN 

SCNTRL 

190 

00  169 

COMMON 

/RCNTRL/ 

PTOP 

SCNTRL 

191 

00  170 

COMMON 

/RCNTRL/ 

hade 

SCNTRL 

192 

00171 

COMMON 

/RCNTRL/ 

RGA5 

SCNTRL 

133 

00172 

COMMON 

/RCNTRL/ 

ROCP 

SCNTRL 

194 

00173 

COMMON 

/RCNTRL/ 

RSDIST 

SCNTRL 

195 

00  174 

COMMON 

/RCNTRL/ 

SDAY 

SCNTRL 

196 

00175 

COMMON 

/RCNTRL/ 

SEASON 

SCNTRL 

197 

00176 

COMMON 

/RCNTRL/ 

SIGE  (25) 

SCNTRL 

1 98 

00177 

COMMON 

/RCNTRL/ 

SIND 

SCNTRL 

199 

00  17B 

COMMON 

/RCNTRL/ 

SOLS 

SCNTRL 

200 

00  179 

COMMON 

/RCNTRL/ 

TSTD 

SCNTRL 

201 

00  180 

COMMON 

/RCNTRL/ 

PLEVS  (25) 

SCNTRL 

202 

00181 

COMMON 

/RCNTRL/ 

HEATW 

SCNTRL 

203 

00  182 

COMMON 

/RCNTRL/ 

HEATI 

SCNTRL 

204 

00  183 

COMMON 

/RCNTRL/ 

EPS 

SCNTRL 

205 

00184 

COMMON 

/RCNTRL/ 

EPSFAC 

SCNTRL 

206 

oqisb 

COMMON 

/RCNTRL/ 

CALTOJ 

SCNTRL 

207 

00186 

COMMON 

/RCNTRL/ 

PZERO 

SCNTRL 

208 

c 

SCNTRL 

209 

00137 

EQUIVALENCE 

(RCOTRC( 1 ) J 

SCNTRL 

210 

00  3 88 

REAL 

RCO  t RC ( 20  0 ) 

SCNTRL 

21  1 

c 

SCNTRL 

212 

c 

INTEGER  MODEL  CONSTANTS 

SCNTRL 

213 

c 

SCNTRL 

214 

00  1 S3 

COMMON 

/ IDP ARM/ 

I dUMP  (46) 

SCNTRL 

215 

00190 

COMMON 

/ I DP ARM/ 

IDSP02 

SCNTRL 

216 

00  191 

COMMON 

/ I DR ARM/ 

INDEX  (72) 

SCNTRL 

217 

00192 

COMMON 

/ IDP ARM/ 

I ROD 

SCNTRL 

2 1 B 

00193 

COMMON 

/JDPARM/ 

dC  (46) 

SCNTRL 

219 

00194 

COMMON 

/IDPARM/ 

JE  (2) 

SCNTRL 

220 

00195 

COMMON 

/ IDPARM/ 

JP  (2,2) 

SCNTRL 

221 

00196 

COMMON 

/ I DP ARM/ 

KSTEP 

SCNTRL 

222 

00197 

COMMON 

/ IDPARM/ 

Md  (46) 

SCNTRL 

223 

tC  TD 

C J5* 

> Q 
C ^ 

3 


GWSGCM  7 


OO130 

COMMON 

/IOPARM/ 

NHMS1 

SCNTRL 

224 

00139 

COMMON 

/ IDPARM/ 

NYMD  1 

SCNTRL 

225 

C 

SCNTRL 

226 

c 

LOGICAL  MODEL  CONSTANTS 

SCNTRL 

227 

c 

= = - - ^ = s — = = 

SCNTRL 

228 

00200 

COMMON 

/LDP A RM/ 

FILTER 

1 46  ) 

SCNTRL 

229 

00201 

COMMON 

/LDP ARM/ 

ITAPE 

SCNTRL 

230 

00202 

COMMON 

/LDP ARM/ 

START 

SCNTRL 

231 

c 

SCNTRL 

232 

00203 

logical 

FILTER 

SCNTRL 

233 

00204 

LOGICAL 

ITAPE 

SCNTRL 

234 

00205 

LOGICAL 

START 

SCNTRL 

235 

c 

SCNTRL 

236 

c 

REAL  MODEL  CONSTANTS 

SCNTRL 

237 

c 

= = 

SCNTRL 

230 

00206 

COMMON 

/RDPARM/ 

ADLDP 

SCNTRL 

239 

00207 

COMMON 

/RDPARM/ 

CONI 

SCNTRL 

240 

00208 

COMMON 

/RDPARM/ 

CON  1 DT 

SCNTRL 

241 

00209 

COMMON 

/RDPARM/ 

CON  2 

SCNTRL 

242 

002  1 0 

COMMON 

/RDPARM/ 

CON2DT 

SCNTRL 

243 

002  1 1 

COMMON 

/RDPARM/ 

CON3 

SCNTRL 

244 

00212 

COMMON 

/RDPARM/ 

C0N3DT 

SCNTRL 

245 

00213 

COMMON 

/RDPARM/ 

C0N4 

SCNTRL 

246 

00214 

COMMON 

/RDPARM/ 

C0N4DT 

SCNTRL 

247 

00215 

COMMON 

/RDPARM/ 

CONS 

SCNTRL 

240 

00216 

COMMON 

/RDPARM/ 

COSL 

1 46  ) 

SCNTRL 

249 

0021  7 

COMMON 

/RDPARM/ 

COSLON 

<72) 

SCNTRL 

250 

00215 

COMMON 

/RDPARM/ 

CPD2 

SCNTRL 

251 

00219 

COMMON 

/RDPARM/ 

DXP 

(46) 

SCNTRL 

252 

00220 

COMMON 

/RDPARM/ 

DXYP 

(46) 

SCNTRL 

253 

00221 

COMMON 

/RDPARM/ 

DYP 

t 46) 

SCNTRL 

254 

00222 

COMMON 

/RDPARM/ 

FCORLS 

( 46  ) 

SCNTRL 

255 

00223 

COMMON 

/RDPARM/ 

F IDT 

SCNTRL 

256 

00224 

COMMON 

/RDPARM/ 

F2DT 

SCNTRL 

257 

00225 

COMMON 

/RDPARM/ 

H1DT 

SCNTRL 

258 

00226 

COMMON 

/RDPARM/ 

H2DT 

SCNTRL 

259 

00227 

COMMON 

/RDPARM/ 

PKSTD 

SCNTRL 

260 

00  223 

COMMON 

/RDPARM/ 

PKTOP 

SCNTRL 

261 

00229 

COMMON 

/RDPARM/ 

RLAT 

(46) 

SCNTRL 

262 

00230 

COMMON 

/RDPARM/ 

RLATD 

(46) 

SCNTRL 

263 

00231 

COMMON 

/RDPARM/ 

ROCPDT 

SCNTRL 

264 

00232 

COMMON 

/RDPARM/ 

R0CPP1 

SCNTRL 

265 

00233 

COMMON 

/RDPARM/ 

SGNP 

(2) 

SCNTRL 

266 

00234 

COMMON 

/RDPARM/ 

SINL 

(46) 

SCNTRL 

267 

00235 

COMMON 

/RDPARM/ 

SINLON 

(72) 

SCNTRL 

268 

00236 

COMMON 

/RDPARM/ 

THSTD 

SCNTRL 

269 

00237 

COMMON 

/RDPARM/ 

THSTD2 

SCNTRL 

270 

00  238 

COMMON 

/RDPARM/ 

WSAVE 

(159) 

SCNTRL 

271 

00239 

COMMON 

/RDPARM/ 

DSIG 

(9) 

SCNTRL 

272 

00240 

COMMON 

/RDPARM/ 

SIG 

(9) 

SCNTRL 

273 

. 

c 

SCNTRL 

274 

c 

ar  w *- 

SQANDQT 

2 

c 

GLOBAL  MODEL  SURFACE  FIELDS 

SQANDQT 

3 

0024  1 

COMMON 

/ qandot / 

QS<  72.  19 .46  > 

SQANDOT 

4 

0 

SQANDQT 

5 

00242 

DIMENSION 

PHISM36B, 1 ) 

SQANDQT 

6 

00243 

DIMENSION 

SMTHf 1360,23) 

SQANDQT 

7 

00244 

DIMENSION 

ALBEDO ( 1363.1 ) 

SQANDQT 

8 

00245 

dimension 

GT( 136S 

, 1 ) 

SQANDQT 

9 

00246 

DIMENSION 

GW{ 1360 

. 1 > 

SQANDQT 

TO 

00247 

DIMENSION 

TS( 1363 

. 1 ) 

SQANDQT 

1 1 

00  240 

DIMENSION 

SHSt 1363, 1 ) 

SQANDQT 

12 

00249 

DIMENSION 

P £72. 19 

, 1 ) 

SQANDQT 

13 

00250 

D I PENSION 

TMI N ( 1368 , 1 > 

SQANDQT 

14 

0025  * 

DIMENSION 

TMAX ( 1368 , 1 > 

SQANDQT 

15 

00252 

DIMENSION 

PREACCI 1368 , 1 } 

SQANDQT 

16 

00253 

DIMENSION 

PRECON  f 1 368 , 1} 

SQANDQT 

17 

00254 

DIMENSION 

HFLUX ( 1368, 1 ) 

SQANDQT 

IS 

00255 

DIMENSION 

EFLUX l 1368, 1 ) 

SQANDQT 

19 

00256 

dimension 

FUSION* 1368 , 1 ) 

SQANDQT 

20 

00257 

dimension 

RADSWG1 1368. 1 ) 

SQANDQT 

21 

ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


^ 


.\i  r# 


i 


00258 

DIMENSION 

RADLWGI 1368 , 1 ) 

sqandqt 

22 

00259 

DIMENSION 

I CLOUD i 136B,  t J 

SQANDQT 

23 

C 

SQANDQT 

24 

00250 

equivalence 

4 QSf 1,1,1)  , PHI S i 1,11) 

SQANDQT 

25 

002G1 

equivalence 

<Q5< 1,2,11 , SMTMf 1 , 1 > > 

( QS (1,3,1)  . ALBEDO ( t t 1)  ) 

SQANDQT 

26 

00  252 

EQUIVALENCE 

SQANDQT 

27 

00253 

EQUIVALENCE 

(QSf  1.4,1)  ,GT 1 1,1)) 

SQANDQT 

2S 

00254 

EQUIVALENCE 

(QSM  ,S,  1 ) rGWM  , f>  ) 

SQANDQT 

29 

00265 

equivalence 

{ QS (1,6,1). TS< 1,1)) 

SQANDQT 

30 

00266 

EQUIVALENCE 

4 QS( 1 , 7 , 1 ) , SH5(  1,1*) 

SQANDQT 

3 1 

00267 

EQUIVALENCE 

(QS( 1 ,8 , t ) , P( 1 , 1 1 J) ) 

SQANDQT 

32 

00268 

EQUIVALENCE 

(QSf 1 . 10. 1 ) . TWIN  4 1.1)) 

SQANDQT 

33 

00269 

EQUIVALENCE 

(QSf 1 , T 1 , f ) , TMAX  ( 1 , t) ) 

sqandqt 

34 

00270 

equivalence 

( QS  4 1.12.1)  , P RE ACC { 1,1)) 

SQANDQT 

35 

00271 

EQUIVALENCE 

4QS4 1 , 13, 1) , PRECON { 1 . 1 } > 

SQANDQT 

36 

00272 

EQUIVALENCE 

4 Q S ( 1 ,1 4 , 1 ) , HFLUX ( t t 1 ) ) 

sqandqt 

37 

00273 

EQUIVALENCE 

(QSf 1 .15,1)  . EFLUX  4 1,1)) 

SQANDQT 

38 

00274 

EQUIVALENCE 

4QSM  , 16,  1 ) , FUSlONf  t , 1 ) ) 

SQANDQT 

39 

00275 

EQUIVALENCE 

(QS<  1 , T7. 1 ) , RADSWG  f 1 , 1 ) ) 

SQANDQT 

40 

00276 

equivalence 

4 QS  4 1 , IS*  t *■  , RADLWGf  1.1)) 

sqandqt 

4 1 

00277 

EQUIVALENCE 

tost  1 , IS,  J ) , I CLOUD  1 1.1)) 

SQANDQT 

42 

C 

* * * 

SQANDQT 

43 

C 

GLOBAL  MODEL  UPPER 

-AIR  FIELDS 

SQANDQT 

44 

00278 

COMMON  /OANDQT/ 

QU472.9, !4,46) 

SQANDQT 

45 

C 

SQANDQT 

46 

00279 

DIMENSION 

U472.9, 14,1) 

SQANDQT 

47 

00280 

DIMENSION 

V 4 72 , 9 , 14,1) 

SQANDQT 

48 

0028  1 

DIMENSION 

T < 72 , 9 , 14,  1 ) 

SQANDQT 

49 

00232 

DIMENSION 

SH4 72,9, 14,1) 

SQANDQT 

50 

00283 

DIMENSION 

PHI (72.9,14, 1) 
OMEGA (72,  125,1) 

sqandqt 

51 

00284 

DIMENSION 

SQANDQT 

52 

00  255 

DIMENSION 

DIABATf 72 ,126,1) 

SQANDQT 

53 

00286 

DIMENSION 

RADSW ( 72 , 126,1) 

SQANDQT 

54 

00287 

DIMENSION 

R ADL W { 7 2 ,126,1) 

SQANDQT 

55 

c 

SQANDQT 

56 

00288 

EQUIVALENCE 

{ QU(  1 t 1 , 1 , t t ,U<  1 , 1 , 1 , 1 ) > 

SQANDQT 

57 

002B9 

EQUIVALENCE 

(Qll(  1 . 1 ,3, 1 ) ,V(  1 » 1 , 1 , f > ) 

sqandqt 

50 

00290 

EQUIVALENCE 

f Qtl  { t , 1 ,5. 1 ) ,T(  t , 1 , 1 , 1 ) > 

SQANDQT 

59 

00291 

EQUIVALENCE 

4 QU  41,1,7,  1 ) . SH ( f , 1,1,1)) 

SQANDQT 

60 

00292 

EQUIVALENCE 

IQU4 1 , 1 .9 , 1>  .PHI ( t , 1 * 1 , 1 ) ) 

SQANDQT 

61 

00293 

EQUIVALENCE 

(QU4M.11  J).  OMEGA  (1,1,1)) 

SQANDQT 

62 

00294 

EQUIVALENCE 

f QU (1,1,12,1)  , DIABATf 1 , 1 , 1)  ) 

sqandqt 

63 

00295 

EQUIVALENCE 

< QU (1,1,13, 1 ) t RADSW ( 1,1,1)) 

SQANDQT 

64 

00295 

EQUIVALENCE 

(QUf 1 , 1 , 14 . 1)  , RADLW ( 1,1.1)) 

SQANDQT 

65 

c 

SQANDQT 

66 

c 

» * *■ 

SCNTRLP 

2 

c 

PHYSICS  PARAMETERS 

AND  CONSTANTS 

SCNTRLP 

3 

00297 

COMMON  /CNTRLP/ 

CDF  R 

SCNTRLP 

4 

00298 

COMMON  /CNTRLP/ 

CDXL 

SCNTRLP 

5 

00299 

COMMON  /CNTRLP/ 

CDXO 

SCNTRLP 

6 

00300 

COMMON  /CNTRLP/ 

CLH 

SCNTRLP 

7 

0030  1 

COMMON  /CNTRLP/ 

COE  (9) 

SCNTRLP 

8 

00302 

COMMON  /CNTRLP/ 

COEF 

SCNTRLP 

9 

00303 

COMMON  /CNTRLP/ 

COEFS 

SCNTRLP 

10 

00304 

COMMON  /CNTRLP/ 

COSROT 

SCNTRLP 

1 1 

00305 

COMMON  /CNTRLP/ 

CPP 

SCNTRLP 

12 

00306 

COMMON  /CNTRLP/ 

CTID 

SCNTRLP 

13 

00307 

COMMON  /CNTRLP/ 

CUMDAV 

SCNTRLP 

14 

00303 

COMMON  /CNTRLP/ 

CUMRAT 

SCNTRLP 

15 

00309 

COMMON  /CNTRLP/ 

CIO 

SCNTRLP 

16 

003  1 0 

COMMON  /CNTRLP/ 

C 1 00 

SCNTRLP 

17 

003  1 1 

COMMON  /CNTRLP/ 

C40 

SCNTRLP 

18 

003  1 2 

COMMON  /CNTRLP/ 

DELTA 

SCNTRLP 

19 

003  13 

COMMON  /CNTRLP/ 

0TC3 

SCNTRLP 

20 

003  14 

COMMON  /CNTRLP/ 

DTOUT 

SCNTRLP 

21 

003  1 5 

COMMON  /CNTRLP/ 

ED 

SCNTRLP 

22 

003  1 E 

COMMON  /CNTRLP/ 

EDNM 

SCNTRLP 

23 

003  1 7 

COMMON  /CNTRLP/ 

FCOEF 

SCNTRLP 

24 

00313 

COMMON  /CNTRLP/ 

FMU 

SCNTRLP 

25 

00319 

COMMON  /CNTRLP/ 

FV/ET 

SCNTRLP 

25 

00320 

COMMON  /CNTRLP/ 

GAMFAC 

SCNTRLP 

27 
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> 
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00321 

COMMON 

/cntrlp/ 

GTOPO 

SCNTRLP 

28 

00322 

COMMON 

/CNTRLP/ 

HICE 

SCNTRLP 

29 

00323 

COMMON 

/CNTRLP / 

NDTC3 

SCNTRLP 

30 

00324 

COMMON 

/CNTRLP/ 

NFLW 

SCNTRLP 

31 

00325 

COMMON 

/CNTRLP/ 

PIM 

SCNTRLP 

32 

00325 

COMMON 

/CNTRLP/ 

QHOG 

SCNTRLP 

33 

00327 

common 

/CNTRLP/ 

SHLTOP 

SCNTRLP 

34 

00328 

common 

/CNTRLP/ 

SINROT 

SCNTRLP 

35 

00329 

COMMON 

/CNTRLP/ 

SNOWN 

SCNTRLP 

36 

00330 

COMMON 

/CNTRLP/ 

SNOWS 

SCNTRLP 

37 

0033  T 

COMMON 

/CNTRLP/ 

STBO 

SCNTRLP 

38 

00332 

COMMON 

/CNTRLP/ 

STERP1 

SCNTRLP 

33 

00333 

COMMON 

/CNTRLP/ 

STERP2 

SCNTRLP 

40 

00334 

COMMON 

/CNTRLP/ 

TICE 

SCNTRLP 

41 

00335 

COMMON 

/CNTRLP/ 

TLTOP 

SCNTRLP 

42 

00335 

COMMON 

/CNTRLP/ 

XOAY 

SCNTRLP 

43 

00337 

COMMON 

/CNTRLP/ 

ZLNCO 

SCNTRLP 

44 

00338 

LOGICAL 

QHOG 

SCNTRLP 

45 

C 

SCNTRLP 

46 

C 

* " * 

SMNTHLY 

2 

C 

MONTHLY  DATA  FIELDS 

SMNTHLY 

3 

00339 

COMMON 

/MNTHLY/ 

TOPOG2 ( 72 , 46,2)  , 

SMNTHLY 

4 

£ 

GW2 { 72  t 46 , 2)  , 

SMNTHLY 

5 

5 

ALBDD2 (72 ,46,2) 

SMNTHLY 

G 

00340 

DIMENSION  TOPDGT < 72 f 46) , 

SMNTHLY 

7 

5 

GW  T f 72,4G]  , 

SMNTHLY 

8 

£ 

ALBDOl (72.46) 

SMNTHLY 

9 

0034  1 

EQUIVALENCE  ( TOPOG1 ( 1 t 1 J , TOPOG21  1,1,0) 

SMNTHLY 

10 

00342 

EQUIVALENCE  (GW1  ( 1 . 1 ) ,GW2(  1,1.0) 

SMNTHLY 

1 1 

00343 

EQUIVALENCE  (ALBDOl  {1.0.  ALBD02  ( 1 , 1 r O ) 

SMNTHLY 

12 

00344 

COMMON 

/A MAM/ 

QSH (72,46. 18) , QUH (72,9,46,9) 

SGWSGCM 

25 

00345 

HALF  PRECISION 

Q5H, QUH 

SGWSGCM 

27 

C 

SGWSGCM 

28 

00346 

COMMON 

WORK  1(512,128,  O 

SGWSGCM 

29 

c 

SGWSGCM 

30 

00347 

CHA  RACTER  *8 

CUTOFF 

SGWSGCM 

31 

c 

SGWSGCM 

32 

c 

MODULO  ARITHMETIC  COUNTER 

SGWSGCM 

33 

c 

SGWSGCM 

34 

00348 

NXTMOD ( N . M ) = MOD ( N , M ) ' + t 

SGWSGCM 

35 

c 

SGWSGCM 

36 

c 

HHMMSS  EVENT  TIMESTEP  COUNTER 

SGWSGCM 

37 

c 

= = 

sgwsgcm 

33 

00349 

MPER(N) 

= MODHMS { NHMS , N ) /NOT 

SGWSGCM 

39 

c 

SGWSGCM 

40 

c* 

*■#■+»*»■*■»*■** 

41 

00350 


C DEBUG 
10000  CONTINUE 


CYBER  SCALAR  VERSION  04.001  INPUT, IQQ 

‘ CYBER  SCALAR  VERSION  04.000 

CYBER  SCALAR  VERSION  00 


SGWSGCr.il  4 2 
SBEGDEB  2 
SBEGDEB  3 
SBEGDEB  4 
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MAP  COMMON  BLOCKS  TO  EXTERNAL  FILES 

SAVE ' , * IMP'  ) 


t* 

C 

------- 

! ) 

00351 

CALL 

QSOPEN 

t f lfn=j 

I 

00352 

CALL 

Q5MAPIN 

( ' LFN  = 

; 

00353 

CALL 

Q50PEN 

( 'LFN=' 

j 

00354 

CALL 

Q5MAPIN 

< ' LFN= 

j 

00355 

CALL 

QSOPEN 

( ’ LFN=  * 

i 

00355 

CALL 

Q5MAPIN 

( * L F N = 

i 

00357 

CALL 

Q5CIPEN 

( r LFN-  ' 

00358 

r* 

CALL 

Q5MAPIN 

( ' LFN  = 

l 

i 

w 

c 

r* 

GET  I NI T I AL/ RESTART  CO 

i 

00359 

CALL 

CLOCKS 

UTM) 

f > 

00360 

LTM 

= ITM 

00361 

call 

INPUT  (£908) 

■ * *■» 

00362 

CALL 

DATE  (ADATE) 

f QWORK' 


1 IMP'  ) 


" AM AM*  . ' IMP ' } 
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SGWSGCM  48 
SGWSGCM  49 
SGWSGCM  50 
SGWSGCM  51 
SGWSGCM  52 
SGWSGCM  53 
SGWSGCM  54 
SGWSGCM  55 
SGWSGCM  5 5 
SGWSGCM  57 
SGWSGCM  5S 
SGWSGCM  59 
SGWSGCM  60 
SGVJSGCM  61 
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00363 

00364 


00365 

00366 


00367 

0036S 

00369 

00370 

00371 

00372 

00373 

00374 

00375 


00376 

00377 

00378 


00379 

00360 

00381 

00382 

003813 

00384 

00385 

00386 

00387 

00388 

00389 

00390 

00391 


00392 

00393 

00394 

00395 

00396 


00397 

00398 

00399 


C 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

0 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

0 


c 

c 


CALL  TIME  (ATIME1 
WRlTEf 3,6908)  AT IME , ADATE 

READ  CUT-OFF  TIME  FROM  UNIT  60 

READ { 60  * 6905 ) EftP NO, CUTOFF 
WR I TE ( 3 t 6907 ) CUTOFF 

FOR  INITIAL  START  EXECUTE  STEPS  IN  MAIN  LOOP  IN  THE  FOLLOWING  ORDER 

1.  GMP  AND  CLIMATE  INITIALIZATION 

2.  ANALYSIS  CYCLE  IF  NECESSARY 
3 4 LOGS  RECORD  WRITE 

4.  TIMINGS  AND  SENSE  SWITCHES 

5,  PHYSICS  TERMS 

IF  {NSTEP. LT. MATIN  .OR. 

3 ( NDALT . NE . 0 .AND.  MPER < ND ALT ). LT . MATIN ) > MATSNX  = t 

QBEG  = NSTEP . EQ . 0 

QFHY  = NDPHY.NE.Q  .AND.  MPER ( NDPH Y ) . EQ . O 
QSHF  = NDSHF.NE.O  . AND . MATSUN*MPER ( NDSHF ) , LE . 1 
QALT  = NDALT. NE.O  .AND.  MP8R  t NDALT ) . EQ . 0 
QOUT  = NDOUT. NE.O  .AND.  MPER f NDOUT ) . EQ . 0 
NSDAY  - MODHMS(NHMS, 240000) 

QDAY  - NSDAY/NDT.EQ.Q 

IF  (Q8EG)  GO  TO  40 


NORMAL  ORDER  OF  EXECUTION  OF  STEPS  IN  MAIN  LOOP 


1.  HYDRODYNAMICS  INTEGRATION 

2.  PHYSICS  TERMS 

3.  SHAPIRO  FILTER 

4.  GMP  AND  CLIMATE  UPDATE 

5:.  ANALYSIS  CYCLE  IF  NECESSARY 

6.  LOGS  RECORD  WRITE 

7.  TIMINGS  AND  SENSE  SWITCHES 

HYDRODYNAMICS 

===:;s==t:=== 

10  CONTINUE 

NSTEP  =■  NSTEP  + 1 
NHM5  = INCHMS(NHMS,NDT ) 

DETERMINE  TYPE  OF  TIME-STEP 
MAT5UN=0  FOR  LEAPFROG  STEP 
MAT3UNM  FOR  MATSUNO  STEP 
NTH  - NXTMOD {NSTEP .NSEQ) 

MATSUN  = MATSNX 
MATS NX  = MLF(NTH) 

IF  (NSTEP .LT. MATIN  .OR. 

a (NDALT. NE.O  .AND.  MPE R { NDALT ). LT , MATI N ) ) MATSNX  = 1 
OBEG  = NSTEP . EQ . 0 

QPKY  = PJDPHY.NE.O  .AND.  MPER  ( NDPHY)  . EQ  . 0 
QSHF  = NDSHF.NE.O  .AND.  MATSUN+MPER (NDSHF ) . LE . 1 
QALT  = NDALT. NE.O  .AND.  MPER ( NDALT K £Q> 0 
QOUT  = NDOUT. NE.O.  .AND.  MPER { NDOUT >. EQ . O 
NSDAY  = MODHMStNHMS, 240000) 

QDAY  ^ NSDAY/NDT.EQ .0 
DT  = 2*NDT 

IF  { MATSUN. EQ.O)  GO  TO  15 
MATSUNO  PREDICTOR  STEP  ONLY 

DT  = NOT 

NB  = NX TMOD ( NB  » 2 ) 

ND  = NX  TMOD ( ND , 2 ) 

. KSTEP  = 0 

CALL  COMPO  (A912) 

MATSUNO  CORRECTOR  STEP  OR  LEAPFROG  STEP 

15  CONTINUE 

NB  =■  NX  TMOD  ( NB  , 2 ) 

ND  = NX  TMOD { ND , 2 ) 
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SGWSGCM  64 
SGWSGCM  65 
SGWSGCM  66 
SGWSGCM  67 
SGWSGCM  68 
SGV/SGCM  69 
SGWSGCM  70 
SGWSGCM  71 
SGWSGCM  72 
SGWSGCM  73 
SGWSGCM  74 
SGV/SGCM  75 
SGWSGCM  7B 
SGWSGCM  77 
SGWSGCM  78 
SGWSGCM  79 
SGWSGCM  80 
SGWSGCM  S! 
SGWSGCM  82 
SGV/SGCM  S3 
SGWSGCM  34 
SGWSGCM  85 
SGWSGCM  86 
SGWSGCM  87 
SGWSGCM  88 
SGWSGCM  89 
SGV/SGCM  90 
SGWSGCM  91 
SGWSGCM  92 
SGWSGCM  93 
SGWSGCM  34 
SGWSGCM  95 
SGV/SGCM  96 
SGW5GCM  97 
SGWSGCM  98 
SGWSGCM  99 
SGWSGCM1 00 
SGWSGCM 101 
SGWSGCM 102 
SGV/SGCM  103 
SGV/SGCM  104 
SGWSGCM 105 
SGWSGCM 106 
SGWSGCM 1 07 

sgwsgcm toa 

SGWSGCM 109 
SGV/SGCM  1 10 
SGV/SGCM  1 T 1 
SGV/SGCM  1 12 
SGWSGCM1 13 
SGWSGCM 1 14 
SGWSGCM 115 
SGWSGCM 1 1 6 
SGV/SGCM  1 17 
SGV/SGCM  1 18 
SGWSGCM 1 19 
SGWSGCM 120 
SGWSGCM 121 
SGWSGCM 122 
SGWSGCM 1 23 
SGWSGCM 1 24 
SGWSGCM 125 
SGWSGCM 126 
SGWSGCM 127 
SGWSGCM 128 
SGWSGCM 1 29 
SGV/SGCM  130 
SGWSGCM 1 3 1 
SGWSGCM132 
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00402 

00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 
004  1 I 
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00413 


004  1 4 
004  15 
00416 


004  1 7 

00418 

00419 

00420 
0042  I 
00422 
004  23 
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004  25 
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00428 
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00433 

00434 

00435 

00436 
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00438 

00439 

00440 
0044  1 

00442 

00443 

00444 
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c 

c 
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c 

c 
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c 
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c 

c 
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c 

c 
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c 

c 
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c 

c 

c 


c 

c 
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ANALYSIS  CYCLE 


50  CONTINUE 

IF  ( . NOT . QALT ) GO  TO  GO 
CALL  ALTER2 

IF  (MATIN.LT. 1 J GO  TO  60 
DO  55  d=JSP,JNP 
CAUL  COPYQ  (ND ,NB, J) 

55  CONTINUE 

LOGS  AND/OR  RESTART  RECORD  WRITE 

60  CONTINUE^ 

IF  ( , NOT  - f QRSW  .OR.  QOUT  .OR, 
I F t QOUT ) CALL  VERT 
CALL  TWRITE  (0,8901 ,8908) 

IFfQBEG.OR, QOUT .OR , QEND ) CALL  INITSO 

PRINT  TIMINGS  AND  CHECK  SENSE  SWITCHES 

70  CONTINUE 

CALL  CLOCKS  ( NTM I 
TTM  = .01*1 ITM-NTMl 
STM  = , 0 1 * < L TM- NTM  > 

LTM  = NTM 

WRITE  (3,6070)  JOB,  NSTEP , MATSUN, 

IF  (OEND)  GO  TO  900 

CALL  CUTCHK (CUTOFF ,8906) 

IF  ( QBEG)  GO  TO  20 

end  of  main  loop 
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SGWSGCM 135 
SGWSGCM136 
SGWSGCM 137 
SGWSGCM 13B 
SGWSGCM  1 39 
SGWSGCM 140 
SGWSGCM 1 4 1 
SGWSGCM  M2 
SGWSGCM 143 
SGWSGCM 1 44 
SGWSGCM 145 
SGWSGCM 146 
SGWSGCM 147 
SGWSGCM 1 48 
SGWSGCM I 49 
SGWSGCM 150 
SGWSGCM 1 5 1 
SGWSGCM 152 
SGWSGCM 153 
SGWSGCM 1S4 
SGWSGCM155 
5GWSGCM156 
SGWSGCM 157 
SGWSGCM 158 
SGWSGCM 159 
SGWSGCM 160 
SGWSGCM 1 6 1 
SGWSGCM 162 
SGWSGCM 163 
SGWSGCM 164 
5GWSGCM 1 65 
SGWSGCM 166 
SGWSGCM 167 
SGWSGCM 1 68 
EO.OU  SGW5GCM1G9 
SGWSGCM 170 
SGWSGCM 17 1 
SGWSGCM 172 
SGWSGCM 173 
SGWSGCM 174 
SGWSGCM 175 
SGWSGCM 176 
SGWSGCM 177 
SGWSGCM 178 
SGWSGCM 179 
SGWSGCM180 
SGWSGCM1B1 
SGWSGCM 182 
SGWSGCM 183 
SGWSGCM 184 
SGWSGCM 185 
SGWSGCM 186 
SGWSGCM 187 
SGWSGCM 1 QS 
SGWSGCM T 89 
SGWSGCM 190 
SGWSGCM 191 
SGWSGCM192 
SGWSGCM 1 93 
SGWSGCM 194 
SGWSGCM 195 
SGWSGCM 196 

NYMD,  NHMS,  STM,  TTM  SGWSGCM 197 

SGWSGCM 198 
5GWSGCM199 
SGWSGCM200 
SGWSGCM201 
SGWSGCM202 
SGWSGCM203 


KSTEP  = 1 * MATSNX 
CALL  COMPO  (8912) 

PHYSICS 


20  CONTINUE 

IF  ( .NOT . QPHY)  GO  TO  30 

ADD  PHYSICS  TERMS  TO  BOTH  FIELDS  IF  NEXT  STEP  IS  LEAPFROG 
CALL  CONSTA 

DO  25  J - JSP , JNP 

IF  (MATSNX . EQ. O)  CALL  DIFFQ  f ND t NB , J ) 

IF  ( M J < J ) . NE  , 0 ) CAUL  POLOUT  (NB,MJ<J)> 

CALL  COMP3  (J) 

IF  ( M J ( J ) . NE , 0 ) CALL  POLINP  (NB.MJ(J)) 

IF  (MATSNX . EQ . 0 ) CALL  ADDO  i ND , N8 , d ) 

25  CONTINUE 

SHAPIRO  FILTER 

30  CONTINUE 

IF  (OBEG)  GO  TO  TO 
FILTER  ONCE  FOR  MAT5UNO 
FILTER  TWICE  FOR  LEAPFROG 

IF  < . NOT , OSHF } GO  TO  35 
CALL  SMSHAP 
35  CONTINUE 

GMP  AND  CLIMATE  TERMS 

40  CONTINUE 

IF  ( OBEG  . OR . QDAV)  CALL  DAILY  (8908) 

QEND  = NYMD.GT.NYMDE  .OR,  ( NYMD . EQ . NYMDE . AND . NHMS . GE , NHMSE ) 
OR  SW  = NDRSW . NE  , 0 .AND,  MPER(NDRSW)  .EQ.O 
ORSH  * .FALSE. 

I F ( NKRSH . EQ . 0 ) GO  TO  41 

ORSH  = (NKRSH. NE  . 0 .AND,  < QBEG- OR . 0 END H .OR. 

1 (NKRSH. 3T.0  .AND.  t OD A Y . AND , MOD ( MOD YMD ( NYMD ), NKRSH ) , 

41  QRSM  s ORSH  .AND.  QOUT 


QRSH ) ) GO  TO  70 
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00463 
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00465 


00466 

00467 
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GO  TO  10 

£»*****  + *<.»  + »»*  + »*«***  + *«  + ••+»,  + + *„.*****«.****  + + ***••»  »*  + .,» 

c 

C HMD  TIME  REACHED 

900  CONTINUE 

WRITE  (3,5900)  N5TEP  , PJVMO,  NHMS 
STOP  0 
C 

C ALLOTTED  OUTPUT  RECORDS  REACHED 

C 5 = t:  = s=  = T;sa^  = = = = 5SSS  = = = = irsa  = S5=  = 

901  CONTINUE 

WRITE  (3.6900)  NSTEP  t MYMD,  NHMS 
STOP  t 
C 

C CUT-OFF  TIME  EXCEEDED 

906  CONTINUE 

WRITE  (3,6906) 

IFlQOUn  CALL  VERT 

CALL  TWRXTE- (6.490T,*90B) 

WRITE  f 3 , 6900  I NSTEP.  NVMD » NHMS 
STOP  6 
C 

C INPUT/OUTPUT  ERROR 
c sr  = = v = a a = =•  = = a n a = - = = 

90S  CONTINUE 

WR I TE  <3.r6900>  NSTEP  , NYMO  . NHMS 

stop  a 
c 

C MODEL  DIAGNOSTIC 

C - = = = - s s a a = = = ^ s a — 

9 t 2 CONTINUE 

WRITE  ( 3 , 6900 1 NSTEP , NYMD,  NHMS 
STOP  12 
C 



c 

6070  FORMA  T C ' JOB  ' .A8,SX( 

& * STEP  M 8/  <',11,')'  (SX. 

<5  ' TIME  ' lI512X,IG,aX, 

£ ' CPU  ' . 2FS . 2 ) 

6900  FORMAT { f 0 TERM I NATION  OF  RUN  AT  STEP  1 . IS . 4X . ' Tl ME  ',16,2k.  16) 

6905  FORMAT  f4X.A4/2X,A6) 

6906  FORMAT! ' 05ENSE  SWITCH  G ON'-) 

6907  FORMAT* ' OCUT-OFF  TIME  FOR  COMPUTATION  IS:  ,A6) 

6908  FORMAT ( ' OSTART I NG  COMPUTATION  AT  '.AS,'  ON  r , AB ) 

END 


SGWSGCM204 
SGWSGCM205 
SGWSGCM206 
SGWSGCM207 
SGWSGCM208 
SGWSGCM209 
SGWSGCM210 
SGW5GCM2  T 1 
SGWSGCM2 1 2 
SGWSGCM2 13 
SGV/SGCM2  1 4 
SGWSGCM2 1 5 
SGWSGCM2  f 6 
5GWSGCM217 
SGWSGCM21S 
SGWSGCM219 
SGWSGCM220 
SGWSGCM221 
SGWSGCM222 
SGWSGCM223 
SGWSGCM224 
SGWSGCM225 
5GWSGCM226 
SGWSGCM227 
5GWSGCM22B 
SGV/SGCM229 
SGWSGCM230 
SGWSGCM23T 
SGWSGCM232 
SGWSGCM233 
SGWSGCM234 
SGWSGCM235 
5GWSGCM236 
SGW5GCM237 
SGWSGCM23S 
SGWSGCM239 
SGWSGCM240 
SGWSGCM241 
SGWSGCM242 
SGWSGCM243 
SGWSGCM244 
SGWSGCM245 
5GWSGCM246 
SGW5GCM247 
SGWSGCM24S 
SGWSGCM249 
SGWSGCM2S0 
SGWSGCM251 


\ , ; STATEMENT  LABEL  MAP 

|T  I --LABEL DEFINED REFERENCES 


10 

376 

413 

10000 

350 

15 

397 

391 

20 

402 

44S 

25 

4 1 1 

405 

30 

4 12 

403 

35 

4 16 

4 14 

40 

417 

375 

4 t 

424 

422 

50 

425 

55 

43  1 

429 

60 

432 

426 

6070 

465 

442 

6300 

466 

448 

6905 

467 

365 

6906 

468 

454 

6907 

469 

366 

ssoa 

470 

364 

70 

437 

433 

460  463 


CD 

Q 

a 

s 


LO 





451 


457 


& BOVe  TtfNKMliO 


■ 


t * 


It  , -ii  • • l V \ r -/\  { -■*  ' 


900 

901 
906 
908 
9 1 2 


44  7 
450 
453 
459 
■*16  2 


443 


O 
• 5 ! 
e n 
O 
o 

3: 

t* 

4> 


VARIABLE  MAP 


'NAME 

BLOCK 

TYPE 

— CLASS 

- - - REFERENCES 

AOATE 

CCNTRL 

CHAR  * B 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

ALBDOI 

MNTHLY 

REAL 

ARRAY 

340 

343 

ALBD02 

MNTHLY 

REAL 

ARRAY 

339 

343 

ALBEDO 

OANDOT 

REAL 

ARRAY 

244 

262 

AMAM 

REAL 

UNKNOWN 

344 

APHEL 

RCNTRL 

real 

SIMPLE 

146 

ATIME 

CCNTRL 

CHAR*  B 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CIO 

CNTRLP 

REAL 

SIMPLE 

309 

C100 

CNTRLP 

REAL 

SIMPLE 

310 

C40 

CNTRLP 

REAL 

SIMPLE 

31  1 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

T 85 

CC 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

cco 

CCNTRL 

GHAR*S 

SIMPLE 

2 

1 4 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

CCSP06 

CCNTRL 

CHA  R * S 

SIMPLE 

7 

20 

CCSP07 

CCNTRL 

CHAR  *8 

SIPAPLE 

8 

21 

CCSP08 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

22 

CDF  R 

CNTRLP 

REAL 

SIMPLE 

297 

CD  XL 

CNTRLP 

REAL 

SIMPLE 

29B 

CD  XO 

CNTRLP 

REAL 

51PAFLE 

299 

CLH 

CNTRLP 

REAL 

SIMPLE 

300 

CNTRLP 

real 

UNKNOWN 

297 

298 

308 

309 

319 

320 

330 

33  1 

COE 

CNTRLP 

REAL 

ARRAY 

30  1 

COEF 

CNTRLP 

REAL 

SIMPLE 

302 

COEFS 

CNTRLP 

REAL 

SIMPLE 

303 

CONI 

. RDPARM 

REAL 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

SIPjIPLE 

208 

CON2 

RDPARM 

REAL 

SIMPLE 

209 

C0N2DT 

RDPARM 

REAL 

SIMPLE 

210 

COM3 

RDPARM 

REAL 

SlPflPLE 

211 

CON3DT 

RDPARPjI 

REAL 

SIPAPLE 

212 

CON4 

RDPARM 

REAL 

SIMPLE 

213 

CON4DT 

RDPARM 

REAL 

SIMPLE 

214 

CONS 

RDPARM 

real 

SIPflPLE 

215 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

COSL 

RDPARM 

REAL 

ARRAY 

216 

CGSLON 

RDPARM 

REAL 

ARRAY 

217 

COSROT 

CNTRLP 

REAL 

SIMPLE 

304 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

218 

CPP 

CNTRLP 

REAL 

SIMPLE 

305 

COS 

CCNTRL 

REAL 

ARRAY 

12 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

CTID 

CNTRLP 

REAL 

SIMPLE 

30G 

CUMDAY 

CNTRLP 

REAL 

SIMPLE 

307 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

308 

CUTOFF 

CHAR  *8 

SIMPLE 

347 

365, 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

DEC 

RCNTRL 

REAL 

SIMPLE 

15  1 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DELTA 

CNTRLP 

REAL 

SIMPLE 

312 

DIABAT 

QANDQT 

REAL 

ARRAY 

285 

294 

DIST 

RCNTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DL0N 

RCNTRL 

REAL 

SIMPLE 

155 

- ARGL I ST , C=CTRL  OP  DO,  I =DaTa  INIT,  REREAD  t S^STORE.  W^WRITE 


362 

364/W 

363 

364  / W 

15 

4 

5 

6 

7 

3 

9 

10 

1 1 

299 

300 

30  1 

302 

303 

304 

305 

306 

310 

31  1 

312 

313 

314 

315 

316 

317 

321 

322 

323 

324 

325 

326 

327 

32S 

332 

333 

334 

335 

335 

337 

3G6/W  444 


12 


307 

3TB 

329 


o o 

*«  PD 


o 


Q 


o g 


lO 

c: 

>4 


pri 


' V '■  'U 


DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

390/S 

DTC3 

cntrlp 

REAL 

SIMPLE 

313 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

314 

DXP 

RDPARM 

REAL 

ARRAY 

218 

■ i DXYP 

RDPARM 

REAL 

ARRAY 

220 

5 r dyp 

RDP ARM 

REAL 

ARRAY 

221 

1*  ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

B ■:  ed 

CNTRLP 

REAL 

SIMPLE 

315 

j?-  ’ EDWM 

CNTRLP 

REAL 

SIMPLE 

3 16 

i i EF  LUX 

QANDQT 

REAL 

ARRAY 

255 

273 

K i 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

l } 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

f l 

EXPNO 

REAL 

SIMPLE 

365/  R 

-V 

; F 1 DT 

RDPARM 

REAL 

SIMPLE 

223 

■ 

! F2DT 

RDPARM 

REAL 

SIMPLE 

224 

1 FCOEF 

CNTRLP 

REAL 

SIMPLE 

317 

FC0RL5 

RDPARM 

REAL 

ARRAY 

222 

•jH 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

200 

203 

FMU 

CNTRLP 

REAL 

SIMPLE 

318 

i FUSION 

QANDQT 

REAL 

ARRAY 

256 

274 

iJfl 

[ FWET 

CNTRLP 

REAL 

SIMPLE 

319 

r' 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

320 

t ' ! 

! GNU  1 

RCNTRL 

REAL 

SIMPLE 

158 

t 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

| * 

GRAV 

RCNTRL 

REAL 

simple 

160 

E ■ | 

GT 

QANDQT 

REAL 

ARRAY 

245 

263 

K 

GTOPO 

CNTRLP 

PEAL 

SIMPLE 

321 

* • GW 

QANDQT 

REAL 

ARRAY 

246 

264 

GW  t 

MNTHL  Y 

REAL 

ARRAY 

340 

342 

GW2 

MNTHLY 

REAL 

ARRAY 

339 

342 

i i GV/SGCW 

PROGRAM 

T 

'I.  H t DT 

RDPARM 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

228 

i \ HEATI 

RCNTRL 

REAL 

SIMPLE 

182 

fl  HEATW 

RCNTRL 

REAL 

SIMPLE 

131 

;•  HFLUK 

QANDQT 

REAL 

ARRAY 

254 

272 

> 

HICE 

CNTRLP 

REAL 

SIMPLE 

322 

r 

IC 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

Ltt  ICO 

ICNTRL 

integer 

SIMPLE 

25 

90 

iii 

I CLOUD 

QANDQT 

INTEGER 

ARRAY 

259 

277 

■ A 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

36 

37 

it  \ 

47 

48 

}i\l 

58 

59 

r 

68 

70 

5 Li  ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

5IMFLE 

68 

Jill  IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

If  IDPARM 

INTEGER 

UNKNOWN 

189 

190 

} ! I DSP 02 

IDPARM 

INTEGER 

SIMPLE 

190 

i i IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

\ ' ! iFiisroN 

ICNTRL 

INTEGER 

UNKNOWN 

33 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

si 

I I CLOUD 

ICNTRL 

INTEGF-R 

UNKNOWN 

86 

S -i  I JUMP 

f 1 IM 

IDPARM 

INTEGER 

ARRAY 

189 

ICNTRL 

INTEGER 

SIMPLE 

26 

i < 

< IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

r ^ 

lMD2Pt 

ICNTRL 

INTEGER 

SIMPLE 

23 

t INDEX 

IDPARM 

INTEGER 

ARRAY 

19  1 

; ■ * 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

:•  I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

SO 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

I QU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

I RADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

IRAOSW 

ICNTRL 

INTEGER 

UNKNOWN 

S3 

f-  IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

‘-r 

I TAPE 

LDPARM 

LOGICAL 

STMPLE 

20  t 

204 

392/S 


<o  -y 

c 

> ta 
H sn 


3 1 


27 

28 

29 

30 

31 

32 

33 

34 

35 

38 

39 

40 

4 1 

42 

43 

4d 

45 

46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

60 

61 

62 

63 

64 

65 

66 

67 

68 

71 

72 

73 

74 

75 

76 

191 

192 

193 

194 

185 

196 

197 

198 

1 93 

78  79  80  31  82  S3  84  85  86 

88  39 


GWSGCM  15 


ITM 
ITWAJf 
I TWIN 
J 

JC 

JE 

JIC 

JM 

JMoa 

dMT2 

JNP 

J04 

JOS 

JOB 

JP 

JSP 

KL  r ALB 
KLIGW 
KLISST 
KS 

K-STEP 

KU 

LC 

LCO 

LCNTRL 

LDIABAT 

LDPARM 

LEFLUX 

LFUS I ON 

LHFLUX 

LICLOUD 

LOGSR 

LOMEGA 

LPREACC 

LPRECON 

LQS 

LQU 

LRADLWG 

LRADSW 

LRADSWG 

LTM 

LTMAX 

LTMIN 

M 

MATIN 

MATSNX 

MATSUN 

Md 

MLF 

MNTHLY 

MROD 

MSM 

N 

N8 

ND 

NDALT 

NDAY 

NDHOG 

NDOUT 

NOPHY 

NDRSW 

NDSHF 

NOT 

NDTC3 

NFLW 

NHMS 

NHMSO 


INTEGER 

SIMPLE 

369 

360 

439 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ICNTRL 

INTEGER 

UNKNOWN 

77 

integer 

SIMPLE 

40S/C 

406 

407 

407 

408 

409 

409 

I DP ARM 

INTEGER 

ARRAY 

193 

I DP ARM 

INTEGER 

ARRAY 

194 

CCNTRL 

CHAR  *"8 

SIMPLE 

5 

16 

ICNTRL 

INTEGER 

SIMPLE 

30 

ICNTRL 

INTEGER 

SIMPLE 

3 1 

ICNTRL 

INTEGER 

SIMPLE 

32 

ICNTRL 

INTEGER 

SIMPLE 

33 

405 

429 

ICNTRL 

INTEGER 

SIMPLE 

34 

ICNTRL 

INTEGER 

SIMPLE 

35 

CCNTRL 

CHAR *8 

SIMPLE 

6 

19 

442/W 

IDpARM 

INTEGER 

ARRAY 

195 

ICNTRL 

INTEGER 

SIMPLE 

36 

405 

429 

ICNTRL 

integer 

SIMPLE 

37 

ICNTRL 

INTEGER 

SIMPLE 

38 

ICNTRL 

INTEGER 

SIMPLE 

39 

ICNTRL 

INTEGER 

SIMPLE 

40 

IDPARM 

INTEGER 

SIMPLE 

196 

395  t S 

400/S 

ICNTRL 

INTEGER 

SIMPLE 

41 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

INTEGER 

UNKNOWN 

92 

93 

94 

95 

96 

97 

98 

103 

104 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

INTEGER 

UNKNOWN 

200 

20  T 

202 

LCNTRL 

LOGICAL 

UNKNOWN 

no 

135 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

ICNTRL 

INTEGER 

SIMPLE 

42 

LCNTRL 

LOGICAL 

UNKNOWN 

116 

140 

LCNTRL 

LOGICAL 

UNKNOWN 

1 07 

132 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

133 

LCNTRL 

LOGICAL 

ARRAY 

103 

105 

106 

1 07 

108 

109 

1 10 

128 

LCNTRL 

LOGICAL 

ARRAY 

104 

1 15 

t 16 

1 1 7 

129 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

138 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

INTEGER 

SIMPLE 

360  /S 

440 

441  /S 

LCNTRL 

LOGICAL 

UNKNOWN 

1 06 

131 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

INTEGER 

SIMPLE 

348 

348 

ICNTRL 

INTEGER 

SIMPLE 

43 

367 

367 

382 

382 

4 28 

ICNTRL 

INTEGER 

SIMPLE 

44 

367/S 

380 

381/5 

382  / S 

400 

406 

ICNTRL 

INTEGER 

SIMPLE 

45 

370 

350  /S 

385 

391 

442/W 

IDPARM 

INTEGER 

array 

T 97 

407 

407 

409 

409 

ICNTRL 

INTEGER 

ARRAY 

46 

381 

INTEGER 

UNKNOWN 

339 

ICNTRL 

INTEGER 

SIMPLE 

47 

ICNTRL 

integer 

SIMPLE 

49 

INTEGER 

SIMPLE 

346 

348 

349 

349 

ICNTRL 

INTEGER 

SIMPLE 

50 

393/5 

393 

398  ' S 

398 

406 

407 

ICNTRL 

INTEGER 

SIMPLE 

51 

394/S 

394 

399/S 

399 

406 

410 

ICNTRL 

INTEGER 

SIMPLE 

52 

367 

367 

37  1 

37  1 

382 

382 

ICNTRL 

INTEGER 

SIMPLE 

53 

ICNTRL 

INTEGER 

SIMPLE 

74 

ICNTRL 

INTEGER 

SIMPLE 

54 

372 

372 

387 

387 

ICNTRL 

INTEGER 

SIMPLE 

55 

369 

369 

384 

384 

ICNTRL 

INTEGER 

SIMPLE 

29 

420 

420 

ICNTRL 

INTEGER 

SIMPLE 

56 

370 

370 

385 

385 

ICNTRL 

integer 

SIMPLE 

57 

349 

374 

378 

309 

390 

392 

CNTRLP 

INTEGER 

SIMPLE 

323 

CNTRLP 

INTEGER 

simple 

324 

ICNTRL 

INTEGER 

SIMPLE 

58 

349 

373 

378  /S 

378 

3S8 

419 

460  /W 

463  /W 

ICNTRL 

INTEGER 

SIMPLE 

60 

§ 


Q 

n 


K 


M 

Ch 


410  429/C  430 


99  100  lOt  102 


til  1 T2  1 13  114 


4 TO 


409  4 10  430 

430 

386  386 


442/W  448/W  451/W  457 


NHMS1 

IOPARM 

INTEGER 

SIMPLE 

198 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

419 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

422 

4 23 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

61 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLA  YP 1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

N5DAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

373/S 

374 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

379 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

367 

368 

457/W 

460/W 

463/W 

NTH 

INTEGER 

SIMPLE 

379/S 

33  1 

NTM 

INTEGER 

SIMPLE 

438 

439 

440 

NYJViD 

ICNTRL 

INTEGER 

SIMPLE 

69 

4 19 

4 19 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMD1 

IDPARM 

INTEGER 

SIMPLE 

199 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

4 19 

419 

NZINIT 

rCNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

QANDQT 

real 

ARRAY 

284 

293 

OMEGA  2 

RCNTRL 

REAL 

SIMPLE 

161 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

PHI 

QANDQT 

REAL 

ARRAY 

283 

292 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  180 

RCNTRL 

REAL 

simple 

163 

PI2 

RCNTRL 

REAL 

SIMPLE 

1 64 

PIM 

CNTRLP 

REAL 

SIMPLE 

325 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

RDPARM 

REAL 

SIMPLE 

22S 

PLEVS 

RCNTRL 

REAL 

ARRAY 

180 

PREACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PRECON 

QANDQT 

REAL 

ARRAY 

253 

271 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

P5MIN 

RCNTRL 

REAL 

SIMPLE 

168 

PSTD 

RCNTRL 

REAL 

SIMPLE 

165 

PTOP 

RCNTRL 

REAL 

SIMPLE 

169 

PZERO 

RCNTRL 

REAL 

SIMPLE 

186 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 18 

371/S 

QANDQT 

REAL 

UNKNOWN 

24  1 

278 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

t 19 

36S/S 

QDA  Y 

LCNTRL 

logical 

SIMPLE 

95 

120 

374/S 

QEND 

LCNTRL 

logical 

SIMPLE 

96 

121 

419/S 

QHOG 

CNTRLP 

logical 

SIMPLE 

326 

33S 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

1 22 

372/S 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

369/S 

QR5H 

LCNTRL 

LOGICAL 

SIMPLE 

102 

127 

421/S 

ORSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

126 

420/3 

OS 

OANDQT 

REAL 

ARRAY 

24  1 

260 

261 

270 

271 

272 

QSH 

A MAM 

HALF 

ARRAY 

344 

345 

358 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

t 24 

370/5 

QU 

QANDQT 

REAL 

ARRAY 

278 

288 

289 

QUH 

AMAM 

HALF 

ARRAY 

344 

345 

RADE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

REAL 

ARRAY 

287 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

258 

276 

RADSW 

OANDQT 

REAL 

ARRAY 

286 

295 

RADSWG 

QANDQT 

REAL 

ARRAY 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 

187 

1 SB 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

188 

RCNTRL 

REAL 

UNKNOWN 

145 

146 

147 

156 

157 

158 

167 

168 

169 

17B 

179 

180 

RDPARM 

REAL 

UNKNOWN 

206 

207 

208 

217 

218 

219 

228 

229 

230 

23S 

240 

423  423 


3Sa/S  339 

377/S  377  379  332  383  442/W  443/W  451 

44  1 

423  442/W  4 48/Vf  451/W  457/W  460/W  463/W 


386/S  426 

375  383/S  4 T 3 418  423  436  443 

389/S  418  423 

423  436  443 


387/S 

424 

433 

434 

436 

455 

384/S 

403 

423/S 

433 

424/S 

424 

433 

262 

263 

264 

265 

266 

257 

268 

269 

273 

274 

275 

276 

277 

352 

305 /S  414 

290  291  292  293  294  295  296 


1 48 

149 

150 

15  t 

159 

160 

161 

1 62 

170 

171 

172 

*73 

181 

182 

183 

184 

209 

210 

211 

212 

220 

221 

222 

223 

23  1 

232 

233 

234 

152 

153 

154 

155 

163 

164 

165 

166 

174 

175 

176 

177 

185 

185 

213 

2 14 

215 

216 

224 

225 

226 

227  _ 
238  © 

235 

236 

237 

cn 


t 


ix  v ■ 


i 

\ 


RGAS 

RCNTRL 

REAL 

SIMPLE 

171 

RLAT  , 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

R DP ARM 

REAL 

ARRAY 

230 

ROCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

23  1 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

173 

SDAY 

RCNTRL 

REAL 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

SH 

QANDQT 

REAL 

ARRAY 

232 

291 

5HLTOP 

cntrlp 

REAL 

SIMPLE 

327 

SHS 

QANDQT 

REAL 

ARRAY 

24S 

266 

SIG 

RDPARM 

REAL 

ARRAY 

240 

SIGE 

RCNTRL 

REAL 

ARRAY 

176 

SIND 

RCNTRL 

REAL 

SIMPLE 

1 77 

SI  NL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

REAL 

ARRAY 

235 

SINROT 

CNTRLP 

REAL 

SIMPLE 

32B 

SMTH 

QANDQT 

REAL 

ARRAY 

243 

261 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

100 

125 

SNOWN 

CNTRLP 

REAL 
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REAL 
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REAL 
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REAL 

ARRAY 

279 

288 

V 

QANDQT 
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ARRAY 
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REAL 
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SUBROUTINE 

SUBROUTINE 

subroutine 

subroutine 

SUBROUTINE 

FUNCTION 
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SUBROUTINE  ADDQ  (Ml,  N2 , J) 
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2 

C * 

* 5 A U *J  V 

*j 

c 

PURPOSE 

SADDQ 
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UTILITY  SUBROUTINE  TO  ADD  4 TH-ORDER  MODEL  VALUES. 
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CALLED  BY  MAIN  (GWSGCM1  ONLY 
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USAGE 
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ARGUMENTS  DESCRIPTION 

SADDQ 

10 

c 

M 1 TIME  STEP  POINTER  OF  VALUES  TO  WHICH 
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SADDQ 
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N2  TIME  STEP  POINTER  OF  VALUES  TO  ADD 

SADDQ 
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J LATITUDE  GRID  BAND 
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13 
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subprograms  NEEDED 
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15 
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NAME  DESCRIPTION 
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NONE 
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RECORD  OF  MODIFICATIONS 
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BASED  ON  OLD  VERSION  8. 

SADDQ 
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7DATE7  7 PROGRAMMER?  ^DESCRIPTION  OF  MODIFICATIONS'? 

SADDQ 
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05/04/83  RAMESH  THIS  PART  AND  COMMENTS 
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24 
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REMARKS: 
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CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 
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SCNTRL 
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00002 

COMMON  /CCNTRL / CCO 

SCNTRL 

5 

00003 

COMMON  /CCNTRL/  ADATE 

SCNTRL 
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COMMON  /CCNTRL/  ATIME 

SCNTRL 
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00005 

COMMON.  /CCNTRL/  JIC 

SCNTRL 
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SCNTRL 
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00007 
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SCNTRL 

10 

oooos 

COMMON  /CCNTRL/  CC5P07 

SCNTRL 
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COMMON  /CCNTRL/  VER 

SCNTRL 
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COSH 

SCNTRL 

1 15 

00103 
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1 16 

00  104 

COMMON  /LCNTRL/ 
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SCNTRL 

1 18 
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EQUIVALENCE 

( LTMIN 
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SCNTRL 

1 19 
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EQUIVALENCE 

(LTMAX  - 

. LQS  f 

2)  ) 

SCNTRL 

120 
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EQUIVALENCE 

(LPREACC 
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SCNTRL 
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EQUIVALENCE 
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SCNTRL 
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EQUIVALENCE 
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EQUIVALENCE 
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SCNTRL 
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EQUIVALENCE 

(LRADLWG 
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( LI CLOUD 

.lqsi 
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128 

C 

SCNTRL 

129 

00115 

EQUIVALENCE 
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SCNTRL 

t 30 

00  116 

EQUIVALENCE 

(LDIABAT 

, LQU  ( 

2)  ) 

SCNTRL 

131 

00117 

EQUIVALENCE 

< LRADSW 

♦ LQU  ( 

3)  > 

SCNTRL 

132 

C 

SCNTRL 

133 

00  MB 

LOGICAL 

QALT 

SCNTRL 

134 

00  119 

LOGICAL 

OB  EG 

SCNTRL 

135 

00  1 20 

LOGICAL 

QDAY 

SCNTRL 

136 

00  121 

LOGICAL 

QEND 

SCNTRL 

137 

OO  1 22 

LOGICAL 

QOUT 

SCNTRL 

t 3 B 

00123 

LOGICAL 

QPHY 

SCNTRL 

139 

00124 

LOGICAL 

QSHF 

SCNTRL 

140 

00125 

LOGICAL 

SN2FLG 

SCNTRL 

141 

00126 

LOGICAL 

QRSW 

SCNTRL 

142 

00  1 27 

LOGICAL 

QRSH 

SCNTRL 

143 

c 

SCNTRL 

144 

00  1 2B 

LOGICAL 

LQS 

SCNTRL 

145 

00  1 23 

LOGICAL 

LQU 

SCNTRL 

1 46 

00130 

LOGICAL 

LTMIN 

SCNTRL 

T47 

0013  1 

LOGICAL 

LTMAX 

SCNTRL 

148 

00132 

LOGICAL 

LPREACC 

SCNTRL 

149 

00133 

LOGICAL 

L PRECON 

SCNTRL 

150 

OO  T34 

LOGICAL 

LHFLUX 

SCNTRL 
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00  135 

LOGICAL 

LEFLUX 

SCNTRL 
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00  136 

LOGICAL 

LFUSION 

SCNTRL 
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00  137 

LOGICAL 

LRADSWG 

SCNTRL 
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00138 

LOGICAL 

LRADLWG 

SCNTRL 
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LI  CLOUD 

SCNTRL 
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SCNTRL 
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00140 
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RCO 

SCNTRL 
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COMMON  /RCNTRL/ 

APHEL 

SCNTRL 
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00147 

COMMON  /RCNTRL/ 

BETA 

SCNTRL 
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00148 

COMMON  /RCNTRL/ 

COSD 

SCNTRL 

170 

00149 

COMMON  /RCNTRL/ 

CP 

SCNTRL 
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00  150 

COMMON  /RCNTRL/ 

DAYSPY 

SCNTRL 
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0015  1 

COMMON  /RCNTRL/ 

DEC 

SCNTRL 

173 

00152 

COMMON  /RCNTRL/ 

DECMAX 

SCNTRL 
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COMMON  /RCNTRL/ 

DIST 

SCNTRL 
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COMMON  /RCNTRL/ 

DL  AT 

SCNTRL 
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00  155 

COMMON  /RCNTRL/ 

DLON 

SCNTRL 
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00  156 

COMMON  /RCNTRL/ 

DT 

SCNTRL 
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COMMON  /RCNTRL/ 

ECCN 

SCNTRL 
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00  158 

COMMON  /RCNTRL/ 

GNU  1 

SCNTRL 
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COMMON  /RCNTRL/ 

GNU2 

SCNTRL 
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COMMON  /RCNTRL/ 

GRAV 

SCNTRL 
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COMMON  /RCNTRL/ 
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SCNTRL 
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common 

/RCNTRL/ 

P I 2 

SCNTRL 
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COMMON 

/ RCNTRL / 

PSTD 

SCNTRL 
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COMMON 

/RCNTRL/ 

PIMEAN 

SCNTRL 
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COMMON 

/RCNTRL/ 

PSMAX 

SCNTRL 
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COMMON 

/RCNTRL/ 

PSMIN 

SCNTRL 
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COMMON 

/RCNTRL/ 

PTOP 
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COMMON 

/RCNTRL/ 

RADE 

SCNTRL 
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COMMON 

/RCNTRL/ 

RGAS 

SCNTRL 
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COMMON 

/RCNTRL/ 

rocp 

SCNTRL 
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COMMON 

/RCNTRL/ 

RSDIST 

SCNTRL 
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00  174 

COMMON 

/RCNTRL/ 

SDAY 

SCNTRL 
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00  175 

COMMON 
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SEASON 

SCNTRL 
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SIGE 
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SIND 

SCNTRL 
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SOLS 

SCNTRL 
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TSTD 

SCNTRL 
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PLEVS 
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SCNTRL 
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COMMON 

/RCNTRL/ 

HEATW 

SCNTRL 
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/ I DPARM/ 

IROD 
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JC 
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JE 
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COMMON 
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JP 
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KSTEP 
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MJ 
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SCNTRL 

225 

c 

SCNTRL 

226 

c 

LOGICAL  MODEL  CONSTANTS 

SCNTRL 

227 

c 

“ = = = =:  = = = ““ 

s = = = =■ 

SCNTRL 

228 

00200 

COMMON 

/LDPARM/ 

FILTER 

(4G) 

SCNTRL 

229 

00201 

COMMON 

/L DPARM/ 

ITAPE 
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43 
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44 
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45 
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47 
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4B 
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49 
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50 

SCNTRL 

61 

SCNTRL 

52 

SCNTRL 

53 

SCNTRL 

54 

SCNTRL 

55 

SCNTRL 

56 

SCNTRL 

57 

SCNTRL 

58 

SCNTRL 

59 

SCNTRL 

60 

SCNTRL 

61 
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62 
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63 
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64 
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65 
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66 
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00065 

COMMON  /ICNTRL/ 

NSEQ 

SCNTRL 

72 

00066 

COMMON  /ICNTRL/ 

ICSP53 

SCNTPL 

73 

00067 

COMMON  /ICNTRL/ 

NSTEP 

SCNTRL 

74 

00066 

COMMON  /ICNTRL/ 

ICSP55 

SCNTRL 

75 

00069 

COMMON  /ICNTRL/ 

NYMD 

SCNTRL 

76 

00070 

COMMON  /ICNTRL/ 

NYMDE 

SCNTRL 

77 

00071 

COMMON  /ICNTRL/ 

NYMDO 

SCNTRL 

7S 

00072 

COMMON  /ICNTRL/ 

NZINIT 

SCNTRL 

79 

00073 

COMMON  /ICNTRL/ 

NIU1LEV 

SCNTRL 

80 

00074 

COMMON  /ICNTRL/ 

NDHOG 

SCNTRL 

81 

00075 

COMMON  / I CNTRL / 

IQS  t 30  > 

SCNTRL 

82 

00076 

COMMON  /ICNTRL/ 

I0U  (10) 

SCNTRL 

83 

0 
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85 
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86 
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SCNTRL 

87 
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88 
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89 
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SCNTRL 
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SCNTRL 

92 
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97 
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EQUIVALENCE 

(IRADSW 
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99 
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101 
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SCNTRL 

103 

c 

= B S = S 

SCNTRL 

104 

00092 

COMMON  /LCNTRL/ 

LCO 

SCNTRL 

105 

00093 

COMMON  /LCNTRL/ 

QALT 

SCNTRL 

TOG 

00094 

COMMON  /LCNTRL/ 

QBEG 

SCNTRL 

107 

00095 

COMMON  /LCNTRL/ 

PDA  Y 

SCNTRL 

108 

00096 

COMMON  /LCNTRL/ 

QEND 

SCNTRL 

1 09 

00097 

COMMON  /LCNTRL/ 

QOUT 

SCNTRL 

1 1 0 

00098 

COMMON  /LCNTRL/ 

QPHY 

SCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

QSHF 

SCNTRL 

1 1 2 

00  1 00 

COMMON  /LCNTRL/ 

SN2FLG 

5CNTRL 

1 13 

00101 

COMMON  /LCNTRL/ 

QR  SW 

SCNTRL 

1 14 

00102 

COMMON  /LCNTRL/ 

GRSH 

SCNTRL 

1 15 

00103 

COMMON  /LCNTRL/ 

LQS { 30 ) 

SCNTRL 

116 

00104 

COMMON  /LCNTRL/ 

LQUt 1 0} 

SCNTRL 
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c 
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00  105 
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c 
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EQUIVALENCE 
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00  1 16 

EQUIVALENCE 

{LDIABAT 
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QALT 
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QBEG 

SCNTRL 
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QEND 

SCNTRL 
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QOUT 

SCNTRL 
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00  1 23 

LOGICAL 

QPHY 

SCNTRL 
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00  124 

LOGICAL 

QSHF 

SCNTRL 
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SN2FLG 

SCNTRL 
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QRSW 

SCNTRL 

142 
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SCNTRL 
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00  129 
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LQU 
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LTMIN 

SCNTRL 
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00131 
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LTMAX 

SCNTRL 

148 
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SCNTRL 
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APHEL 

SCNTRL 

168 

00147 

COMMON 

/RCNTRL/ 

SETA 

SCNTRL 

169 

00148 

COMMON 

/RCNTRL/ 

C05D 

SCNTRL 

170 

00  149 

CDMMON 

/RCNTRL/ 

CP 

SCNTRL 

171 

00150 

COMMON 

/RCNTRL/ 

DAYSPY 

SCNTRL 

172 

00151 

COMMON 

/RCNTRL/ 

DEC 

SCNTRL 

173 

00152 

COMMON 

/RCNTRL/ 

DECMAX 

SCNTRL 

174 

00153 

COMMON 

/RCNTRL/ 

DIST 

SCNTRL 

175 

00154 

COMMON 

/RCNTRL/ 

DLAT 

SCNTRL 

176 

00155 

COMMON 

/RCNTRL/ 

□ LON 

5CNTHL 

177 

00156 

COMMON 

/RCNTRL/ 

DT 

SCNTRL 
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00157 

COMMON 

/RCNTRL/ 

ECCN 

SCNTRL 

179 

TJ  65 

00158 

COMMON 

/RCNTRL/ 
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SCNTRL 
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00159 
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/RCNTRL/ 
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SCNTRL 
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/RCNTRL/ 

GRAV 

SCNTRL 
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00161 

COMMON 

/RCNTRL/ 
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SCNTRL 
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00162 

COMMON 
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PI 

SCNTRL 
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00163 

COMMON 
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SCNTRL 
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00164 

COMMON 
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PSTD 

SCNTRL 
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<3 
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COMMON 
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PIMEAN 

SCNTRL 
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r* 
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COMMON 

/RCNTRL/ 

PSMAX 

SCNTRL 

1B9 

i 

00168 

COMMON 

/RCNTRL/ 

PSMIN 

SCNTRL 

150 

A 

00169 

COMMON 

/RCNTRL/ 

PTOP 

SCNTRL 
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00170 

COMMON 

/RCNTRL/ 

RACE 

SCNTRL 

192 

00171 

COMMON 

/RCNTRL/ 

RGAS 

SCNTRL 

T 93 

00172 

COMMON 

/RCNTRL/ 

RQCP 

SCNTRL 
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00173 

COMMON 

/RCNTRL/ 

PSDIST 

SCNTRL 
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00174 

COMMON 

/RCNTRL/ 

SDAY 

SCNTRL 
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00175 

COMMON 

/RCNTRL/ 

SEASON 

SCNTRL 

197 

00176 

COMMON 

/RCNTRL/ 

SIGE  (25) 

SCNTRL 
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00177 

COMMON 

/RCNTRL/ 
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SCNTRL 
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00173 
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SCNTRL 
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TSTD 
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SCNTRL 
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00183 
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/RCNTRL/ 
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SCNTRL 
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00184 

COMMON 
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SCNTRL 
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COMMON 
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SCNTRL 

207 
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COMMON 

/RCNTRL/ 

PZERO 

SCNTRL 
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00190 

COMMON 
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IDSP02 
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/ I OP ARM/ 
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COMMON 

/IDPARM/ 
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/ 1 DP ARM/ 
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COMMDN 
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/RDPARM/ 

CONI 

SCNTRL  240 

00203 

COMMON 

/ RDP ARM/ 

CONTDT 

SCNTRL  241 

00209 

COMMON 

/RDPARM/ 

C0N2 

SCNTRL  242 

00210 

COMMON 

/RDPARM/ 

C0N2DT 

SCNTRL  243 

002  1 1 

COMMON 

/RDPARM/ 

C0N3 

SCNTRL  244 

00212 

COMMON 

/RDPARM/ 

C0N3DT 

SCNTRL  245 

002  13 

COMMON 

/RDPARM/ 

C0N4 

SCNTRL  246 

002  J4 

common 

/RDPARM/ 

CON4DT 

SCNTRL  247 

00215 

COMMON 

/RDPARM/ 

CONS 

SCNTRL  243 

00216 

COMMON 

/RDPARM/ 

COSL 

(46) 

SCNTRL  249 

00217 

COMMON 

/RDPARM/ 

COSLON 

< 72) 

SCNTRL  250 

002  1 B 

COMMON 

/RDPARM/ 

CPD2 

SCNTRL  251 

00213 

COMMON 

/RDPARM/ 

DXP 

(46) 

SCNTRL  252 

00220 

COMMON 

/RDPARM/ 

DXYP 

(46  ) 

SCNTRL  253 

0 0221 

COMMON 

/RDPARM/ 

DYP 

(46) 

SCNTRL  254 

00222 

common 

/RDPARM/ 

FC0RLS 

146) 

SCNTRL  255 

00223 

COMMON 

/RDPARM/ 

F1DT 

SCNTRL  256 

00224 

COMMON 

/RDPARM/ 

F2DT 

SCNTRL  257 

00225 

COMMON 

/RDPARM/ 

H1DT 

5CNTRL  258 

00226 

COMMON 

/RDPARM/ 

H2DT 

SCNTRL  259 

00227 

COMMON 

/RDPARM/ 

PKSTD 

SCNTRL  260 

0022B 

COMMON 

/RDPARM/ 

PKTOP 

SCNTRL  261 

00229 

COMMON 

/RDPARM/ 

RLAT 

(46) 

SCNTRL  262 

00230 

COMMON 

/RDPARM/ 

RLATD 

(46) 

SCNTRL  253 

00231 

COMP/JON 

/RDPARM/ 

ROCPDT 

SCNTRL  264 

00232 

COMMON 

/RDPARM/ 

ROCPP 1 

SCNTRL  265 

00233 

COMMON 

/RDPARM/ 

SGNP 

(2) 

SCNTRL  266 

00234 

COMMON 

/RDPARM/ 

SINL 

(46) 

SCNTRL  267 

00236 

COMMON 

/RDPARM/ 

SINLON 

(72) 

SCNTRL  268 

00  236 

COMMON 

/RDPARM/ 

THSTD 

SCNTRL  269 

00237 

COMMON 

/RDPARM/ 

THSTD2 

SCNTRL  270 

00238 

COMMON 

/RDPARM/ 

WSAVE 

( 159) 

SCNTRL  27 J 

00239 

COMMON 

/RDPARM/ 

DSIG 

(9) 

SCNTRL  272 

00240 

COMMON 

/RDPARM/ 

5IG 

(9) 

SCNTRL  273 
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00242 
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SBLOCKD  5 

00243 
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00244 
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00254 

COMMON 
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CDXL 

SCNTRLP 

5 

00255 

COMMON 

/CNTRLP/ 

CDXO 

SCNTRLP 

6 

00  256 

COMMON 

/CNTRLP/ 

CLH 

SCNTRLP 

7 

00257 

COMMON 

/CNTRLP/ 

COE  f9l 

SCNTRLP 

8 

00258 

COMMON 

/CNTRLP/ 

COEF 

SCNTRLP 

9 

00259 

COMMON 

/CNTRLP/ 

COEFS 

SCNTRLP 

10 

00260 

COMMON 

/CNTRLP/ 

COSROT 

SCNTRLP 

t 1 

0025  t 

COMMON 

/CNTRLP/ 

CPP 

SCNTRLP 

12 

00252 

COMMON 

/CNTRLP/ 

CTID 

SCNTRLP 

13 

00263 

COMMON 

/CNTRLP/ 

CUMDAY 

SCNTRLP 

14 

00264 

COMMON 

/CNTRLP/ 

CUMRAT 

SCNTRLP 

t 5 

00265 

COMMON 

/CNTRLP/ 

CIO 

SCNTRLP 

16 

00266 

COMMON 

/CNTRLP/ 

cioo 

SCNTRLP 

17 

00267 

COMMON 

/CNTRLP/ 

C40 

SCNTRLP 

18 

00263 

COMMON 

/CNTRLP/ 

DELTA 

SCNTRLP 

19 

00269 

COMMON 

/CNTRLP/ 

DTC3 

SCNTRLP 

20 

00270 

COMMON 

/CNTRLP/ 

DTOUT 

SCNTRLP 

21 

0027  1 

COMMON 

/CNTRLP/ 

ED 

SCNTRLP 

22 

00272 

COMMON 

/CNTRLP/ 

EDNM 

SCNTRLP 

23 

00273 

COMMON 

/CNTRLP/ 

FCOEF 

SCNTRLP 

24 

00274 

COMMON 

/CNTRLP/ 

FMU 

SCNTRLP 

25 

OOZ75 

COMMON 

/CNTRLP/ 

FWET 

5CNTRLP 

26 

00276 

COMMON 

/CNTRLP/ 

GAMFAC 

SCNTRLP 

27 

00277 

COMMON 

/CNTRLP/ 

GTOPO 

SCNTRLP 

28 

00278 

COMMON 

/CNTRLP/ 

HICE 

SCNTRLP 

29 

00279 

COMMON 

/CNTRLP/ 

NDTC3 

SCNTRLP 

30 

00280 

COMMON 

/CNTRLP/ 

NFLW 

SCNTRLP 

31 

00  28  1 

COMMON 

/CNTRLP/ 

PIM 

SCNTRLP 

32 

00282 

COMMDN 

/CNTRLP/ 

QHOG 

SCNTRLP 

33 

o o 
"n  ^ 

00283 

COMMON 

/CNTRLP/ 

SHLTOP 

SCNTRLP 

34 

00234 

COMMON 

/CNTRLP/ 

SINROT 

SCNTRLP 

35 

002S5 

COMMON 

/CNTRLP/ 

SNOWN 

SCNTRLP 

36 

(5 

00286 

COMMON 

/CNTRLP/ 

SNOWS 

SCNTRLP 

37 

o? 

O Va 

X)  p 

00287 

COMMON 

/CNTRLP/ 

STBO 

SCNTRLP 

38 

0028B 

COMMON 

/CNTRLP/ 

STERPt 

SCNTRLP 

39 

00239 

COMMON 

/CNTRLP/ 

STERP2 

SCNTRLP 

40 

00290 

common 

/CNTRLP/ 

TICE 

SCNTRLP 

41 

PASi 

QUAI 

0029  I 

COMMON 

/CNTRLP/ 

TLTOP 

SCNTRLP 

42 

00292 

COMMON 

/CNTRLP/ 

XDAY 

SCNTRLP 

43 

00293 

COMMON 

/CNTRLP/ 

ZLNCO 

SCNTRLP 

44 

00294 

LOGICAL 

QHOG 

SCNTRLP 

45 

c 

SCNTRLP 

46 

00295 

DATA  CPP/.24/ 

SBLOCKD 

17 

& 

00296 

DATA  CIO/60./ 

SBLOCKD 

18 

00237 

DATA  C40/8./ 

SBLOCKD 

19 

00298 

DATA  C100/100./ 

SBLOCKD 

20 

00299 

DATA  EDNM/2./ 

SBLOCKD 

21 

00300 

DATA  HICE/300./ 

SBLOCKD 

22 

00301 

DATA  STBO/1 , 171E-7/ 

SBLOCKD 

23 

00302 

DATA  T ICE/273 . 16/ 

SBLOCKD 

24 

00303 

DATA  SHLTOP/ . 00002/ 

SBLOCKD 

25 

00304 

DATA  TLTOP/220./ 

• 

SBLOCKD 

26 

00305 

DATA  GTOPO/120, 1612/ 

SBLOCKD 

27 

00306 

DATA  DELTA/. 0001/ 

SBLOCKD 

28 

c 

» + * 

SRADCOM 

2 

c 

RADIATION 

AND  SOURCE  TERM  FIELDS 

5RADCOM 

3 

00307 

COMMON 

/RADCOM/ 

A5C72.9) f RE (72.10) 

SRADCOM 

4 

00303 

COMMON 

/RADCOM/ 

PL ( 72 , 9 } , PLE  t 7 2 , 10) 

SRADCOM 

5 

00309 

COMMON 

/RADCOM/ 

P LK 172,9)  , PLKE( TO) 

SRADCOM 

6 

00310 

COMMON 

/RADCOM/ 

TL  <72,9)  . TLE172. 10) 

SRADCOM 

7 

003  1 t 

COMMON 

/RADCOM/ 

TG ( 72 } , TH (72,9) 

SRADCOM 

8 

00312 

COMMON 

/RADCOM/ 

SHL 172,9) , SHLE172.10) 

SRADCOM 

9 

00313 

COMMON 

/RADCOM/ 

SHG (72)  , CLOUD  f 72 , 12) 

SRADCOM 

10 

003  1 4 

COMMON 

/RADCOM/ 

SHSAT(72r9} , GAM 172, 9) 

SRADCOM 

1 1 

003  15 

COMMON 

/RADCOM/ 

RH { 72  r 9 ) 

SRADCOM 

12 

00316 

COMMON 

/RADCOM/ 

SSS (72,9)  r S5SE { 7 2 , 10) 

SRADCOM 

13 

BLOCK  DATA  5 


00317 

00318 

00319 

00320 
0032  1 

00322 

00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

00340 

0034  1 

00342 

00343 

00344 

00345 

00346 

00347 

0O34B 

00349 

00350 

0035  1 


00352 


00353 


00354 


00355 

00356 

00357 

00358 

00359 

VARIABLE 
- -NAME- - 

ADATE 

ADLDP 

AL 

APHEL 

AS 

ATIME 

BETA 

CIO 

C100 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

LOGICAL 


/RADCOM/  HH172.9),  HHE172.10) 

/RADCOM/  HHS (72,9) 

/RAOCOM/  CVT172.9I f CVQ172,9) 

/RADCOM/  CXDE  f 9 ) 

/RADCOM/  SWAL  E'f  7 2 * 10)  , 5WILC72,9) 

/RADCOM/  ALf 72, 10) 

/RADCOM/  TAUL (72, 10)  , OZALE172.10) 

/RADCOM/  TQPABS  < 72  ) 

/RADCOM/  RN ( 9 ) , TN ( 9 ) , SRS<9), 

/ RADCOM/  TC0NDC9),  TPENEfS) 

/RADCOM/  TLOWL , TMIDL , NLAYOZ 
/RADCOM/  FK ( 5 ) , XK(5>*  NFK 

/RADCOM/  OL JAN  <19),  OLAPR 1 1 9 ) f 
/RADCOM/  0CM2 2 ( 23 ) , 0CM3O < 23 1 , 

/RADCOM/  P ROOM ( 23 ) , OCMXX(23), 

/RADCOM/  CZH<72),  WET172),  E VAP , PREP172).  WU7Z) 
/RADCOM/  C0SZ<72),  SO,  RADTRM  < 72 ) , CXL 
/RADCOM/  SGf 72 > , SPf 72 ) 

/RADCOM/  RSURF (72).  RCLOUD<72).  JALB 
/RADCOM/  LAND ( 72  ) , OCEAN(72>,  ICE172) 

/RADCOM/  SNOW  f 7 2 ) , MIXWII72),  FR0ST<72> 

LAND,  OCEAN , ICE,  SNOW.  MIXWI,  FROST 


STN(9> 


OL JUL ( 19} , OLOCTf 19) 
0CM38 { 233,  OCM46  f 23 ) 

NOZ f TOTOZ { 4 ) , CDATE  1 6 ) 


DATA  TCOND/O . 0 , 1 
DATA  TPENE/0.0,0 
DATA  TLOWL / 16,/ 

DATA  TM I DL/8 . 0 / 

DATA  NLAYOZ/5/ 

DATA  FK/O . 107 ,0 
DATA  XK/O, 005,0 
DATA  NFK/5 / 

DATA  OLJAN/,2292, .2308, 

& .3121 , .3204 i .3292, 

DATA  OLAPR/ . 2375 .. 2408, 

5 .3603, .3762, ,3925, 
DATA  OLJLTL/ .23B7  , . 2454  , 

6 .3187* ,3275, .3329, 
DATA  OLOCT/, 2346, .2358, 

. 2679 ,.2717,. 2754 , 


0,2. 0,4. 0,6, 0,6. 0.8. 0,8. 0,8.0/ 
O.B.O'B. 0,6. 0,8. 0.8. 0,8. 0,8.0/ 


104.0. 073.0.044.0.025/ 

041 .0. 416.4.752.72.459/ 


2475, 
. 4075 , 
2508  , 
.3354 , 
. 2383 , 
2792, 


. 2646, 
.3575, 
.2879, 


.2354, .2417, .2521 , 

,3404,  .3496,  .3542, 

- 2533,  .2725, 

.4200, .4287, -4333, 
.2583, . 2658 , .2746 , 

3353. . 3337. .3321 , 

2425 . .  2479 . . 2525 , 

2829. .  2867 . . 2883 , 


2783. . 2942. . 

3579. . 3567. . 

3062 . . 3250. . 

4342 . .  4329 . . 

2837. . 2950 . . 

3283. . 3229. . 

2567 . .  2608. . 
2S96 , . 2B96 , . 


3042, 
3558/ 
3429, 
4312/ 
3067  , 
3 175/ 
2646, 
2883/ 


SRADCOM  14 
5RADC0M  15 
SRADCOM  16 
SRADCOM  17 
SRADCOM  IS 
SRADCOM  19 
SRADCOM  20 
SRADCOM  21 
SRADCOM  22 
SRADCOM  23 
SRADCOM  24 
SRADCOM  25 
SRADCOM  26 
SRADCOM  27 
SRADCOM  28 
SRADCOM  29 
SRADCOM  30 
SRADCOM  31 
SRADCOM  32 
SRADCOM  33 
SRADCOM  34 
SRADCOM  35 
SRADCOM  36 
SBLOCKD  30 
SBLOCKD  31 
SBLOCKD  32 
SBLOCKD  33 
SBLOCKD  34 
SBLOCKD  35 
SBLOCKD  36 
SBLOCKD  37 
SBLOCKD  38 
SBLOCKD  39 
SBLOCKD  40 
SBLOCKD  41 
SBLOCKD  42 
SBLOCKD  43 
SBLOCKD  44 
SBLOCKD  45 


DATA 

OCM22/ . 00008 

, ,00657 . .0  1830 , 

.03353  . 

.05914  . 

,08685  . . 

10930 . 

SBLOCKD 

46 

& 

. 14029 , . 1 6624 

, . 1 7797 , . 18492 , 

. 18867  f 

.19120, 

. 19384 , . 

19645 , 

SBLOCKD 

47 

a 

. 19844.  ,20262 

* .20601 , .20907, 

, 2 1 198  , 

.21473  , 

. 2 t 7 28  , . 

.21992/ 

SBLOCKD 

48 

DATA 

OCM30/ . 00008 

. . 00657 , , 0 1837 . 

, 03493 , 

, 062S0  , 

.10410,. 

1 3398 , 

SBLOCKD 

49 

a 

. 17521,  ,21079 

, . 22947 , .24222 . 

. 24927  , 

, 254 10 , 

. 259 11,, 

26396 , 

SBLOCKD 

SO 

& 

.26763, .27503 

f . 230  5 1 , . 285  28 , 

. 28937  , 

, 29307  . 

. 29645,  . 

29996/ 

SBLOCKD 

51 

DATA 

OCM3S/ . 00008 

* .00657, ,01869, 

. 03923  , 

. 07442 . 

. 12224  , . 

15686 . 

SBLOCKD 

52 

& 

.20473, . 24635 

, .27  145 ,.29138, 

.30410  , 

.31297, 

.32208 , . 

33065, 

SBLOCKD 

53 

a 

, 33675,  .34802 

* .35563, ,36162, 

, 36673 , 

.37134, 

.37559 , . 

3799S / 

SBLOCKD 

54 

DATA 

OCM46/ .00008 

* .00657 . , 0 1889, 

. 04 1 70, 

. 079EG  . 

. 1 2844  , , 

15345 . 

SBLOCKD 

55 

<3 

,21238* .25742 

* . 2S619  , 3 1 284, 

. 33246, 

. 34793, 

.36555 , . 

38344 , 

SBLOCKD 

56 

a 

, 39675  * *4 1902 

, .43025 , . 43784 , 

. 4440  1 , 

. 44953  . 

. 45471  , , 

46000/ 

SBLOCKD 

57 

DATA 

PROCM/ 1 . ,3.  . ! 

5.  ,7.  , 10.  ,15.  ,20.  ,30.  , 

45 . , 60 . 

,80 . . 100.  , 120  . . 

150., SBLOCKD 

58 

a 

ISO.  ,230.  ,340.  ,450*  , 560 . , 670 

, , 780  . * 

390 .,1013-25/ 

SBLOCKD 

59 

DATA 

CDATE/ -77 .0, 

15,0,  105.0, 1 96 . 

0 , 288 . 0 

,380  ; 0 / 

SBLOCKD 

60 

DATA 

TOTOZ/O .22,0 

,30,0.38,0 .46/ 

SBLOCKD 

61 

DATA 

NOZ/ 23 / 

SBLOCKD 

62 

* *■ 

SBLOCKD 

63 

END 

SBLOCKD 

64 

FS 

o 

*3 

> 

O' 


o o 

-n  2J 

-D  5£ 

021 

O 

pa  }- 

■23? 
c s 


9. 


MAP 

BLOCK TYPE CLASS REFERENCES  A-ARGLIST  , C = CTRL  OF  DO.  I =DATA  INIT,  R = READ  , S‘STORE  . W«WRITB 


CCNTRL 

CHAR  * 8 

SIMPLE 

3 

16 

RDPARM 

REAL 

SIMPLE 

206 

RADCOM 

REAL 

ARRAY 

322 

RCNTRL 

REAL 

SIMPLE 

146 

242/1 

RADCOM 

REAL 

ARRAY 

307 

CCNTRL 

CHARTS 

SIMPLE 

4 

17 

RCNTRL 

REAL 

SIMPLE 

147 

243/1 

CNTRLP 

REAL 

SIMPLE 

265 

296/1 

CNTRLP 

REAL 

SIMPLE 

266 

298/  I 

040 

CALTOd 

CC 

cco 

CCNTRL 

ccspos 

CCSP07 

CCSPOS 

CDATE 

corn 

CDXL 

CDXC 

CLH 

CLOUD 

CNTRLP 


COE 

CQEF 

COEFS 

CONI 

CONTDT 

ctm 

C0N2DT 

COM3 

CQN3DT 

CON4 

CON4DT 

CONS 

COSD 

COSL 

COSLON 

COSROT 

COSZ 

CP 

CP  0-2 
CPP 
cos 
cqu 

CTID 

CUMDAY 

CUMRAT 

CVQ 

CVT 

CXDE 

CXL 

CZH 

DAYSPY 

DEC 

OECMAX 

DELTA 

DIST 

dlat 

DLON 

DSIG 

DT 

DTC3 

□ TOUT 

DXP 

DXYP 

DYP 

ECCN 

ED 

EDNM 

EPS 

EPSFAC 
EVAP 
F IDT 


CNTRUP 

REAL 

SIMPLE 

267 

297/1 

RCNTRL 

REAL 

SIMPLE 

135 

251/1 

CCNTRL 

CHARtS 

ARRAY 

14 

15 

CCNTRL 

CHAR  *8 

SIMPLE 

2 

14 

REAL 

UNKNOWN 

2 

13 

7 

3 

CCNTRL 

CHAR*  8 

SIMPLE 

20 

CCNTRL 

CHAR*  8 

SIMPLE 

3 

21 

CCNTRL 

CHAR*B 

SIMPLE 

9 

22 

RADCOM 

REAL 

ARRAY 

331 

356/1 

CNTRLP 

REAL 

SIMPLE 

253 

CNTRLP 

REAL 

SIMPLE 

254 

CNTRLP 

real 

SIMPLE 

255 

CNTRLP 

REAL 

SIMPLE 

256 

RADCOM 

REAL 

ARRAY 

313 

REAL 

UNKNOWN 

253 

254 

264 

265 

275 

276 

286 

287 

CNTRLP 

REAL 

ARRAY 

257 

CNTRLP 

REAL 

SIMPLE 

258 

CNTRLP 

REAL 

SIMPLE 

259 

RDPARM 

REAL 

SIMPLE 

207 

RDPARM 

REAL 

SIMPLE 

208 

RDPARM 

REAL 

SIMPLE 

209 

RDPARM 

REAL 

SIMPLE 

210 

RDPARM 

REAL 

SIMPLE 

21  1 

RDPARM 

REAL 

SIMPLE 

212 

RDPARM 

REAL 

SIMPLE 

213 

RDPARM 

REAL 

SIMPLE 

2 14 

RDPARM 

REAL 

SIMPLE 

2 1 5 

RCNTRL 

REAL 

SIMPLE 

148 

RDPARM 

REAL 

ARRAY  ' 

2 16 

RDPARM 

REAL 

ARRAY 

217 

CNTRLP 

REAL 

SIMPLE 

260 

RADCOM 

REAL 

ARRAY 

333 

RCNTRL 

real 

SIMPLE 

149 

244/1 

RDPARM 

REAL 

SIMPLE 

2 18 

CNTRLP 

REAL 

SIMPLE 

261 

295/1 

CCNTRL 

REAL 

ARRAY 

12 

CCNTRL 

REAL 

ARRAY 

13 

CNTRLP 

REAL 

SIMPLE 

262 

CNTRLP 

REAL 

SIMPLE 

263 

CNTRLP 

REAL 

SIMPLE 

264 

RADCOM 

REAL 

ARRAY 

3 19 

RADCOM 

REAL 

ARRAY 

3 19 

RADCOM 

real 

ARRAY 

320 

RADCOM 

REAL 

SIMPLE 

333 

RADCOM 

real 

ARRAY 

332 

RCNTRL 

REAL 

SIMPLE 

ISO 

24S/I 

RCNTRL 

real 

SIMPLE 

151 

RCNTRL 

REAL 

SIMPLE 

152 

CNTRLP 

REAL 

SIMPLE 

268 

306/  I 

RCNTRL 

REAL 

SIMPLE 

153 

RCNTRL 

REAL 

SIMPLE 

154 

RCNTRL 

REAL 

SIMPLE 

155 

RDPARM 

REAL 

ARRAY 

239 

RCNTRL 

REAL 

SIMPLE 

156 

CNTRLP 

REAL 

SIMPLE 

269 

CNTRLP 

REAL 

SIMPLE 

270 

RDPARM 

REAL 

array 

219 

RDPARM 

REAL 

ARRAY 

220 

RDPARM 

REAL 

ARRAY 

221 

RCNTRL 

REAL 

SIMPLE 

157 

246/1 

CNTRLP 

REAL 

SIMPLE 

27  1 

CNTRLP 

REAL 

SIMPLE 

272 

299/1 

RCNTRL 

REAL 

SIMPLE 

1 S3 

252/  I 

RCNTRL 

REAL 

SIMPLE 

184 

RADCOM 

REAL 

SIMPLE 

332 

RDPARM 

REAL 

SIMPLE 

223 

IS 

4 


255 

266 

277 

288 


5 


256 

267 

278 

289 


6 7 


257  258 
26B  269 
279  280 
290  29 1 


8 9 


259  260 
270  271 
281  282 
292  293 


10  11  12 


261 

272 

283 


262 

273 

284 


263 

274 

285 


o 

*0 

G 

O 

rO 


o 

55 

3 

V"» 

r' 

*73 


T 

r-  : U 


IT* 

o 

o 


F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCOEF 

CNTRLP 

REAL 

SIMPLE 

273 

5 

FCORLS 

rdparm 

REAL 

ARRAY 

222 

o o 

> 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

200 

203 

ti  ;o 

FK 

RADCOM 

REAL 

ARRAY 

328 

344/1 

FMU 

CNTRLP 

REAL 

. SIMPLE 

274 

S 

CO 

FROST 

RADCOM 

LOGICAL 

ARRAY 

337 

338 

o 

F WE  T 

CNTRLP 

REAL 

SIMPLE 

275 

o % 

GAM 

RADCOM 

REAL 

ARRAY 

3M 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

276 

GNU1 

RCNTRL 

REAL 

SIMPLE 

158 

a 'v 
c > 

GMLT2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAY 

RCNTRL 

REAL 

SIMPLE 

teo 

247/1 

GTOPO 

CNTRLP 

REAL 

SIMPLE 

277 

305/1 

H IDT 

RDPARM 

REAL 

SIMPLE 

225 

r;  r’j 

H20T 

RDPARM 

REAL 

SIMPLE 

226 

HEAT  I 

RCNTRL 

REAL 

SIMPLE 

182 

252/1 

HE  A TW 

RCNTRL 

REAL 

SIMPLE 

181 

252/1 

HH 

RADCOM 

REAL 

ARRAY 

317 

H HE 

RADCOM 

REAL 

ARRAY 

317 

HHS 

RADCOM 

REAL 

ARRAY 

318 

HICE 

CNTRLP 

REAL 

SIMPLE 

278 

300/r 

IC 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

9 1 

ICE 

RADCOM 

LOGICAL 

ARRAY 

336 

338 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4 1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

GO 

61 

62 

63 

64 

65 

56 

67 

68 

ICSP53 

69 

70 

71 

72 

73 

74 

75 

76 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

integer 

SIMPLE 

68 

10 1 ABA  T 

ICNTRL 

INTEGER 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

189 

190 

191 

192 

1 93 

194 

195 

196 

197 

198 

199 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

190 

IEFLUK 

ICNTRL 

INTEGER 

UNKNOWN 

82 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

83 

influx 

ICNTRL 

INTEGER 

UNKNOWN 

81 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

integer 

ARRAY 

189 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IM02P1 

ICNTRL 

integer 

SIMPLE 

28 

INDEX 

IDPARM 

TNTEGER 

array 

191 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

S7 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

IQS 

rCNTRL 

integer 

ARRAY 

75 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

as 

89 

IRADLWG 

ICNTRL 

INTEGER 

unknown 

85 

IRAD5W 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

I TAPE 

LDPARM 

LOGICAL 

SIMPLE 

201 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

JALB 

RADCOM 

INTEGER 

SIMPLE 

335 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

JIC 

CCNTftL 

CMAR+S 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

3 1 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHARTS 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

-V 


v . 


.VI  I V 


KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

I DP ARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

LAND 

RADCOM 

LOGICAL 

ARRAY 

336 

LC 

LCNTRL 

LOGICAL 

array 

143 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

S2 

LCNTRL 

INTEGER 

UNKNOWN 

92 

103 

ldiabat 

LCNTRL 

LOGICAL 

UNKNOWN 

t 16 

LDPARM 

INTEGER 

UNKNOWN 

200 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 0 

LFUSTON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 T 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

LICLOUO 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

LOG8R 

ICNTRL 

INTEGER 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 5 

LP  RE ACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 
t 28 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

1 04 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

LRADSW 

LCNTRL 

logical 

UNKNOWN 

1 17 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

T 06 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

MATIN 

ICNTRL 

integer 

SIMPLE 

43 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MIXWI 

RADCOM 

LOGICAL 

array 

337 

MU 

IDPARM 

INTEGER 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

msm 

ICNTRL 

INTEGER 

SIMPLE 

49 

NB 

ICNTRL 

INTEGER 

SIMPLE 

50 

ND 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

NDSHF 

ICNTRL 

integer 

SIMPLE 

56 

NOT 

ICNTRL 

integer 

SIMPLE 

57 

NDTC3 

cntrlp 

INTEGER 

SIMPLE 

279 

NFK 

RADCOM. 

INTEGER 

SIMPLE 

328 

NFLW 

CNTRLP 

INTEGER 

SIMPLE 

280 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

SB 

NHM50 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMS  1 

IDPARM 

INTEGER 

SIMPLE 

198 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

6 1 

NLA  YM 1 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLAYOZ 

RADCOM 

INTEGER 

SIMPLE 

327 

NLA YP 1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NOZ 

RADCOM 

INTEGER 

SIMPLE 

33  1 

NSOAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMDO 

ICNTRL 

INTEGER 

simple 

71 

WYMD1 

IDPARM 

INTEGER 

SIMPLE 

199 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OCEAN 

RADCOM 

LOGICAL 

ARRAY 

336 

OCM22 

RADCOM 

REAL 

ARRAY 

330 

338 
1 44 
T 43 
93 
104 
1 4 T 
20  1 
T 35 
136 
134 
139 

144 

94 

202 

95 

96 

97 

98 

99 

140 

132 

133 
1 05 

106 

107 

1 OS 

109 

110 

1 1 1 

115 

138 

1 16 

1 17 

1 29 

142 
137 
13  1 
130 

338 


346/1 


3 43/1 
358/1 


338 

351/1 


100  101  102 


112  113  t 1 4 


O o 
2 
*13  & 
O -j? 

o > 

lO 

C 

0 

E m 

*4  v© 


BLOCK  DATA  9 


'La, 


i 


OCM30 

RADCOM 

REAL 

ARRAY 

330 

352/ 

OCM38 

RADCOM 

REAL 

ARRAY 

330 

353/ 

OCM46 

RADCOM 

REAL 

ARRAY 

330 

354  / 

OCWXX 

RADCOM 

REAL 

ARRAY 

33  1 

OLAPR 

RADCOM 

REAL 

ARRAY 

329 

348/ 

OLJAN 

RADCOM 

REAL 

ARRAY 

329 

347/ 

OLJUL 

RADCOM 

REAL 

ARRAY 

329 

349/ 

OLOCT 

RADCOM 

REAL 

ARRAY 

329 

350/ 

CMEGA2 

RCNTRL 

REAL 

SIMPLE 

iet 

OZALE 

RADCOM 

REAL 

ARRAY 

323 

PI 

RCNTRL 

REAL 

SIMPLE 

T 62 

PI  130 

RCNTRL 

REAL 

SIMPLE 

163 

PI2 

RCNTRL 

REAL 

SIMPLE 

164 

PIM 

CNTRLP 

REAL 

SIMPLE 

28  1 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PKSTO 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

RDPARM 

REAL 

SIMPLE 

22S 

PL 

RADCOM 

REAL 

ARRAY 

308 

PLE 

RADCOM 

REAL 

ARRAY 

308 

PLEVS 

RCNTRL 

REAL 

ARRAY 

ISO 

PLK 

RADCOM 

REAL 

ARRAY 

309 

PLKE 

RADCOM 

REAL 

ARRAY 

309 

PREP 

RADCOM 

REAL 

ARRAY 

332 

PROCW 

RADCOM 

REAL 

ARRAY 

33  1 

355/ 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

168 

P5TD 

RCNTRL 

REAL 

SIMPLE 

165 

prop 

RCNTRL 

REAL 

SIMPLE 

169 

248/ 

PZERO 

RCNTRL 

REAL 

SIMPLE 

186 

25  1/ 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 18 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 19 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

qHOG 

CNTRLP 

LOGICAL 

SIMPLE 

282 

294 

QPUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

QR5H 

LCNTRL 

LOGICAL 

simple 

102 

1 27 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

1 0 1 

126 

Q5HF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

RADCOM 

REAL 

UNKNOWN 

307 

308 

318 

3 19 

329 

330 

RADE 

RCNTRL 

REAL 

SIMPLE 

1 70 

249/ 

RADTRM 

RADCOM 

REAL 

ARRAY 

333 

RC 

RCNTRL 

REAL 

ARRAY 

187 

188 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

I S 7 

RCLOUD 

RADCOM 

RE^L 

ARRAY 

335 

RCNTRL 

REAL 

unknown 

1 45 

146 

156 

157 

167 

168 

178 

179 

RDPARM 

REAL 

UNKNOWN 

206 

207 

217 

218 

278 

229 

23  — 

240 

RE 

RADCOM 

REAL 

ARRAY 

307 

EGAS 

RCNTRL 

REAL 

SIMPLE 

17  1 

250/ 

RH 

RADCOM 

REAL 

ARRAY 

3 IS 

RLAT 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

RDPARM. 

REAL 

array 

230 

RM 

RADCOM 

REAL 

ARRAY 

325 

ROCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

231 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

173 

R5URF 

RADCOM 

REAL 

ARRAY 

335 

SO 

RADCOM 

REAL 

SIMPLE 

333 

SDAY 

RCNTRL 

REAL 

SIMPLE 

174 

25  1/ 

SEASON 

RCNTRL 

REAL 

SIMPLE 

< 75 

SG 

RADCOM 

REAL 

ARRAY 

334 

o o 

•n  g 

*S  s 

o 

O vs 

3D  p 

(O  -0 


c 

2s 


5= 

G3 

Pi! 


&3 


309 

3 10 

3 1 1 

320 

32  1 

322 

33  1 

332 

333 

IBB 

147 

148 

149 

T 58 

159 

160 

169 

1 70 

17  1 

TSO 

181 

182 

208 

209 

210 

219 

220 

22  1 

230 

23  1 

232 

312  313  314 
323  324  325 
334  335  335 


150 

151 

152 

161 

162 

t 63 

172 

173 

1 74 

183 

184 

185 

21  1 

212 

213 

222 

223 

224 

233 

234 

235 

3T5  3 1 6 317 
326  327  328 
337 


153 

154 

155 

1 64 

165 

166 

175 

t 76 

177 

IBS 

214 

215 

216 

225 

228 

227 

236 

237 

238 

< 





BLOCK  DATA  10 


5GNP 

RDPARM 

REAL 

ARRAY 

233 

SHG 

RADCOM 

REAL 

ARRAY 

313 

SHL 

RADCOM 

REAL 

ARRAY 

312 

SHLE 

RADCOM 

REAL 

array 

312 

SHLTOP 

CNTRLP 

REAL 

SIMPLE 

283 

303/1 

5HSAT 

RADCOM 

REAL 

ARRAY 

314 

SIG 

ROPARM 

REAL 

ARRAY 

240 

SIGE 

rcntrl 

REAL 

ARRAY 

176 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

SINL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDP ARM 

REAL 

ARRAY 

235 

SLNROT 

.CNTRLP 

REAL 

SIMPLE 

234 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

J00 

125 

SNOW 

RADCOM 

LOGICAL 

ARRAY 

337 

338 

SNOWN 

CNTRLP 

REAL 

SIMPLE 

235 

SNOWS 

CNTRLP 

REAL 

SIMPLE 

286 

SOLS 

RCNTRL 

REAL 

SIMPLE 

1 7 B 

252/1 

SP 

RADCOM 

REAL 

ARRAY 

334 

SR5 

RADCOM 

REAL 

ARRAY 

325 

SS5 

RADCOM 

REAL 

array 

316 

SSSE 

RADCOM 

REAL 

ARRAY 

316 

START 

LDP ARM 

LOGICAL 

SIMPLE 

202 

205 

STBO 

CNTRLP 

REAL 

SIMPLE 

237 

301/1 

sterpi 

CNTRLP 

REAL 

SIMPLE 

238 

STERP2 

CNTRLP 

REAL 

SIMPLE 

235 

STN 

RADCOM 

REAL 

ARRAY 

325 

SWALE 

RADCOM 

REAL 

ARRAY 

321 

SWIL 

RADCOM 

REAL 

ARRAY 

321 

TAUL 

RADCOM 

REAL 

ARRAY 

323 

TCOND 

RADCOM 

REAL 

ARRAY 

326 

339/1 

TG 

RADCOM 

REAL 

ARRAY 

311 

TH 

RADCOM 

REAL 

ARRAY 

311 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

TH5TD2 

RDPARM 

REAL 

SIMPLE 

237 

TICE 

CNTRLP 

REAL 

SIMPLE 

290 

302/1 

TL 

RADCOM 

REAL 

ARRAY 

3 10 

TLE 

RADCOM 

REAL 

ARRAY 

3 1 0 

TLOWL 

RADCOM 

REAL 

SIMPLE 

327 

341/1 

TLTOP 

CNTRLP 

REAL 

SIMPLE 

291 

304/1 

TMJDL 

RADCOM 

REAL 

SIMPLE 

327 

342/1 

TN 

RADCOM 

REAL 

ARRAY 

325 

TOP AB5 

RADCOM 

REAL 

ARRAY 

324 

TOTOZ 

RADCOM 

REAL 

ARRAY 

331 

357/1 

TPENE 

RADCOM 

REAL 

ARRAY 

326 

340/1 

TSTD 

RCNTRL 

REAL 

SIMPLE 

179 

VER 

CCNTRL 

CHAR*8 

SIMPLE 

10 

23 

WET 

RADCOM 

REAL 

ARRAY 

332 

WI 

RADCOM 

REAL 

ARRAY 

332 

W5AVE 

RDPARM 

REAL 

ARRAY 

23a 

XDAY 

CNTRLP 

REAL 

SIMPLE 

232 

XK 

RADCOM 

REAL 

ARRAY 

328 

345/1 

XLABEL 

CCNTRL 

CHAR*8 

ARRAY 

1 1 

24 

ZLNCO 

CNTRLP 

REAL 

SIMPLE 

293 

24  1/1 


ORIGINAL  IS  BLOCK  DATA  11 

OF  POOR  QuALiTY 


oooot 

SUBROUTINE  CLOCKS(N) 

SCLOCKS 

2 

00002 

N = - f 00 . 0 * SECOND {DUMMY) 

SCLOCKS 

3 

00003 

RETURN 

SCLOCKS 

4 

00004 

END 

SCLOCKS 

5 

VARIABLE  MAP 

--NAME 

-BLOCK TYPE-' CLASS 

-REFERENCES 

A=ARGL 1ST , 

C^CTRL  OF  DO.  I -DATA  INIT,  R=READ 

CLOCKS 

SUBROUTINE 

T 

DUMMY 

REAL  SIMPLE 

2 

N 

INTEGER  SIMPLE 

t 

2/S 

PROCEDURE  MAP 

--NAME TYPE CLASS REFERENCES  D*STMT  FN  DEF  . A = ARGL  I ST 

REAL  INTRINSIC  2 


W^WRITE 


SECOND 


oooo  t 


SUBROUTINE  CLOUDS  C IM t NLA Y , NCALL ) 


t 


1 


l :4 

} » 


ooooz 

00003 

00004 

00005 

00006 
00007 
ooooa 

00009 

00010 
OOOt  1 
00012 
000  13 
00014 
000  IS 
000  16 
000  17 

oooia 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 
0004  1 

00042 

00043 


00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 
OOD57 
0 0 05  B 

00059 

00060 
0006  1 
00062 

00063 

00064 

00065 


C 

C.  * * * 

C PHYSICS  PARAMETERS  AND  CONSTANTS 
COMMON  /CNTRLP/  CDFFt 
COMMON  /CNTRLP/  CDXL 
COMMON  /CNTRLP/  CDXO 
COMMON  /CNTRLP/  CLH 
COMMON  /CNTRLP/  COE  (9) 

COMMON  /CNTRLP/  COEF 
COMMON  /CNTRLP/  C0EF5 
COMMON  /CNTRLP/  COSRQT 
COMMON  /CNTRLP/  CPP 
COMMON  /CNTRLP/  CTTD 
COMMON  /CNTRLP/  CUMDAY 
COMMON  /CNTRLP/  CUMRAT 
COMMON  /CNTRLP/  CIO 
COMMON  /CNTRLP/  C1Q0 
COMMON  /CNTRLP/  C40 
COMMON  /CNTRLP/  DELTA 
COMMON  /CNTRLP/  DTC3 
COMMON  /CNTRLP/  DTOUT 
COMMON  /CNTRLP/  ED 
COMMON  /CNTRLP/  EDNM 
COMMON  /CNTRLP/  FCOEF 
COMMON  /CNTRLP/  FMU 
COMMON  /CNTRLP/  FWET 
COMMON  /CNTRLP/  GAM FAC 
COMMON  /CNTRLP/  GTOPO 
COMMON  /CNTRLP/  NICE 
COMMON  /CNTRLP/  NDTC3 
COMMON  /CNTRLP/  NFLW 
COMMON  /CNTRLP/  PIM 
COMMON  /CNTRLP/  QHOG 
COMMON  /CNTRLP/  SHLTOP 
COMMON  /CNTRLP/  SINROT 
COMMON  /CNTRLP/  SNOWN 
COMMON  /CNTRLP/  SNOWS 
COMMON  /CNTRLP/  STBQ 
COMMON  /CNTRLP/  STERP 1 
COMMON  /CNTRLP/  STERP2 
COMMON  /CNTRLP/  TICE 
COMMON  /CNTRLP/  TLTOP 
COMMON  /CNTRLP/  XDAY 
COMMON  /CNTRLP/  ZLNCO 
LOGICAL  QHOG 

C 

C * * + 

C RADIATION  AND  SOURCE  TERM  FIELDS 

COMMON  /RADCOM/  AS<72,9},  REC72,T0) 

COMMON  /RADCOM/  PL172.9),  PLE(72,10) 

COMMON  /RADCOM/  PLK(72,9>.  PLKE(IO) 

COMMON  /RADCOM/  TL(72,S),  TL6(72,10> 

COMMON  /RADCOM/  TGI  72)  . TH<72,9) 

COMMON  /RADCOM/  SHL(72,9),  SHLE<72.10) 

COMMON  /RADCOM/  SHG172),  CLOUD<72,IZ> 

COMMON  /RADCOM/  5HSAT{72,9),  GAM<72»9) 
COMMON  /RADCOM/  RHf72T9) 

COMMON  /RADCOM/  SSS{72,9),  SSSE(72,10) 
COMMON  /RADCOM/  HH<72,9),  HHE(72,10) 

COMMON  /RADCOM/  HHS{72,9> 

COMMON  /RADCOM/  CVT(72,9J,  CVQ(72,9> 

CDMMON  /RADCOM/  CXDE(9> 

COMMON  /RADCOM/  SWALE  <72  » 1 0 ) , SWIL(72P9) 
COMMON  /RADCOM/  AL(72,10> 

COMMON  /RADCOM/  TAUU72.10),  OZALE(72.10) 
COMMON  /RADCOM/  TQPABSf72> 

COMMON  /RADCOM/  RN<9).  TN  f 9 ) F SRS(9),  STN { 9 J 
COMMON  /RADCOM/  TCOND  f 9 ) , TPENE (9) 

COMMON  /RADCOM/  TLOWL , TMI DL , NLAYOZ 
COMMON  /RADCOM/  FK<5),  XK<5),  NFK 


L ' TF  -• 


JLm 


SCLOUDS 

2 

SCLOUDS 

3 

SCNTRLP 

2 

SCNTRLP 

3 

SCNTRLP 

4 

SCNTRLP 

5 

SCNTRLP 

6 

SCNTRLP 

7 

SCNTRLP 

8 

SCNTRLP 

9 

SCNTRLP 

10 

SCNTRLP 

1 1 

SCNTRLP 

12 

SCNTRLP 

13 

SCNTRLP 

14 

SCNTRLP 

15 

SCNTRLP 

16 

SCNTRLP 

17 

SCNTRLP 

IB 

SCNTRLP 

19 

SCNTRLP 

20 

SCNTRLP 

21 

SCNTRLP 

22 

SCNTRLP 

23 

SCNTRLP 

24 

SCNTRLP 

25 

SCNTRLP 

26 

SCNTRLP 

27 

SCNTRLP 

28 

SCNTRLP 

29 

SCNTRLP 

30 

SCNTRLP 

31 

SCNTRLP 

32 

SCNTRLP 

33 

SCNTRLP 

34 

o o 

-F!  23 

SCNTRLP 

35 

SCNTRLP 

36 

SCNTRLP 

37 

*a  o 

SCNTRLP 

38 

o 

— ",  if-* 

SCNTRLP 

39 

SCNTRLP 

40 

SCNTRLP 

41 

i?«J  i'** 

SCNTRLP 

42 

(O 

SCNTRLP 

43 

SCNTRLP 

44 

t*  :v^ 

SCNTRLP 

45 

+ V* 

SCNTRLP 

46 

v :--u 

SRADCOM 

2 

SRADCOM 

3 

SRADCOM 

4 

SRADCOM 

5 

SRADCOM 

6 

SRADCOM 

7 

SRADCOM 

S 

SRADCOM 

9 

SRADCOM 

10 

SRADCOM 

SRADCOM 

1 1 
12 

SRADCOM 

13 

SRADCOM 

14 

SRADCOM 

15 

SRADCOM 

16 

SRADCOM 

17 

SRADCOM 

18 

SRADCOM 

19 

SRADCOM 

20 

SRADCOM 

21 

SRADCOM 

22 

SRADCOM 

23 

SRADCOM 

24 

O 

SRADCOM 

25 

r 

O 

C 

a 

CD 

M 


t v T 


OOOG6 

COMMON  /RADCOM/  OLJAN(T9),  OLAPRMS),  OLdULHS),  0L0CTM9) 

SR A DCOM 

26 

00057 

COMMON  /RADCOM/  0CM22C23J,  OCM30(23>,  0CM38<23),  0CM4S<23> 
COMMON  /RADCOM/  PROCM<231,  0CMXX(23>,  NOZ , TOTOZM),  CDATE t 6 ) 
COMMON  /RADCOM/  CZW<72),  WET, 72),  EVAP  , PREP(72),  WK72) 

sradcom 

27 

i ] 

Q006S 

5RADC0M 

28 

00069 

SRADCOM 

23 

00070 

COMMON  /RADCOM/  C0SZ(72),  SC f RADTRM  < 72 ) , CXL 

SRADCOM 

30 

0007  1 

COMMON  /RADCOM/  SG<72),  SP172J 

SRADCOP* 

31 

T ^ ' 

00072 

COMMON  /RADCOM/  RSURF<72>.  RCLOUD(72),  JALB 

SRADCOM 

32 

00073 

COMMON  /RADCOM/  LAND1721,  OCEAN{72).  ICEf72) 

SRADCOM 

33 

00074 

COMMON  /RADCOM/  SN0W172),  MIXWI<72>,  FROSTT72) 

SRADCOM 

34 

D 

00075 

LOGICAL  LAND,  OCEAN , ICE,  SNOW,  MI XWI , FROST 

SRADCOM 

35 

c 

SRADCOM 

36 

c 

* + « 

SDSOLAR 

2 

i 

c 

DYNAMIC  SPACE  VARIABLES  FOR  S0LAR1  SUBROUTINE 

SDSOLAR 

3 

i 1 

0QQ7G 

COMMON  /D50LAR / RMEAN ( 72  ) 

SDSOLAR 

4 

f=  j 

00077 

COMMON  /DSOLAR / TOTABS(72l 

SDSOLAR 

5 

0007S 

COMMON  /DSOLAR/  C05MAG ( 72  > 

SDSOLAR 

6 

1.  ! 

00079 

COMMON  /DSOLAR/  SCOSZf72> 

SDSOLAR 

7 

I : 

00080 

COMMON  /DSOLAR/  F5CATC721 

SDSOLAR 

8 

* . ; 

00081 

COMMON  /DSOLAR/  RCLEAR(72> 

SDSOLAR 

9 

I.  ! 

00082 

COMMON  /DSOLAR / TEMPI (72,91 

SDSOLAR 

10 

3 1 

00083 

COMMON  /DSOLAR/  FCLOUD<72) 

SDSOLAR 

1 1 

< * 

00084 

COMMON  /DSOLAR/  FCLE AR ( 72 ) 

SDSOLAR 

12 

00085 

COMP/ION  /DSOLAR/  Wf72) 

SDSOLAR 

t 3 

1 

00086 

COMMON  /DSOLAR/  A CL EAR  1721 

SDSOLAR 

14 

00087 

COMMON  /D50LAR/  ACLOUD(721 

SDSOLAR 

15 

v . 

OOOSB 

COMMON  /DSOLAR/  WW<72) 

SDSOLAR 

16 

; 

00089 

COMMON  /DSOLAR/  NT0PT(72> 

SDSOLAR 

17 

:■  • [ 

00090 

COMMON  /DSOLAR/  NTOPF172) 

SDSOLAR 

18 

' . \ 

00031 

COMMON  /DSOLAR/  NTOP(72) 

SDSOLAR 

19 

\ 

00092 

COMr/ION  /DSOLAR/  DARK  f 72  ) 

SDSOLAR 

20 

\\  1 

00033 

COMMON  /DSOLAR/  CLEAR) 72) 

SDSOLAR 

21 

i ; 

00094 

COMMON  /DSOLAR/  CL0UDY(72) 

SDSOLAR 

22 

00095 

COMMON  /DSOLAR/  FOLD (72] 

SDSOLAR 

23 

:a 

00096 

LOGICAL  DARK  r CLEAR,  CLOUDY,  FCLD 

SDSOLAR 

24 

^ ft 

c 

SDSOLAR 

25 

c 

5CLOUDS 

7 

■V 

,,  -J,  j. 

00097 

AWATER(X)  = 2 - 9 * X / ( ( 1 . * 14t.5I*X}**. G3S  ♦ 5.925-X) 

5CLOUDS 

8 

u h 

00098 

RTOP  f TAU , F I 0 , CQSZ  ) - T , *■  .00001*TAU  - .0QQ1*PI0  + ,00001/COSZ 

SCLOUDS 

9 

f ] 

00099 

TTOP < TAU, PI □ , COSZl  = 1,  - 00001*TAU  - 0D01*PI0  - .OOOOI/COSZ 

SCLOUDS 

1 0 

ll 

c 

SCLOUDS 

1 1 

* ' 
j 

c 

SCLOUDS 

12 

c 

DEBUG 

sbegdeb 

2 

A ; 

00100 

10000  CONTINUE 

SBEGDEB 

3 

lv  \ 

C 

***♦  CYBER  SCALAR  VERSION  04.001  INPUT, IOQ 

SBEGDEB 

4 

c 

****  CYBER  SCALAR  VERSION  04.000 

SBEGDEB 

5 

: i i ' 

c 

♦***  CYBER  SCALAR  VERSION  00 

SBEGDEB 

6 

• » ; 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBEGOEB 

7 

J ll 

c 

SCLOUDS 

14 

i • 

00101 

NLAYP1  “ NLA Y * 1 

SCLOUDS 

15 

5 

c 

SCLOUDS 

16 

\-k  ; 

c 

SCLOUDS 

17 

c 

SCLOUDS 

IS 

h ; 

00102 

DO  810  I - 1 , I M 

SCLOUDS 

19 

00  1 03 

I F ( DARK ( I ) .OR.  CLEAR  < I 1 ) GOTO  810 

SCLOUDS 

20 

* \ 

00104 

IFf  NCALL  .EQ,  2 .AND.  FCLD  ( I ) 1 GOTO  810 

SCLOUDS 

21 

c 

SCLOUDS 

22 

\ i i 

c 

SCLOuDS 

SCLOUDS 

SCLOUDS 

SCLOUDS 

23 

24 

c 

c 

* * * * AbiORP  1 I ON  Or  INCIUcNT  FLUX  ABUvt  CLOUDS  ***** 

25 

26 

c 

* 

c 

SCLOUDS 

27 

l ; 

c 

SCLOUDS 

2B 

00105 

NCLEAR  = NTOp (11-1 

SCLOUDS 

29 

i i 

00106 

W<I)  - SWALE ( I , 1 > *COSMAGf I ) 

SCLOUDS 

30 

f * 

00107 

DB  = A WATER  <W( I > 1 

SCLOUDS 

31 

L i 

00  108 

TOPABSm  = DB 

SCLOUDS 

32 

F i 

c 

SCLOUDS 

33 

00109 

DO  1 10  f-  1 t NCLEAR 

SCLOUDS 

34 

00110 

W(I)  = SWALE! I ,L* J )*COSMAGt I ) 

SCLOUDS 

35 

00111 

DA  * AWATER  t W { I ) ) 

SCLOUDS 

36 

00112 

AL  f 1 , L 1 = DA  - DB 

SCLOUDS 

37 

f * 


p 

o 

a 

a 

co 

N3 


*.-6-  - — 


ORIGINAL  PAGE  SS 
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00  1 T 3 

DB  = DA 

SCL0UD5  38 

00114 

1 10 

CONTINUE 

SCLGUDS  39 

c 

SCLOUDS  40 

001  15 

L 1 = NTOP ( I ) 

SCL0UP3  41 

001  is 

DO  120  L-L1 ,NLAYP1 

SCLOUDS  42 

001  17 

ALII , L ) - 0.0 

SCLOUDS  43 

00118 

1 20 

CONTINUE 

SCLOUDS  44 

C 

SCLOUDS  45 

c 

4 4 4 

SCLOUDS  46 

c 

4 4 4 

* 

SCLOUDS  47 

c 

4 4 4 1 

* REFLECTT V I T Y OF  CLOUDY  ATMOSPHERE  FOR  VISUAL 

LIGHT  ***** 

SCLOUDS  4B 

c 

4 4*. 

*■ 

4 4 4*% 

SCLOUDS  49 

SCLOUDS  50 

c 

SCLOUDS  51 

00119 

TAU  = 0.0 

SCLOUDS  52 

c 

SCLOUDS  53 

00120 

DO  130  L = 1 , NL A Y 

SCLOUDS  54 

00121 

TAU  = TAU  + TAULf  r ,U 

SCLOUDS  55 

00122 

130 

CONTINUE 

SCLOUDS  56 

c 

SCLOUDS  57 

00123 

PIO  = .93999 

SCLOUDS  58 

00  124 

TAUP  = .212132E-04-TAU 

SCLOUDS  59 

00125 

E TP  = EXP(TAUP) 

SCLOUDS  60 

00126 

0 = . 1500245E  + 09-ETP  - . 1 499755E+09/E TP 

SCLOUDS  61 

00127 

RNN  = . T500E*09METP  - 1,/ETPJ/D 

SCLOUDS  62 

00  128 

SRNN  = <1.  - RNN ) *RSURF f I ) / < 1 , - RNN-RSURF(I) 

) 

SCLOUDS  63 

00129 

RNN  “ RNN *R  TOP { TAU , P I D t C05Z ( I ) ) 

SCLOUDS  64 

c 

SCLOUDS  65 

00  130 

RCLOUD(I)  = RNN  + (1.0  - RNN ) *SRNN 

SCLOUDS  66 

c 

SCLOUDS  67 

00131 

IF  fDB.GT. 0.999?  GOTO  S10 

SCLOUDS  63 

c 

SCLOUDS  69 

c 

4 * * 

SCLOUDS  70 

c 

*4*4* 

4 4 4 4 * 

SCLOUDS  71 

c 

4 4*4 

ABSORPTION  IN  CLOUOS 

4 4*44 

SCLOUDS  72 

c 

4*4* 

- WITH  MULTIPLE  REFLECTIONS  FOR  K-DISTR I BUT I ON 

SCLOUDS  73 

c 

* * * 

* 

4**44 

SCLOUDS  74 

c 

SCLOUDS  75 

c 

SCLOUDS  76 

00132 

DO  250  K- 1 ■ WFK 

SCLOUDS  77 

00133 

FKK  - FK ( K ) 

SCLOUDS  78 

00134 

XKK  = XK ( K ) 

SCLOUDS  79 

00135 

WK  “ W(I) *XKK 

SCLOUDS  SO 

c 

SCLOUDS  SI 

00138 

IF  (WK.GT.7.0)  GOTO  810 

SCLOUDS  32 

■ 

c 

SCLOUDS  S3 

00137 

SK  = EXP  t -WK ) 

SCLOUDS  84 

00  138 

SB  = EXPf-T .66*WK) 

SCLOUDS  35 

0C133 

NCLR1  = NCLEAR  + 1 

SCLOUDS  86 

c 

SCLOUDS  B7 

00  1 40 

DO  1 BO  L = NCLRT,NLAY 

SCLOUDS  88 

00141 

TAUSC  = TAUL(I,L) 

SCLOUDS  as 

00142 

TAUAB  = AMIN  1 [ SWI L(ItL)^XKK,20.  ) 

SCLOUDS  90 

00143 

IF  { TAUSC.  LT.O.  OH  GO  TO  160 

SCLOUDS  91 

00144 

TAU  = TAUSC  + TAUAB 

SCLOUDS  92 

00145 

PIO  * AMI N1 ( TAUSC /TAU , . 9999 ) 

SCLOUDS  93 

c 

SCLOUDS  94 

c 

* * * 

\ 4 m 4 4 

SCLOUDS  95 

c 

4 4 4 

* V 44  4 4 

SCLOUDS  96 

c 

4*4 

* INDIVIDUAL  CLOUD  LAYER  REFLECTIVITY 

* 4 * •* 

SCLOUDS  97 

c 

* * * 

* AND  TRANSMISSIVITY 

¥■4  4 4 4 

SCLOUDS  98 

c 

4 4 4 

* » 

SCLOUDS  39 

c 

4*4 

¥444* 

SCLOUDS 1 QO 

c 

SCLOUDS 101 

00146 

U =•  SORT ( ( 1 . - 0 . B50  *P I 0 } / ( t * - PIO)) 

SCLOUDS102 

00147 

TAUP  = 1 .732051*UM  1 .0  - PIO)*TAU 

SCLOUDS 1 03 

00  148 

ETP  = EXP ( TAUP ) 

SCLOUDS 1 04 

00149 

D - { U + 1.)**2-ETP  - (U  - 1 . ) *+2/ETP 

SCLOUDS 105 

00150 

RNN  * ( U*  *2  - TJMETP  - t./ETP)/D 

SCLOUDS 1 06 

00T51 

TNN  = 4 , *,U/D 

SCLOUDS 107 

00152 

RM<L)  = RNN 

SCL0UDS10S 

V '\p- 


l 

Iti 

m 

\\\ 

!i’ 


00  1 S3 
001 54 


00155 

00156 

00157 
00  158 
00159 
00  1 60 

00161 


00171 

00172 

00173 

00174 
00  T 75 
00  176 
00  177 

00178 

00179 

00180 
00131 
00  13  2 

00183 


C 

C 

c 

c 

c 

c 

c 

0 


TN(L>  = TNN 

I F (L.EQ.NTOPf I) ) GO  TO  150 


>***  SOM  REFLECTIVITY  AMO  TRANSMISSIVITY 

'***  FOR  TOP , BOTTOM  ILLUMINATION 


C 

C 

c 

c 

c 


QENQM  - 1.0  - SRSN*RNN 
5RNN  - SRNN  * STNN*RNN*5TSN/DEN0M 
STNN  = STNN+TNN/DENOM 
SRSN  = RNN  + TNN*  *2  *SR5N  »'PEN0M 
STSN  - TNN*STSN/DENOM 
TFK  = FKK  *STNN 

GO  TO  170 


TOP  CLOUD  ZENITH  ANGLE  DEPENDENT  REFLECTIVITY  ***** 
AND  TRANSMISSIVITY  ***** 


*■  * * * *r 


CLEAR  LAYER  DIFFUSE  TRANSMISSION 
»****»*•+*******■***■***»''  * * * 


C 

c 


c 

c 

c 

c 

c 

c 

c 


160  CONTINUE 

SB  = EXP  C - 1 .66*TAUAB> 
5TNN  - STNN* SB 
SR5N  - SRSN*  SB  * * 2 
STSN  = STSN*  SB 
RN {LI  = 0, 

TN { L > - SB 

TFK  - FKK*STNN 


170  CONTINUE 

IF  tTFK.LT. .001  1 
STN 1 L > = STNN 
5RS1L1  = SRSN 

ISO  CONTINUE 


GO  TO  190 


ABSORPTION  AT  GROUND 


SCLOUDS 1 09 
SCL0UDS1 1 0 
SCLOUDS1 1 1 
SCLOUDS1 12 
SCLOUDS1 13 
SCLOUDS 114 
SCLOUDS1 15 
SCLOUDS 1 16 
SCLOUDS 1 17 
SCLOUDS1 IB 
SCLOUDS 1 19 
SCLOUDS 1 20 
SCL0UDS1 2 1 
SCL0U0S122 
SCLOUDS 173 
SCLOUDS 124 
SCLOUDS 125 
SCLOUDS 1 26 
SCLOUDS 127 
SCLOUDS 128 
SCLOUDS 129 
SCLOUDS 130 
SCLOUDS 1 3 1 
SCLOUDS 1 32 


c * ** ** 

00162 

c **■»**•*■** 
c 

150 

CONTINUE 

SCL0UDS135 
SCLOUDS 1 36 

00163 

RNK 

£ 

RNN*  R TOP  1 TAU . PI  0 * COS2 ( I ) ) 

SCLOUDS 137 

00  1 64 

TNK 

= 

TNN* T TOP  1 TAU  T PI  0 , COSZ  f I ) ) 

SCLOUDS 138 

00165 

SRNN 

= 

SK*RNK*SB 

SCLOUDS 1 39 

00166 

STNN 

S 

SK^TNK 

SCLOUDS 1 40 

00167 

SRSN 

= 

RNN 

SCLOUDS 141 

00168 

STSN 

= 

TNN*SB 

SCLOUDS 1 42 

00169 

TFK 

£ 

FKK*STNN 

SCLOUDS 1 43 

00170 

C 

GO  TO 

170 

SCLOUDS 1 44 
SCLOUDS 145 

SCLOUDS 1 46 
SCLOUDS 1 47 
SCLOUDS 148 
SCLOUDS 149 
SCLOUDS 150 
SCLOUDS 151 
5CL0Ur  152 
SCLCT  ,a3 
5CT  uS154 
IjULUUDS  155 
SCLOUDS 1 56 
SCLOUDS 1 57 
SCLOUDS 1 5B 
SCLOUDS 159 
SCLOUDS 160 
SCLOUDSISt 
SCLOUDS 1 62 
SCLOUDS 163 
SCLOUDS 164 
SCLOUDS 165 
SCLOUDS t 66 
SCLOUDS 167 
SCLOUDS16B 
SCLOUDSISg 
SCLOUDS 1 70 
SCL0UDS171 
SCL0UDS1 72 
SCLOUDS1 73 
SCLOUDS1 74 
SCLOUDS 175 


00184 

L 

s 

NLA VP  1 

SCLOUDS 176 

00185 

RNN 

s 

RSURF(I) 

SCLOUDS 177 

00186 

DENOM 

£ 

t.  - SRSN»nrv 

SCLOUDS 178 

Q 0 1 8 7 

DA 

= 

STNN*  ( 1 , - l.J,J)/OENOM*FKK 

SCLOUDS 179 

CLOUDS  4 


ootes 

00189 


c 


AL<  r ,L> 
DB 


AL(I  ,L)  + DA 

DA 


001S0 


0019  1 

00  192 
00  1 93 

00  194 
00  T 98 
00  196 
00197 
00193 

00199 

00200 

00201 
00202 
□ 0203 

00204 

00205 

00206 

00207 

00200 

00209 

00210 
0021  I 
00212 
00213 
002  T 4 

00215 

00216 
002  t7 
00218 

00219 

00220 
00221 
00222 

00223 

00224 

00225 

00226 
00227 

00  22B 


00  229 

00230 

00231 

00232 


c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


GO  TO  200 


*****  DISTRIBUTION  OF  ABSORPTION  AMONG  INDIVIDUAL  CLOUD  LAYERS 


ISO  CONTINUE 
M = L-  1 

IF  <M.LT.NTOP< I) ) GO  TO  220 

SRSN  = SR  5 ( M ) 

STNN  = STN(M) 

DENOM  = 1 . - SRSN*  RNN 

DA  = STNN  * f 1 . - RNN) /DENOM*FKK 
ALU  ,LJ  = ALU«D  + DA 
DB  = DA 

200  CONTINUE 

L = L - 1 
M = L- 1 
SRSN  = RN(L) 

STNN  * TN(L> 

DENOM  = 1 . - SRSN*RNN 

IF  fM.LT.NTOPU  )}  GO  TO  215 

N1  - M 

NO  = NTOP  f I > 

00  210  NN-N0.N1 

RNN  = SRSN  + STNN*  *2  * RNN/ DENOM 
SRSN  = SRS { M ) 

STNN  = STN(M) 

DENOM  = 1 . - SRSN*RNN 

DA  = STNN* ( 1 , - RNN  ) /DENOM*  F KK 

ALdrL)  = AU1(L)  * DA  - DB 
DB  = DA 
L = L-  1 
M = L-1 
SRSN  = RN  f L ) 

STNN  = TN ( L ) 

DENOM  = 1 , - SR5N*RNN 
210  CONTINUE 

215  CONTINUE 

RNN  = RNK  + TNK  * STNN* RNN/ DENOM 
□ A = SK  * 1 1 * - RNN) *FKK 

AL  U , L > = AL  U r L ) + DA  - DB 
DB  - DA 

GO  TO  230 


*+■*■»*■  * a * * « 

*****  ABSORPTION  OF  REFLECTED  FLUX  ABOVE  CLOUDS  ***** 


*****+’********”t*--*'*»  *■+■**•*■**■*•**■**-**  » + ++  **»**< **********+*#*1* 


220  CONTINUE 

DA  = SK  * ( 1 , - RNK ) * FKK 

AL ( I , L ) “ ALfI , L ) + DA 

RNN  = RNK 


SCLOUDS1BO 
SCLOUD5181 
SCLOUDS 1 82 
SCLOUDS 1 S3 
SCLOUDS 1 84 
SCLOUDS! 85 
SCLOUDS 186 
SCLOUDS 1 87 
SCLOUD51SS 
SCLOUDS 1S9 
SCLOUDS 190 
SCLOUDS 1 9 1 
SCLOUDS 192 
SCLOUDS 193 
SCLOUDS 194 
SCLOUDS 195 
SCLOUDS 196 
SCLOUDS 1 97 
SCLOUDS 198 
SCLOUDS 199 
SCLQUDS200 
SCL0UDS201 
SCLOUDS202 
SCLOUDS203 
SCL0UDS204 
SCL0UDS205 
5CLOUDS205 
SCL0UDS207 
SCLOUDS208 
5CL0UDS209 
SCL0UDS2 1 0 
SCL0UDS2 1 1 
SCL0UDS2 1 2 
SCL0UDS2 1 3 
SCL0UDS214 
SCL0UDS215 
SCL0UD5216 
SCLOUDS217 
SCL0UDS2  t B 
SCLOUDS219 
SCLOUDS220 
SCL0UDS22I 
SCL0UDS222 
SCL0UDS223 
SCL0UDS224 
SCLOUDS225 
SCLOUDS226 
SCLOUDS227 
5CLOUDS220 
SCLOUDS229 
SCLOUDS230 
SCL0UDS231 
SCLOUDS232 
SCLOUDS233 
SCLOUDS234 
5CLOUDS235 
SC  LOUD  5236 
SCLOUDS237 
SCLOUDS238 
SCLOUDS239 
SCLOUDS24  0 
SCLOUD524  t 
SCLOUDS242 
SCLOUDS243 
SCLOUD5244 
SCLOUDS245 
SCLOUDS246 
SCLOUDS247 
SCLOUDS248 
5CLOUD5249 
SCL0UDS25  0 


O 

tr< 

o 

CJ 

a 

cn 


Ui 


original  paos  &r 

OF  POOR  QUALITY 


00233 


230  CONTINUE 


a 
a 

SCL0UDS251  w 

C SCL0UDS252  ^ 


00234 

FKK  “ SK-'RNN-FKK 

5CL0UD5253 

00235 

IF  (FKK,LT, ,001 } GO  TO  250 

5CL0UDS254 

0023B 

C 

DB  = 0 , 

SCL0UDS255 

5CLOUDS25G 

00237 

NM  = NTOP { I ) 

SCLOUDS257 

00238 

DO  240  NN-2 , NM 

SCL0UDS25B 

00239 

L = NTOP  < I)  + J - NN 

SCL0UDS25S 

00240 

WK  s f.SG-lWtl)  - SWALE  f I f L M * XKK 

SCLQUD52G0 

00241 

DA  = t 1 , - EXP1-WK) ) * FKK 

SCL0UDS2S1 

00242 

ALII  , L J = AL ( I , L > + DA  - DB 

SCL0UDS262 

0 0 243 

DB  = DA 

SCL0UDS263 

00244 

240 

CONTINUE 

SCL0UDS264 

00245 

C 

250 

CONTINUE 

SCL0UDS265 

SCL0UDS266 

C 

SCL0UDS2G7 

00246 

BIO 

CONTINUE 

SCL0UD5268 

00247 

C 

return 

SCL0UDS269 

SCLOUDS270 

00248 

END 

SCL0UDS271 

STATEMENT 

LABEL  MAP 

- -LABEL 

-DEFINED REFERENCES 

10000 

110 

too 

T 1 4 

109 

120 

1 IS 

I 1 6 

130 

122 

120 

150 

162 

154 

160 

171 

143 

170 

179 

1 6 T 170 

ISO 

183 

140 

190 

191 

130 

200 

200 

190 

210 

222 

209 

215 

223 

206 

220 

229 

193 

230 

233 

228 

240 

244 

23B 

250 

245 

132  235 

810 

246 

1 02  103  104  131  13B 

VARIABLE  MAP 

— NAME-- BLOCK TYPE -CLASS REFERENCES  A = ARGL  1ST  , C=CTRL  OF  DO,  I=DATA  INIT,  R = READ  , S=STORE,  W=WRITE 


ACLEAR 

D SOLAR 

REAL 

ARRAY 

86 

acloud 

DSOLAR 

REAL 

ARRAY 

87 

AL 

RADCOM 

REAL 

ARRAY 

59 

112 

23J/S 

23  1 

AS 

RADCOM 

REAL 

ARRAY 

44 

CIO 

CNTRLP 

REAL 

SIMPLE 

14 

C 100 

CNTRLP 

REAL 

SIMPLE 

15 

C40 

CNTRLP 

REAL 

SIMPLE 

16 

CDATE 

RADCOM 

REAL 

ARRAY 

68 

CDF  R 

CNTRLP 

REAL 

SIMPLE 

2 

CD  X L 

CNTRLP 

REAL 

SIMPLE 

3 

CDXO 

CNTRLP 

REAL 

SIMPLE 

4 

CLEAR 

DSOLAR 

LOGICAL 

ARRAY 

93 

96 

CLH 

CNTRLP 

REAL 

SIMPLE 

5 

CLOUD 

RADCOM 

REAL 

ARRAY 

50 

CLOUDS 

SUBROUTINE 

1 

CLOUDY 

DSOLAR 

LOGICAL 

ARRAY 

94 

96 

CNTRLP 

REAL 

UNKNOWN 

2 

3 

13 

14 

24 

25 

35 

36 

COE 

CNTRLP 

REAL 

ARRAY 

6 

COEF 

CNTRLP 

REAL 

SIMPLE 

7 

COEFS 

CNTRLP 

REAL 

SIMPLE 

B 

COSMAG 

DSOLAR 

REAL 

ARRAY 

78 

106 

117/S  188/S  IBS  198/S  19B  215/S  215  226/S  226 

242/S  242 


1 03 


4 

5 

6 

7 

8 

9 

10 

1 1 

12 

15 

1 6 

17 

TS 

19 

20 

21 

22 

23 

26 

27 

2B 

29 

30 

31 

32 

33 

34 

37 

38 

39 

40 

41 

42 

t 10 


ORIGINAL  PAGE  IS 
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COSROT 

CNTRLP 

REAL 

SIMPLE 

3 

COSZ 

RADCOM 

REAL 

ARRAY 

70 

98 

98 

99 

99 

129 

163 

164 

CPP 

CNTRLP 

REAL 

SIMPLE 

10 

CTID 

CNTRLP 

REAL 

SIMPLE 

1 1 

CUMDAY 

CNTRLP 

REAL 

SIMPLE 

12 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

13 

cvq 

B ACCOM 

REAL 

ARRAY 

56 

CVT 

RADCOM 

REAL 

ARRAY 

56 

CXDE 

RADCOM 

REAL 

ARRAY 

57 

CXL 

RADCOM 

REAL 

SIMPLE 

70 

CZH 

RADCOM 

REAL 

ARRAY 

69 

D 

REAL 

SIMPLE 

126/S 

127 

149/P 

150 

15  1 

DA 

REAL 

SIMPLE 

111/S 

1 12 

113 

1B7/S 

188 

189 

197/S 

198 

199 

216 

225/S 

226 

227 

230/S 

23  1 

241/S 

242 

243 

DARK 

DSQLAR 

LOGICAL 

ARRAY 

92 

96 

103 

DB 

REAL 

SIMPLE 

107/S 

1 OB 

112 

1 13/S 

131 

189/S 

199/S 

215 

216/S 

236/S 

242 

243/S 

DELTA 

CNTRLP 

REAL 

SIMPLE 

17 

DENOW 

REAL 

SIMPLE 

155/S 

156 

157 

158 

159 

1B6/S 

187 

196/S 

197 

DSOLAR 

213/S 

214 

221/S 

224 

REAL 

UNKNOWN 

76 

77 

78 

79 

80 

S I 

82 

83 

84 

DTC3 

B7 

38 

89 

90 

91 

92 

93 

94 

95 

CNTRLP 

REAL 

SIMPLE 

IS 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

19 

ED 

CNTRLP 

REAL 

SIMPLE 

20 

EDNM 

CNTRLP 

REAL 

SIMPLE 

2 t 

ETP 

REAL 

SIMPLE 

125/S 

126 

126 

127 

1 27 

1 4B/S 

149 

149 

ISO 

EVAP 

RADCOM 

REAL 

SIMPLE 

69 

FOLD 

DSOLAR 

LOGICAL 

ARRAY 

95 

96 

104 

fclear 

DSOLAR 

REAL 

ARRAY 

B4 

FCLOUD 

DSOLAR 

REAL 

ARRAY 

83 

FCOEF 

CNTRLP 

REAL 

SIMPLE 

22 

FK 

RADCOM 

REAL 

ARRAY 

65 

133 

FKK 

REAL 

SIMPLE 

133/S 

1 GO 

169 

178 

187 

197 

214 

225 

230 

235 

24  1 

FMU 

CNTRLP 

REAL 

SIMPLE 

23 

FROST 

RADCOM 

LOGICAL 

ARRAY 

74 

75 

FSCAT 

DSOLAR 

REAL 

ARRAY 

BO 

r WET 

CNTRLP 

REAL 

SIMPLE 

24 

GAM 

RADCOM 

REAL 

ARRAY 

51 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

25 

GTOPO 

CNTRLP 

REAL 

SIMPLE 

26 

HH 

RADCOM 

REAL 

ARRAY 

54 

HHE 

RADCOM 

REAL 

ARRAY 

54 

HHS 

RADCOM 

REAL 

ARRAY 

55 

HIGH 

CNTRLP 

REAL 

SIMPLE 

27 

I 

integer 

SIMPLE 

102/C 

1 03 

103 

1 04 

1 05 

106 

106 

106 

107 

1 to 

1 10 

1 1 1 

1 1 2 

1 1 5 

1 17 

121 

128 

128 

135 

14  1 

142 

154 

1 63 

164 

185 

1 SB 

188 

19B 

206 

208 

215 

215 

226 

226 

231 

231 

240 

240 

24  2 

242 

I CP 

RADCOM 

LOGICAL 

ARRAY 

73 

75 

IM 

integer 

SIMPLE 

1 

102 

JALB 

RADCOM 

INTEGER 

SIMPLE 

72 

K 

INTEGER 

SIMPLE 

132/C 

133 

134 

L 

INTEGER 

SIMPLE 

109/C 

1 10 

1 1 2 

116/C 

1 17 

120/C 

121 

140/C 

14  1 

153 

154 

176 
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C 

SCNTRL 
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C 

REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

165 

C 

SCNTRL 

166 

00145 

COMMON 

/RCNTRL / 

RCO 

SCNTRL 

167 

00146 

COMMON 

/RCNTRL/ 

APHEL 

SCNTRL 

168 

00147 

COMMON 

/RCNTRL / 

BETA 

SCNTRL 

169 

0014B 

COMMON 

/RCNTRL/ 

COSD 

SCNTRL 

170 

00  149 

COMMON 

/RCNTRL/ 

CP 

SCNTRL 

1 7 I 

00  150 

COMMON 

/RCNTRL/ 

DAYSPV 

SCNTRL 

1 72 

0015  1 

COMMON 

/RCNTRL/ 

DEC 

SCNTRL 

173 

00  152 

COMMON 

/ RCNTRL/ 

DECMAX 

SCNTRL 

1 74 

00  153 

COMMON 

/RCNTRL/ 

DIST 

SCNTRL 

175 

00  154 

COMMON 

/RCNTRL/ 

DLAT 

SCNTRL 

176 

00155 

COMMON 

/RCNTRL/ 

DLON 

SCNTRL 

177 

00  156 

COMMON 

/RCNTRL/ 

DT 

SCNTRL 

17S 

00157 

COMMON 

/RCNTRL/ 

ECCN 

SCNTRL 

179 

00158 

COMMON 

/RCNTRL/ 

GNU1 

SCNTRL 

180 

00159 

COMMON 

/RCNTRL/ 

GNU2 

SCNTRL 

181 

00160 

COMMON 

/RCNTRL/ 

GRAV 

SCNTRL 

182 

00161 

COMMON 

/RCNTRL/ 

OMEGA 2 

SCNTRL 

183 

00162 

COMMON 

/RCNTRL/ 

PI 

SCNTRL 

184 

20  163 

COMMON 

/RCNTRL/ 

PI  180 

SCNTRL 

1S5 

00  1 64 

COMMON 

/RCNTRL/ 

p r 2 

SCNTRL 

1S6 

00  165 

COMMON 

/RCNTRL/ 

P STD 

SCNTRL 

187 

00166 

common 

/RCNTRL/ 

PIMEAN 

SCNTRL 

IBS 

n ^ 

00  1 67 

COMMON 

/RCNTRL/ 

P5MAX 

SCNTRL 

189 

00  168 

COMMON 

/RCNTRL/ 

P5MIM 

SCNTRL 

190 

*n  ^ 

00169 

common 

/RCNTRL/ 

PTOP 

SCNTRL 

191 

“TT  FT 

00170 

COMMON 

/RCNTRL/ 

RADE 

SCNTRL 

192 

U u<J 
***** 

00171 

COMMON 

/RCNTRL/ 

RGAS 

SCNTRL 

193 

U 

00172 

COMMON 

/RCNTRL/ 

ROCP 

SCNTRL 

194 

2 5 

00173 

COMMON 

/RCNTRL/ 

R5DI5T 

SCNTRL 

195 

00174 

COMMON 

/RCNTRL/ 

SDAY 

SCNTRL 

196 

00  175 

COMMON 

/RCNTRL/ 

SEASON 

SCNTRL 

197 

«0  -g 

00176 

COMMON 

/RCNTRL/ 

SIGE  < 25 ) 

SCNTRL 

198 

c > 

00177 

COMMON 

/RCNTRL/ 

SIND 

SCNTRL 

199 

> h 

00  178 

COMMON 

/RCNTRL/ 

SOLS 

SCNTRL 

200 

r-  3^ 

00  1 79 

COMMON 

/RCNTRL/ 

TSTD 

SCNTRL 

201 

00180 

COMMON 

/RCNTRL/ 

PLEVS  { 25  > 

SCNTRL 

202 

H mn 

0018  1 

COMMON 

/RCNTRL/ 

HEATW 

SCNTRL 

203 

00182 

COMMON 

/RCNTRL/ 

HEATI 

SCNTRL 

204 

00183 

COMMON 

/RCNTRL/ 

EPS 

SCNTRL 

205 

00184 

COMMON 

/RCNTRL/ 

EPSFAC 

SCNTRL 

206 

00185 

COMMON 

/RCNTRL/ 

CALTOJ 

SCNTRL 

207 

00  186 

COMMON 

/RCNTRL/ 

PZERO 

SCNTRL 

208 

c 

SCNTRL 

209 

OOTB7 

EQUIVALENCE 

( RCO , RC  < 1 ) ) 

SCNTRL 

210 

ootas 

REAL 

RCO,  RC ( 200 ) 

SCNTRL 

211 

c 

SCNTRL 

212 

c 

INTEGER  MODEL  CONSTANTS 

SCNTRL 

2 13 

c 

SCNTRL 

214 

00  189 

COMMON 

/ I DP ARM/ 

I JUMP  f 46  J 

SCNTRL 

215 

00190 

COMMON 

/ IDPARM/ 

1DSP02 

SCNTRL 

216 

00191 

COMMON 

/I DP ARM/ 

INDEX  (725 

SCNTRL 

2 17 

00  192 

COMMON 

/ I DP ARM/ 

I ROD 

SCNTRL 

218 

00  193 

COMMON 

/ IDPARM/ 

JC  (46) 

SCNTRL 

213 

00194 

COMMON 

/IDPARM/ 

JE  ( 2 > 

SCNTRL 

220 

00  195 

COMMON 

/IDPARM/ 

JP  (2,2) 

SCNTRL 

221 

00196 

COMMON 

/IDPARM/ 

KSTEP 

SCNTRL 

222 

Q0197 

COMMON 

/IDPARM/ 

MJ  (46) 

SCNTRL 

223 

00  19B 

COMMON 

/IDPARM/ 

NHMS1 

SCNTRL 

224 

00199 

COMMON 

/IDPARM/ 

NYMDt 

SCNTRL 

225 

c 

SCNTRL 

226 

c 

LOGICAL  MODEL  CONSTANTS 

SCNTRL 

227 

c 

============= 

SCNTRL 

228 

00200 

COMMON 

/LDPARM/ 

FILTER  <46} 

SCNTRL 

229 

00201 

COMMON 

/ LDPARM/ 

ITAPE 

SCNTRL 

230 

00202 

COMMON 

/LDPARM/ 

START 

SCNTRL 

231 

c 

SCNTRL 

232 

00203 

LOGICAL 

FILTER 

SCNTRL 

233 

COMPO  4 


00204 

logical 

ITAPH 

SCNTRL 

234 

00205 

LOGICAL 

START 

SCNTRL 

235 

C 

SCNTRL 

236 

c 

REAL  MODEL  CONSTANTS 

SCNTRL 

237 

c 

aa ssc ~ ~ ~ = 

SCNTRL 

238 

00205 

COMMON 

/RDPARM/ 

ADLDP 

SCNTRL 

239 

00207 

COMMON 

/RDPARM/ 

CONI 

SCNTRL 

240 

0020S 

COMMON 

/RDPARM/ 

CON  IDT 

SCNTRL 

24  1 

00203 

COMMON 

/RDPARM/ 

CON2 

SCNTRL 

242 

00210 

COMMON 

/RDPARM/ 

C0N2DT 

SCNTRL 

243 

0021  t 

COMMON 

/RDPARM/ 

C0N3 

SCNTRL 

244 

00212 

COMMON 

/RDPARM/ 

C0N3DT 

SCNTRL 

245 

00213 

COMMON 

/RDPARM/ 

C0N4 

SCNTRL 

246 

00214 

common 

/RDPARM/ 

C0N4DT 

SCNTRL 

247 

00215 

COMMON 

/RDPARM/ 

CONS 

SCNTRL 

248 

00216 

COMMON 

/RDPARM/ 

COSL 

146) 

SCNTRL 

249 

00217 

COMMON 

/RDPARM/ 

COSLON 

(72) 

SCNTRL 

250 

00218 

COMMON 

/RDPARM/ 

CPD2 

SCNTRL 

25  1 

00219 

COMMON 

/RDPARM/ 

DXP 

(46) 

SCNTRL 

252 

00220 

COMMON 

/RDPARM/ 

DXYP 

(46> 

SCNTRL 

253 

00221 

COMMON 

/RDPARM/ 

DYP 

(46) 

SCNTRL 

254 

00222 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

SCNTRL 

255 

00223 

COMMON 

/RDPARM/ 

F IDT 

SCNTRL 

256 

00224 

COMMON 

/RDPARM/ 

F2DT 

5CNTRL 

257 

00225 

COMMON 

/RDPARM/ 

H1DT 

SCNTRL 

258 

00226 

COMMON 

/RDPARM/ 

H2DT 

SCNTRL 

259 

0 0 227 

COMMON 

/RDPARM/ 

PK5TD 

SCNTRL 

260 

00228 

COMMON 

/RDPARM/ 

PKTOP 

SCNTRL 

261 

00229 

COMMON 

/RDPARM/ 

rlat 

(46) 

SCNTRL 

262 

00230 

COMMON 

/RDPARM/ 

RLATD 

(46) 

SCNTRL 

263 

00231 

COMMON 

/RDPARM/ 

ROCPDT 

SCNTRL 

264 

00232 

COMMON 

/RDPARM/ 

ROCPP 1 

SCNTRL 

265 

00233 

COMMON 

/RDPARM/ 

SGNP 

(2) 

SCNTRL 

265 

00234 

COMMON 

/RDPARM/ 

SI  NL 

(46) 

SCNTRL 

267 

00235 

COMMON 

/RDPARM/ 

SINLON 

(72) 

SCNTRL 

26B 

00226 

COMMON 

/RDPARM/ 

THSTD 

SCNTRL 

269 

00237 

COMMON 

/RDPARM/ 

THSTD2 

SCNTRL 

270 

00238 

COMMON 

/RDPARM/ 

W5AVE 

(159) 

SCNTRL 

271 

00239 

COMMON 

/RDPARM/ 

DSIG 

( 9 1 

SCNTRL 

272 

00240 

COMMON 

/RDPARM/ 

SIG 

< 9 > 

SCNTRL 

273 

c 

SCNTRL 

274 

C 

+ * # 

SQANDQT 

2 

C 

GLOBAL  MODEL  SURFACE  FIELDS 

SQANDQT 

3 

00241 

COMMON  / QANDQT/ 

QS (72, 19,46) 

SQANDQT 

4 

c 

SQANDQT 

5 

00242 

DIMENSION 

PHIS< 1358, 1 ) 

SQANDQT 

6 

00243 

DIMENSION 

5MTM ( 1368, 23) 

SQANDQT 

7 

00244 

dimension 

ALBEDO*  1368  , 1 ) 

SQANDQT 

8 

00245 

DIMENSION 

GT( 136S, t ) 

SQANDQT 

9 

00246 

DIMENSION 

GW( 1368 , 1 ) 

SQANDQT 

10 

00247 

DIMENSION 

TS( 1368, 1 ) 

SQANDQT 

t 1 

00248 

DIMENSION 

5MS ( 1 368  t 1 ) 

SQANDQT 

12 

00249 

DIMENSION 

P ( 7 2 > 19,  1 ) 

SQANDQT 

13 

00250 

DIMENSION 

TMINl  1368.  t > 

SQANDQT 

14 

00  25  1 

DIMENSION 

TMA  X ( 1368, 1 > 

SQANDQT 

15 

00252 

dimension 

PRE ACC ( 1 36B , 1 } 

SQANDQT 

16 

00253 

DIMENSION 

PRECON ( 1368, 1 J 

SQANDQT 

17 

00254 

DIMENSION 

HFLUX{ 1368. 1 J 

SQANDQT 

18 

00255 

DIMENSION 

EFLUX ( 1368, t) 

SQANDQT 

19 

00256 

DIMENSION 

FUSION ( 1 368 , 1) 

SQANDQT 

20 

00257 

DIMENSION 

RADSWGt 1368, 1 ) 

SQANDQT 

21 

00258 

DIMENSION 

RADLWG ( 136S, 1 ) 

SQANDQT 

22 

00259 

dimension 

ICLOUD( 1368 r 1 > 

SQANDQT 

23 

c 

SQANDQT 

24 

00260 

EQUIVALENCE 

( QS (1,1,1), PHI S { 1,1)) 

SQANDQT 

25 

00261 

equivalence 

<QS( 1 .2, 1) ,SMTK( 1.1)) 

SQANDQT 

26 

00262 

EQUIVALENCE 

(QS( 1 ,3r 1 J , ALBEDO ( 1 , 1 ) ) 

SQANDQT 

27 

00253 

EQUIVALENCE 

(Q5( 1 ,4, 1 > ,GT( 1 . 1 )) 

SQANDQT 

28 

00264 

EQUIVALENCE 

(OSU  ,5, 1 ) ,GW(  1 , 1 ) ) 

SQANDQT 

29 

00265 

EQUIVALENCE 

<QS( 1 ,6, 1 ) . TS( 1 ,1 ) ) 

SQANDQT 

30 

00266 

EQUIVALENCE 

IQSM  ,7,  1 ) , SHS  ( 1,1)) 

SQANDQT 

31 
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00301 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 


00310 
0031  1 

00312 

00313 
003  14 


O 

o 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 


IQS<  1 , 8*  1 > .P( 1 f 1 , 1 ) } 

(QS( 1 , 10, 1 ) , TMI NI1.1!) 
(QS<  1,11,1)  , TMAXf  IJI) 
(QSI 1 , 12, 1 ) , PRE ACC ( 1,1)) 
( QS i 1,13,1), PRECON(  t , n > 
( QS (1,14.1) , HFLUX 1 1,1)) 
(05(1,15,1), EFLUX1 1,1)) 
{QS( 1,16,1), FUSION! 1,1)) 
<QS{ 1,17,1) , RADSWG ( 1,1)) 
( QS { 1,18,1) ,RADLWG( 1,1)) 
{QS( 1 , 19t 1 ) , I CLOUD ( 1,1)) 


GLOBAL  MODEL  UPPER-AIR  FIELDS 

COMMON  /QANDQT / QU < 72 , 9 , 1 4 , 46 ) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
C 

c 

C DEBUG 
10000  CONTINUE 
C * *+  * CYBER  SCALAR 

C ****  CYBER  SCALAR 

C ****  CYBER  SCALAR 


U { 72 , 9 , 14,1} 

V { 72 , 9 , 14,1} 

T 1 72 ,9,14,1) 

SH{ 72 ,9,14,1) 

PHI  172,9,14,  1 ) 
OMEGA (72,126,1) 
Dl AB AT ( 72 ,126,1} 
RADSW ( 72 , 126, 1) 
RADLW( 72, 126,1) 

(QU1  1,1,1,11,11(1 
(QU( 1 , 1 ,3, I ) . V( 1 
1.5,1)  ' 


(QUI1 , 1 ,5, 1) , T( 1 , 1 , 1 , 

( QU (1,1,7,11, 5H (1,1,1 
<QU( t , 1 ,9,  f > .PHI (1.1,1 
(00(1,1,11,1) .OMEGA ( 1,1, 
( QU ( t , 1,12,1)  t DI ABAT { 1 , 1 
(QU( 1 , 1 , 13, 1 ) , RADSW ( 1,1. 
(QU( 1,1,14,1) , RADLW ( 1,1, 


1 ) > 

1 ) ) 

1 ) > 

, 1)  ) 
.1)) 
1)  ) 


n } 

i > > 

in 


VERSION 

VERSION 

VERSION 


04. 001 
04.000 
00 


INPUT. IOQ 


5QANDQT 

SQANDOT 

SQANDQT 

SQANDOT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDOT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 

SQANDQT 
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SQANDQT 

SQANDQT 

SQANDQT 

SCOMPO 

SEEGDEB 

SBEGDEB 

5BEGDEB 

SBEGDEB 

SBEGDEB 


C5S$SS5S£SSSS$$SSSS$SSS£5£5SS5S£5SS£££££££$$SS$S5SS£SS5£SSS5£55SSSSSS£SS5BEGDEB 


c 

c 

c 

c 

c 

c 

c 


CON  IDT 
C0N2DT 
C0N3DT 
CON4DT 
F IDT  j* 
F2DT  - 
H1DT  = 
H2DT  = 
dS2  = 1 

dSI  = 1 
JP1  - t 
dP2  = 1 


CON  1 *DT 
CON2  *DT 
C0N3'DT 
CON4*DT 
B,  *DT 
-DT 

» 5 * F 1 DT 
.5*F2DT 


.>'*,»***,**,lfc*S.i»r** 


MAIN  LATITUDE  LOOP 


DO  BO  d= 1 , dM 
M = O 

IF  { J.EQ, 1 ) M = 1 
IF  (J.EQ.dMI  M = 2 

IF  (M.EQ.2}  GO  TO  20 


* y i 

* A * * 


SAVE  THEN  SCALE  Q(NB,dP2> 

CALCULATE  GEOPOTENTIAL  HEIGHTS  FOR  Q(ND,dP2) 


SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 

SCOMPO 


32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
43 
50 
5 1 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
56 

2 

3 

4 

5 

6 
7 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 
7 1 

72 

73 

74 

75 
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77 

78 

79 

80 
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82 

83 

84 

85 
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00329 


00330 

00331 

00332 

00333 

00334 

00335 
00335 


00337 

00338 


00339 

00340 

00341 


C 

C 

c 


c 

G 

C 

C 

C 

C 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

0 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


10  CONTINUE 

IF  f KSTEP  * EQ . O ) CALL  COPYQ  1NB(ND,dP2> 
IF  (KSTEP. E0.1)  CALL  SAVEQM  (NB,dP2) 
CALL  SCALEQ  (NB(dP2, 1 I 
CALL  GEOHT  <ND,JP2> 

IF  ( d P2 . GT . 2 ) GO  TO  20 

JF1  = JP2 
JP  2 = JP2  + 1 

GO  TO  10 


m * * *■ 
r f i # 
* * * * 

PREDICT  0(NBrd)  = 0 ( NB  , d ) + DT'FIQCNO.JM 

# » * * * 
* * * * 
» w * • 
♦ * * * 

20 

CONTINUE 

CALL 

COMP  1 (d) 

CALL 

COMP  2 Id) 

IF  CiJ.LT. 3)  GO  TO  70 

* JF  ♦ » 

* T * * 

CORRECT  FOR  NEGATIVE  HUMIDITIES 

m r mt  * 

+ • + * 

+ * * *■ 

30 

CONTINUE 

CALL 
+ *-  *-  * 

SHCORN  1 dS2 ) 

* » « * 

» * * i 

* * *■  + 

CHECK  FOR  PRESSURE  DIAGNOSTIC 

# 4 * * 

* r * * 

*44* 

INC 

= I JUMP  f JS2 ) 

DO  40  1 = 1 , IM, INC 

PS  = 

P f I * NB  , if  52  ) A PTOP 

IF  (P5.GE.P5MIN  .AND.  PS.LE.PSMAX)  GO  TO  40 

CALL 

PRD  I AG  rjS2,I) 
RETURN  1 

40 

CONTINUE 

* * * * 

r * *■  * 

UNSCALE  Q<NB,JS2) 

* ♦ ♦ * 

*■  + *■  + 

APPLY  FOURIER  FILTER  NEAR  POLES 

♦ « + ♦ 

* * * *■ 

* *•  » * 

* 


CALL  SCALEQ  ( NB  t J52 r - 11 

IF  1 F I LTEP  l JS2  1 ) CALL  AVRX  1dS2> 


* + TIME  SMOOTH  Q ( ND , JS2 ) USING  EARLIER  AND  LATER  VALUES 
****  FOR  SMOOTH  LEAPFROG  TIME  SCHEME 


IF  tMATSUN. NE * 0 } GO  TO  50 
IF  f KSTEP . £Q  + 1 .AND.  GNU2 . NE . O . ) CALL  TIMA VG  (dS2) 
GO  TO  60 


♦ 


REPLACE  ORIGINAL  Q(NB,JS2>  IN  Q<ND,JS2) 


SCOMPO  S7 
5COMPO  88 
SCOMPO  39 
SCOMPO  90 
SCOMPO  91 
SCOMPO  92 
SCOMPO  93 
SCOMPO  94 
SCOMPO  95 
SCOMPO  98 
SCOMPO  97 
SCOMPO  38 
SCOMPO  99 
SCOMPO  100 
SCOMPO  101 
SCOMPO  102 
SCOMPO  T 03 
SCOMPO  104 
SCOMPO  105 
SCOMPO  106 
SCOMPO  107 
SCOMPO  108 
SCOMPO  109 
SCOMPO  T 1 0 
SCOMPO  111 
SCOMPO  112 
SCOMPO  113 
SCOMPO  114 
SCOMPO  115 
SCOMPO  116 
SCOMPO  1 17 
SCOMPO  118 
SCOMPO  1 19 
SCOMPO  120 
5C0MP0  T 2 1 
SCOMPO  122 
SCOMPO  123 
SCOMPO  124 
SCOMPO  125 
SCOMPO  126 
SCOMPO  127 
SCOMPO  128 
SCOMPO  129 
SCOMPO  130 
SCOMPO  131 
SCOMPO  132 
SCOMPO  133 
SCOMPO  134 
SCOMPO  135 
SCOMPO  13G 
SCOMPO  137 
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PURPOSE 

INTEGRATE  THE  DIFFERENTIAL  FIELDS  IN  THE  HORIZONTAL 
ADVECTION  EQUATION,  THE  VERTICAL  ADVECT I ON  EQUATION , 
AND  THE  CONTINUITY  EQUATION  TO  PREDICT  THE  BASE 
FIELDS  ONE  TIME  STEP  FORWARD. 

FOR  BAND  d (OR  IF  d = JM.  FOR  BANDS  J AND  J+U. 

CALLED  BY  MAIN  (COMPQ)  ONLY 

USAGE 


ARGUMENTS 
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LATITUDE  BAND  NUMBER 
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RECORD  OF  MODIFICATIONS 

BASED  ON  OLD  VERSION  8. 
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L 

00277 

EQUIVALENCE 

( QS ( 1 , 19, n , ICLOUD ( 1.1)) 

t 

c 

* » * 

f 

c 

GLOBAL  MODEL  UPPER- 

"AIR  FIELDS 

| 

00278 

r> 

COMMON  /QANDQT/ 

QU (72,9, 14,46) 

1* 

00279 

DIMENSION 

U( 72, 9, 14,1) 

00280 

DIMENSION 

V ( 7 2 , 9 , 14,1) 

00231 

DIMENSION 

7(72,9,14.1) 

00232 

DIMENSION 

5H (72,9, 14,1) 

00283 

DIMENSION 

PHI (72,9, 14.1) 

| ? 

00284 

DIMENSION 

OMEGA (72, 126,1) 

SCNTRL 

255 

SCNTRL 

256 

SCNTRL 

257 

SCNTRL 

256 

SCNTRL 

259 

SCNTRL 

260 

SCNTRL 

261 

SCNTRL 

262 

SCNTRL 

263 

SCNTRL 

264 

SCNTRL 

265 

SCNTRL 

266 

SCNTRL 

267 

SCNTRL 

268 

SCNTRL 

269 

SCNTRL 

270 

SCNTRL 

271 

SCNTRL 

272 

SCNTRL 

273 

SCNTRL 

274 

SQANDQT 

2 

SQANDQT 

3 

SQANDQT 

4 

SQANDQT 

5 

50AN0QT 

6 

SQANDQT 

7 

SQANDQT 

8 

SQANDQT 

9 

SQANDQT 

10 

SQANDQT 

t 1 

o o 

SQANDQT 

12 

*n  S3 

SQANDQT 

13 

nf» 

SQANDQT 

14 

T3  Si 

SQANDQT 

15 

o s 

SQANDQT 

16 

O Vt, 

SQANDQT 

17 

SQANDQT 

IS 

aj  r 

SQANDQT 

19 

/■)  ^ 

SQANDQT 

20 

r'" 

SQANDQT 

21 

SQANDQT 

22 

SQANDQT 

23 

r™  Fft 

SQANDQT 

24 

SOANDQT 

25 

‘4 

SQANDQT 

26 

SQANDQT 

27 

SQANDQT 

2B 

SQANDQT 

29 

SOANDQT 

30 

SQANDQT 

31 

SOANDQT 

32 

SOANDQT 

33 

SQANDQT 

34 

SOANDQT 

35 

SOANDQT 

36 

SQANDQT 

37 

SQANDQT 

38 

SOANDQT 

39 

SQANDQT 

40 

SQANDQT 

41 

SQANDQT 

42 

SQANDQT 

43 

SQANDQT 

A4 

SQANDQT 

45 

SQANDQT 

46 

SQANDQT 

47 

SOANDQT 

48 

SQANDQT 

49 

SQANDQT 

50 

SQANDQT 

5 t 

SQANDQT 

52 

t 


COMF1 


<F 


m i'*; 


■ i 

» 

3 

It 

ii' 


i> 

!i' 


i < 

i * 

I > 


002S5 

00286 

00287 


00288 
00283 
00290 
0029  1 

00292 

00293 

00294 

00295 
CO  296 


00297 

00298 

00299 

00300 
0030  t 
00302 


V r M"'- 


u 


DIMENSION 

DIMENSION 

DIMENSION 


DIABAT172, 126,1) 
RAD  SW  (72, 126,1) 

R ADLW ( 72 ,126,1) 


C 

C 

C 


EQUIVALENCE 

EQUIVALENCE 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 


(put  1 , 1 
f QU( 1 , 1 
(QUC 1 , 1 
(pur  i 
<QU(  1 
(QU(  1 

(qu<  1 
( Q U < t 
<QU<  1 


, I.U.UM,  1,1,1)) 
,3,11,1/(1,1,1,11) 
> 5 , J ) ,T( 1 , 1 , 1,1)) 
>7,1), SH 11,1,1,1 
,9,1), PHI (1,1,1, 
,11,1)  , OMEGA  <1,1 
,12,1)  , DI ABA  T ( 1 , 
,13.1), HADSWt 1 , 1 
1 > , RADLW ( 1 , 1 


14  , 


) 

) ) 

1 ) ) 
> ) 

1 ) > 


POLAR  MODEL  PROGNOSTIC  FIELDS 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ Q POLES/  P P f 2 , 2 ) 
/QPOLES/  UP  <9,2.2) 


/QPOLES/  VP (9.2.2) 
/QPOLES/  TP (9,2,2) 


/QPOLES/  SHP ( 9 r 2 , 2 ) 
/QPOLES/  PHI P t 9 f 2 , 2 ) 


SQANDQT  53 
SOANDQT  54 
SQANDQT  55 
SQANDQT  56 
SOANDQT  57 
SQANDQT  5B 
SQANDQT  59 
SQANDQT  60 
SQANDQT  61 
SQANDQT  62 
SQANDQT  63 
SQANDQT  64 
SQANDQT  65 
SQANDQT  66 
SQPQLES  2 
SQPOLES  3 
SQPOLES  4 
SQPOLES  5 
SQPOLES  6 
sqpoLES  7 
SQPOLES  8 
SQPOLES  9 


C 

C 

C 

C 

c 

c 

c 

c 


COMBINE  LAYER  AND  TIME  INDICES  TO  FACILITATE 
FORTRAN  H EXTENDED  ENHANCED  COMPILER  OPTIMIZATION 


SCOMP I 
5C0MP1 
SCOMP  t 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 


C 

SQPQLES 

10 

C 

*■  * * 

SQM5AVE 

2 

C 

GLOHAL  SAND  MODULO  SAVE  AREAS  DURING  HYDROO YNAMICS  STEP 

SOMSAVE 

3 

00303 

COMMON 

/ QMSAVE/  PM{ 72,5) 

SOMSAVE 

4 

00304 

COMMON 

/QMSAVE/  UM (72,9+5) 

SQMSAVE 

5 

00305 

COMMON 

/QMSAVE/  VM (72,9,5) 

SOMSAVE 

6 

00306 

COMMON 

/QMSAVE/  TM (72 ,9,5) 

SQMSAVE 

7 

00307 

COMMON 

/QMSAVE/  SHM  <72,9,5) 

SOMSAVE 

a 

00303 

COMMON 

/QMSAVE/  PHIM(72.9.5) 

SOMSAVE 

9 

00309 

COMMON 

/QMSAVE/  P V ( 72 , 9 , 5 ) 

SQMSAVE 

10 

00310 

COMMON 

/QMSAVE/  P I T ( 72 , 5 ) 

SQMSAVE 

1 1 

0031  1 

COMMON 

/QMSAVE/  CONV  <72,9,5)  , SD(72,9(5) 

SOMSAVE 

12 

00312 

COMMON 

/QMSAVE/  TERMW  <72,9,5)  , TERM! (72,9,5) 

SQMSAVE 

13 

C 

SQMSAVE 

14 

c 

*■  * w 

SWORKFL 

2 

c 

BAND  WORK 

AREAS  DURING  HYDRODYNAMICS  STEP 

SWORKFL 

3 

00313 

COMMON 

PU  ( 72  ) , PUK72),  PU2  ( 72  ) 

SWORKFL 

4 

c 

SWORKFL 

5 

c 

SCOMP 1 

38 

c 

DEBUG 

SBEGDEB 

2 

00314 

10000  CONTINUE 

SBEGDEB 

3 

c 

****  CYBER  SCALAR  VERSION  04.001  INPUT, IOQ 

SBEGDEB 

4 

c 

***  + CYBER  SCALAR  VERSION  04.000 

SBEGDEB 

5 

c 

****  CYBER  SCALAR  VERSION  00 

SBEGDEB 

6 

CS£S5$S3SSSSSS3SSSSSS£SSS55SSSSSSSSSS£5SSS£SSSSSSS5SSSSS$SS5SS5SSSSSSSS55BEGDEB 

7 

00315 

nlaynd 

= NLA Y * t ND  - 1 > 

SCOMP 1 

40 

00316 

NLAYNB 

= NLA Y * ( NB  - 1 ) 

SCOMP 1 

41 

00317 

UP  1 = i 

J * 1 

SCOMP 1 

42 

00315 

JP2  = i 

lI  + 2 

SCOMP 1 

43 

00319 

K = JC<J) 

SCOMP 1 

44 

00320 

KP 1 “ ■ 

JC  < JP1  } 

SCOMP 1 

45 

00321 

KP2  = < 

JC(dP2) 

SCOMP 1 

46 

00322 

DO  90  L - 1 , NLA Y 

SCOMP 1 

47 

43 

49 

50 

51 

52 

53 

54 

55 


O 

O 


CJs 


00323 

LND  = L + NLAYND 

SCOMP 1 

56 

00324 

LNB  = L + NLAYNB 

SCOMP 1 

57 

00325 

IS2  = IM  - 3 

SCOMP 1 

SB 

00326 

1ST  - IM  ~ 2 

SCOMP  t 

59 

00327 

I “ IM  ~ 1 

SCOMP 1 

60 

00328 

IP1  =•  IM 

SCOMP 1 

61 

00329 

PUUS2)  - DYP(J)*P(IS2,ND,U)  *U<  152, LND,  1 ,J) 

SCOMP 1 

62 

00330 

PU(ISI)  = DYP (d)*P(IS1  1 ND  « J ) *U ( I S 1 , LND , 1 , d J 

SCOMP 1 

S3 
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0033  1 

00332 

00333 

00334 

00335 

00336 

00337 


00338 

00339 

00340 
0034  1 
00342 


00343 

00344 

00345 

00346 

00347 


00343 

00349 

00350 
0035  t 
00352 


00353 

00354 
00335 

00356 

00357 


00358 

00359 

00360 
0036  f 
00362 

00353 

00354 
00365 


PU<n  = DYF { d ) *P(  I , ND , d ) *U  { I , UNO  f t * J ) 

PU ( I P 1 ) = DYP (J)*P( I P 1 ,NDfd)*LM  I P 1 tLND „ 1 , J) 

P U2  ( I 52  ) = PUU52)  * PU(I) 

PU 1 ( IS1 ) - PU( IS1 ) + PU(I  ) 

PU2(isn  = pu(isi)  + putipt) 

DO  SO  IP2- 1 * IM 
IF  ( d . EQ , 1 ) GO  TO  20 
C 

C * 

C **** 

C ***  + HORIZONTAL  ADVECTION  IN  LONGITUDINAL  DIRECTION 

C ****  CALCULATE  PU 

C * * * * 

C *»»*,*'»»'********»*+-***'#-**#****+'****+-***+  + il»*-***#*'******»»i 

c 

PU ( I P2 ) = DYPtdJ*P(IP2*  ND , d ) + U ( I P 2 , L ND , 1 ♦ d ) 

PUH  I ) = PU<  I } ■*  PUUP1) 

PU2  < n = PU  ( I ) * PUUP2) 

FLUX  1 = H IDT ♦PU  t {15  1} 

FLUX2  = H2DT*  PU2  <151  } 

C 

C ♦-*♦*** 

c * **  + 

C ****  U WIND  ADVECTION 

C »*** 

C **^^*****^*^^**  + **.*^***^»-.^*..-r**.-***  ****** 
C 

QFLUX1  = FLUX  IMUfIST,  LND  * 1 , d J + U(  I , LND,  1 ,d>  ) 
QFLUX2  = FLUX2UUHS1  .LND,  1 ,d»  •*-  U ( I P t f LND  , 1,  d ) ) 
U(IP1«LN9,1.«J)  = U ( I P f t LNB  , t , d ) * QFLUX2 
U(  I i LNB  , 1 » d ] “ UU,LNBt1,J)  * QFLUX1 
Uf IS1  , LNS , 1,d)  = Uf IS  I t LNB * t 1 d ) - QFLUX1  - QFLUX2 
C 

C ■*1»«»*»**<r********  + ****  + ****'***i*w*'**-****w*»***»**:»'**  »**!•■. 

c * * * * 

C + V WIND  ADVECTION 

C * *■  * * 

C **■****++***+******  **+^*+^*****V*  ****■»♦**  <r*****»*^*^****, 


0FLUX1  = FLUX1MVII51  , LND  « I « d)  * V ( 1, LND , 1 . d ) ) 

0FLUX2  = FLUX 2 * ( V ( IS1 , LND , 1 , j)  * V ( IP  1 , LND , 1 , J) } 

V(  IPl.LNB,  1 ,d)  - V(  IP  1 , LNB  , 1,J)  «■  OF  LUX  2 

V ( I , LNB  ,1,1))  = V(IfLN9,1,d)  * QFLU  X t 

VUSt  f LNB  , 1 rd)  - V t IS1  t LNB,  1 , d)  - OFLUXt  - QFLUX2 


D * + * * 
C 


TEMPERATURE  ADVECTION 


OFLUXt  = F LUX  1 * ( T { 15 1 , LND  , 1 , J J + TU.LND,  ),JM 
QFLUX2  = FLUX  2*  { T ( 1S1  t LND  , 1 rd)  ■*  T(  IP  1 , LND  , ( kJ)  } 

T < I P 1 , LNB , t ♦ d ) = TtiPI  .LNB,  1, J)  + QFLUX2 

T { I » LNB * 1 . J ) = T t I r LNB , t, Jl  + OF LUX  1 

TIIS1,LNB J,dl  = T [ IS  1 f LNB , U d ) - QFLUX 1 - QFLUX2 


HUMIDITY  ADVECTION 


► * * * * 


+■ 


* + +•*•*  *■  + » *aF***4,*»#**a(Mr!*-4-4-****  + #**,**»*^*'-**'7vtf» 


QFLUX  1 = FLUXt  M5HUS1  , LND  , 1 . J)  + 5H  { I f LND  , 1 , J > ) 
QFLUX2  = F LUX  2 *•  ( SH  (IS1  , LND,  1 , d ) + SH  ( I P t , LND  , 1 , d ) ) 

IF  (SHUSMNDJ.dl.GT.OJ  GO  TO  10 
QFLUX I = AMIN  t ( QFLUX 1,0.) 

0FLUX2  “ AM1NH  QFLUX2»0*  ) 
to  continue 

IF  ( SH ( I , LND , 1 ,J)  rLE.O. ] QFLUX 1 = AMAX 1 ( QFLUX  t t 0 . J 

IF  fSH{ IP1 ,LND, 1 ,di,LE.Oj  QFLUX2  = AMAX 1 C QFLUX2 , 0 . ) 


SCOMP  T 

64 

SCOMP  t 

65 

SCOMP  t 

66 

SCOMP  t 

57 

SCOMP  t 

68 

5 COMP  t 

69 

SCOMP 1 

70 

SCOMP  t 

7 t 

SCOMP 1 

72 

SCOMP 1 

73 

SCOMP 1 

74 

SCOMP 1 

75 

SCOMP t 

75 

SCOMP 1 

77 

SCOMP 1 

7a 

SCOMP 1 

79 

SCOMP 1 

80 

SCOMP 1 

81 

SCOMP 1 

82 

SCOMP 1 

83 

SCOMP 1 

84 

SCOMP 1 

85 

SCOMP 1 

86 

SCOMP 1 

87 

SCOMP  t 

88 

SCOMP  t 

89 

SCOMP [ 

90 

SCOMP t 

SCOMP  t 

92 

SCOMP  t 

93 

SCOMP  T 

94 

SCOMP  t 

95 

SCOMP  t 

96 

SCOMP 1 

97 

SCOMP 1 

93 

SCOMP 1 

99 

SCOMP 1 

100 

SCOMP 1 

10  1 

SCOMP 1 

102 

SCOMP 1 

103 

SCOMP 1 

1 04 

SCOMP 1 

105 

SCOMP 1 

106 

SCOMP 1 

107 

SCOMP t 

103 

SCOMP 1 

1 09 

SCOMP 1 

tio 

SCOMP 1 

1 1 1 

SCOMP 1 

1 12 

SCOMP 1 

1 13 

SCOMP 1 

t 14 

SCOMP 1 

1 15 

SCOMP 1 

1 16 

SCOMP 1 

1 17 

SCOMP 1 

t IB 

SCOMP 1 

1 19 

SCOMP t 

1 20 

SCOMP 1 

121 

SCOMP 1 

122 

SCOMP  t 

123 

SCOMP  t 

124 

SCOMP 1 

125 

SCOMP t 

125 

SCOMP  1 

127 

SCOMP 1 

1 28 

SCOMP 1 

1 29 

SCOMP 1 

130 

SCOMP  1 

13  1 

SCOMP 1 

132 

SCOMP 1 

133 

SCOMP 1 

134 

% i 


O 

o 


t~a 


0R1GJNAL  P&?S!E 
OF  POOR  QUAL 


n 

o 

s 

K1 


r ■ 


00366  5H  ( IP  1 t LN0  , 1 t iJ  } = SH  ( I P 1 , LNB  , 1 , J)  + QFLUX2  SCOMP 1 135 

00367  SHU.LNBJ.Jk  = SH  ( I , LNB  , 1 , J}  * QFLUX1  SCOMP  J 136 

00368  SH< IS1  ,LNB,  1, J)  = SH ( I S 1 , LNB  . 1 , J J - QFLUX1  - OF  LUX  2 SCOMP I 137 

00369  IF  1J.EQ.JM>  GO  TO  SO  SCOMP 1 138 

00370  GO  TO  30  SCOMP t 139 

C SCOMP 1 140 

C * *.*..*.♦*  SCOMP  1 141 

C * * * * ****  SCOMP 1 T 42 

C ****  SOUTH  POLE  CORRECTION  ****  SCOMP 1 143 

C ****  **•*  SCOMP 1 144 

C SCOMP  T 1 45 

C SCOMP 1 146 

00371  20  CONTINUE  SCOMP 1 147 

00372  CONV(I(L,KPU  = 0.  SCOMP  1 148 

00373  CONV  f I * L . K ) = O.  SCOMP1  149 

00374  FV(X.L'K)  = DXP ( J ) »P { I , ND  * J } * V ( I 4 LND  , 1 (J)  SCOMP 1 150 

00375  P V f I , L , K P 1 } = DXPfdPI  )»P(I  ,NDf-JPn*V(I  ,1-ftfD,  1 .JPt)  SCOMP  t 15T 

C SCOMP 1 152 

C SCOMP  1 153 

C ***’*■  *-*-  5CQMP  1 154 

C *****  HORIZONTAL  ADVECT I ON  IN  LATITUDINAL  DIRECTION  ***-  SCOMP  1 155 

C ****  CALCULATE  PV  * * * * SCOMP 1 156 

C * * * * **•*  SCOMP  1 157 

C ►***,***» ***  + ^w**  + ,.**, »»*.♦***..***♦  + ♦.*******  + .*****.,  » 5C0MP1  158 

C SCOMP 1 159 

00376  30  CONTINUE  SCOMP 1 160 

00377  -PVM,L,KP2>  - DX  P f JP2  ) * P U , ND  , JP  2 ) * V f I . LND  » 1 , JP2  > SCOMP  1 161 

00378  PV1  = PV { I * L . K > * PV ( I , L , KP 1 J SCOMP 1 162 

00379  PV2  = PVU.LJI  * PV1J,LtKP2)  SCOMP  1 163 

003SO  FLUX  1 - H1DT*PVI  SCOMP 1 164 

0038 1 FLUX2  = H2DT*PV2  SCOMP 1 165 

C SCOMP 1 166 

C .■******^****--**-****--»*+*******«'******  + ****-**«r--****^-.«-****  SCOMP  1 167 

C ****  ***•  SCOMP  1 168 

C ■•■***  U WIND  ADVECTION  SCOMP  1 169 

C • * + * -***  SCOMP t 170 

C *****"•’  *•**********♦*«►*  + ***•*•****. •*********♦*♦*•******.****.**  SCOMP  1 17  1 

C SCOMP 1 172 

00382  QFLUX1  = FLUXlMUtl  t LND , 9 , J)  + U < l f LNO , f . dP t ) 1 SCOMP 1 173 

0G3E3  9FLUX2  - FLUX2 * f U ( I , LND f ! t J ) * U < l , LND , 1 t JP2 ) > SCOMP 1 174 

00384  U* J,LNB, t fJF2>  = U < I , LNB , I , JP2 J + QFLUX2  SCOMP 1 175 

00385  U(I  rLNBf  T-«  JP1  j = U ( I , LNB  f 1 , JP  1)  + QFLUX1  SCOMP  1 176 

00386  UHtLNBtt.d)  = UU,LNB,  1,JI  - QFLUXl  - 0FLUX2  SCOMP  1 177 

C SCOMP 1 1 78 

C ***-‘**********+*******. ******************************* ********  SCOMP 1 179 

C ****  ****  SCOMP 1 ISO 

C ****  V WIND  ADVECTION  ****  SCOMP 1 181 

C * • * * ♦***  SCOMP 1 182 

c ** * + ******  ****** SCOMP  1 183 

C SCOMP 1 184 

00387  QFLUX1  “ FLUX  1 * { V f I , LND , 1 . J > + V (I  , LND f 1,  JP t > 1 5COMP1  1 85 

003S8  QFLUX2  = FLUX  2 * ( V (I  , LND , 1 , J \ + V ( I , LND r t f JF2 })  SCOMP 1 186 

00389  VII,  LNB , 1 ♦ JP2  J = V < I . LNB , 1 # JP2 > * QFLUX2  SCOMP 1 187 

00390  VU.LNB  J.JPI)  - V < I , LNB  f 1 f JP1  ) + QFLUXl  SCOMP  1 188 

00391  V f I « LNB ,1  , d ) = V ( If  LNB , 1 , J)  - OFLUX 1 - QFLUX2  SCOMP 1 1B9 

C SCOMP 1 190 

c ***♦<.***♦**  + ********  + * + *,..  +****+*».  ********  ********************  SCOMP  1 19  1 

C *'**  ***•  SCOMP 1 192 

C ****  TEMPERATURE  ADVECTION  ****  SCOMP  I 193 

C ****  *♦•*  SCOMP 1 194 

C **************+************************.+***************.******  SCOMP 1 195 

C SCOMP 1 196 

00392  QF  LUX  1 = FLUX  1 * t T (I  , LND  , 1 , J ) A T ( I ( LND  , 1 , JP  U ) SCOMP 1 197 

00393  QFLUX2  = FLUX 2 * ( T (I  , LND ( 1 , J ) * T i I f LND , t „ JP 2 > > SCOMP T 1 98 

00394  T C I ,LNB,  1 ,JP2>  = T { I , LNB , 1 , JP2 } + QFLUX2  SCOMP 1 199 

00395  Tfl  , LNB,  1 , JP  1 ) = T ( I f LNB , 1 ,JP)  J + QFLUX1  SCOMP 1 200 

00396  r<I,LNB»1.d)  = TfI.LNB,1tJ>  - QFLUK1  - OF  LUX2  SCOMP r 201 

C SCOMP t 202 

c «*»«****  »***♦****.***„.**»»**  ****4,»******-,^ltr******fr*-1^  ***.*.**.**♦  SCOMP  1 203 

C**»*  **.*  SCOMP 1 204 

C -***  HUMIDITY  ADVECTION  * * * * SCOMP 1 205 


CO 


OF  POOR  ou, 


c ****  SCOMP 1 206 

C SCOMP  1 207 

c SCOMP 1 203 

00397  QFLUX1  = FLUX|*(SH(I, LND , I , J)  * SH  < I , LND , t ,JP1  M SCOMP T 209 

00393  OF  LUX  2 - F LUX 2 ‘ C SK ( I , LND . 1 , J > * SH < I , LND , T , JP 2 ) ) SCOMP T 210 

00399  IF  (SHU, LND,  1 , JLGT.O,  ) GO  TO  40  SCOMP  1 2 1 t 

00400  QFLUX1  = AWINH  OFLUM  , 0.  ) SCOMP  I 212 

00401  0FLUX2  “ AM I N 1 < QFLUX 2 . O . ) SCOMP 1 213 

00402  40  CONTINUE  SCOMP 1 2t4 

00403  IF  (SH( I , LND , 1 , JP 1 > , LE . 0 . ) QF  LUX  1 = AMA X 1 f QF LUX  1 . O . ) SCOMP 1 215 

00404  IF  (SHU  ,LND.  1 rdP2)  .LE.O.  ) QFLUX2  = AMA  X 1 < QF  L LTX  2 . 0 . ) SCOMP  1 216 

00405  SH ( I , LNS  * 1 « JP  2 ) = SH  < I r LNB  .1  , JP  2 } * QF  L UX2  SCOMP 1 217 

00406  SH r I t LNB , 1 , JP  II  - SH  ( I , LNB , 1 , JP 1)  * QFLUX I SCOMP 1 2 13 

00407  5Hf  I , LNB,  1 , d)  = SH  < I , LNB  , 1 , J ) - QFLUXI  - QFLUX  2 SCOMP 1 219 

C SCOMP 1 220 

C *************♦*■*****♦*•****♦*»***.**********.-*****  + ********.**..  SCOMP 1 221 

C *♦**  -***  SCOMP 1 222 

C ****  CONTINUITY  EQUATION  SC0MP1  223 

C * - * * ♦***  SCOMP I 224 

c - SCOMP  1 225 

C SCOMP  t 226 

00408  CONV ( I , L , KP2 ) = -PV2  SCOMP T 227 

00409  CONV  f I 4 L , KP 1 J “ CONV f I . L , KP 1 > SCOMP 1 228 

S + 8,*PVl  SCOMP 1 229 

00410  CONV i I , L, K)  = CONV ( I . L , K ) SCOMP 1 230 

5 - S.+PV1  + PV2  SCOMP I 231 

<a  -8*MPU1<n-PUI(l5in  + fPU2<  I ) -PU2<  IS2)  ) SCOMP  I 232 

00411  GO  TO  70  SCOMP 1 233 

C SCOMP 1 234 

c SCOMP  1 235 

C **•*  SCOMP 1 236 

C ♦***  NORTH  POLE  CORRECTION  SCOMP  1 237 

C * * * • NO  V WIND  ADVECTION  OVER  POLE  »•**  SCOMP 1 23S 

C ****  ****  SCOMP t 239 

c ****•»..**»**»»*<.  + + , fr*****,.,*****.,,******.****, *»»*«*„*•  ***-***  SCOMP  1 240 

C SCOMP 1 24  t 

00412  50  CONTINUE  SCOMP 1 242 

00413  CONV  < I , L * K ) = C0NV(I,L,K>  SCOMP 1 243 

6 - 8.  *PV(I  (L,K)  5COMP1  244 

a - ia,*(punn-puiusi»)  - f PU2f  n-pu2<is2iM  scomp  t 245 

C SCOMP 1 246 

c **'.  + ***•'***  + * + »*»*  + «’+  + ''»»*»+»»*****  + + •»**+***•*  + »*''*•*»*»*•  * + * » SCOMP  1 24  7 

C * * * * *•**  SCOMP 1 24S 

C ***+  HORIZONTAL  ADVECTION  NEAR  NORTH  POLE  - * * * SCOMP 1 249 

C ****  SCOMP 1 250 

C ♦•**M**..***^,*.*M^,.***i***..*Mt*..****.»**t********  W*  SCOMP  I 25  1 

C SCOMP  t 252 

00414  FLUKI  = H 1 D T*  PV 1 I ,L,K>  SCOMP 1 253 

C SCOMP 1 254 

C *******♦+***♦***********.*****.*********************„******♦.**  SCOMP  J 255 

C * * * * ****  SCOMP 1 256 

C ****  U WIND  ADVECTION  * SCOMP 1 257 

C *•’*'*’  ****  SCOMP  1 258 

C * SCOMP  1 259 

C SCOMP 1 260 

004  15  QFLUXI  = FLU  XI  * f U C t r LND  , 1 , JM ) * U (I  , LND , I . JNP M SCOMP I 26  1 

00416  Uf I . LNB . 1 , JM1  = U ( I . LNB , 1 . JM ) - QFLUXI  SCOMP 1 262 

C SCOMP 1 263 

C *****************************  ****** **.*+*♦•*»***♦*..******-*****•  SCOMP 1 264 

C + * + + SCOMP 1 265 

C * * * *■  V WIND  ADVECTION  -***  SCOMP  1 266 

C * + * + ***-  SCOMP I 267 

c ******  SCOMP  I 263 

C SCOMP 1 269 

00417  QFLUXI  = FLUX1*4V(I« LND , 1 , JM ) ♦ V < I , LND , t f JNP M SCOMP 1 270 

004  1 S VII,  LNB  , 1 . JM  I = VU  . LNB  , 1 „ JM  1 - QFLUXI  SCOMP  1 27  1 

C SCOMP 1 272 

c .,*»****  + •• ********* ****-«.•**»»**..**  + »»******  + *•»  + ****»»  + + .»*.*  SCOMP 1 273 

C ****  SCOMP 1 274 

C **+*  TEMPERATURE  ADVECTION  ****  SCOMP 1 275 
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00419 

00420 


00421 

00422 

00423 

00424 

00425 

00426 


00452 

00453 

00454 

00455 

00456 

00457 


C 

c 


QF  LUX  t = FLUK1*(T(I, LMD , 1 . dM ) * T ( I , L ND . 1 , dNP )) 

T < I , LNB  . 1 , dM)  = T( I , LNB , 1 ♦ dM ) “ QFLUX1 


HUMIDITY  ADVECTI ON 


C 

C 

C 

C 

c 

c 

c 


QFLUX1  = FLUX  1 * f SH  f I , LND  * 1 » dM  > * SH U , LND , 1 , dNP )) 

IF  <SH(I . LND, 1 t JM> .GT.O, } GO  TO  60 
QF  LUX  1 = AM AX  I l OF LUX  1*0.) 

60  CONTINUE 

IF  (SHd  , LND  , 1 ,JNP>  * LE  . 0 , } QFLUX1  = AMAX  1 ( QFLUX  1 ,0.  ) 
SH  C 1 « LNB , 1 , JM  > = SH  < I . LNB , 1 * JM ) - QFLUXi 


CORRECT  CONVERGENCE  AT  CENTER  BAND 


C 

c 

c 

c 

c 

c 
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COMPUTATION  OF  SIGMA  CHANGE  TN  TIME 


C 

C 


OFLUX  = K2DT*SDU  ,LaK)*(UU  'LND,  1 ,J)  + U { I , LP t ND  , T . d )) 
Uf I f LP1NB , t ,d)  = U( I fLP1NB, 1 ,d)  - QFLUX/ DSIG ( L P 1) 

U ( I f LNB  , 1 ,d)  = UfMNBJ.d)  4 QF  LUX /DSIGI  L ? 

QFLUX  = H2DT*SD< I ( L ) M V< I . LND,  1 , d)  * V(I ,LP1NDt 1 ,d) I 
VI  I .LP1NS , 1 4 d ) = Vil.LPJNB,  1,d)  - QFLUX/DSIGILP1 1 

Vtl.LNB.I.d)  = V f I , LNB , 1 , d)  + QFLUX /QSI G ( L > 
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SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOM° 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP t 
SCOMP  f 
SCOPAP  1 
SCOMP 1 
SCOMP 1 
SCOMP 1 291 
SCOMP 1 292 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP  T 
SCOMP  1 


277 

278 

279 

280 
2B1 
282 

283 

284 

285 

286 
287 
283 

289 

290 


293 

294 

295 

298 
297 
29S 

299 

300 


00427 

70 

CONTINUE 

SCOMP 1 

301 

00428 

CONVII.L.Kl  = CONV (I , L, K ) *D5IGIL ) 

SCOMP 1 

302 

00429 

IS2  = ISI 

SCOMP 1 

303 

00430 

1ST  - I 

SCOMP 1 

304 

0043  1 

I = IP1 

SCOMP 1 

305 

00432 

IP1  ~ IP2 

SCOMP 1 

306 

00433 

80 

CONTINUE 

SCOMP 1 

307 

00434 

90 

CONTINUE 

SCOMP 1 

30B 

SCOMP 1 309 
SCOMP 1 310 
SCOMP 1 3 T 1 
SCOMP 1 312 
SCOMP 1 313 
SCOMP T 314 
SCOMP f 315 


00435 

IF  Id.EQ. 1 > GO  TO  130 

SCOMP 1 

316 

00436 

DO  120  1=1 , IM 

SCOMP 1 

317 

00437 

PITfl.KI  = CONV1 I .NLAY.K) 

SCOMP 1 

318 

00438 

DO  100  L-1 , NLA YM 1 

SCOMP 1 

319 

00439 

PITdJO  = PXTfJ'K)  * CONVII.L.Kl 

SCOMP 1 

320 

00440 

100  CONTINUE 

SCOMP 1 

32  1 

0044  * 

PU.NB.d)  = Pd.NB.J)  * DT*PIT<  I ,K)/DXYP(d> 

SCOMP 1 

322 

00442 

SD 1 “ 0 * 

SCOMP 1 

323 

00443 

PK1  - EXPBYK(SIG<  1 > * P f I ,ND.d>+PTOP) 

SCOMP 1 

324 

00444 

DO  110  L-1 .NLAYMI 

SCOMP 1 

325 

00445 

LND  = L + NLAYND 

SCOMP 1 

326 

00446 

LNB  = L + NLAYNB 

SCOMP 1 

327 

00447 

LP  1 = L + 1 

SCOMP  t 

3 28 

00448 

LP1ND  = LP  t + NLAYND 

SCOMP  T 

329 

00449 

LP 1NB  = LP 1 + NLAYNB 

SCOMP 1 

330 

00450 

SDtI'L.K)  = SD  1 + CONVII.L.K)  - DSIG  (L)*PIT1I.K) 

SCOMP 1 

33  1 

0045  1 

C 

C 

SOI  = SD ( I . L , K 1 

SCOMP 1 
SCOMP 1 
**  SCOMP 1 

332 

333 

334 

SCOMP 1 
SCOMP 1 
SCOMP I 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
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00459 

00460 
0046  T 
00462 


00473 

00474 

00475 

00476 

00477 

00478 

00479 


C 

C 

C 

C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


VERTICAL  ADVECTION  OF  TEMPERATURE 
P * * KAPPA  COMPUTED  AT  CENTER  OF  LAVER 


PK2  * EXPBYH  < SlGtLP  I l-PU  , ND . J > * PTOP > 

QFLUX  = H2DT*SD  i I ,L,K  > * < TH  ,LND  ( T « tl ) /PK  t + T f I . LP  1 ND  , 1 f J ) / P K 2 > 
Til .LP1NB, 1 , J)  = Td.LPtNB, l,J]  - P K 2 + qF LUX / DS I G f LP 1> 

T ( I r LNB , 1 f d > = T < I v LNB  » 1 . d ) + PK 1 - QFLUX /DSI G < L 1 

PKt  = PK2 


VERTICAL  ADVECTION  OF  MOISTURE 

INVERSE  LINEAR  INTERPOLATION  OF  SPECIFIC  HUMIDITY 


00463 

SHLE  = 5H 1 I , LND  t 1 , d > * SH ' I , L P I ND . f « d ) 

IF  (SHLE.NE.O.I  SHLE  = 4 . »SH  1 I , LND  , 1,  * J 1 *5H  f I ,LP1  ND 

QFLUX  = H2DT  *SD  f I ,1  , K > * SHLE 

IF  fSM(  I , LND , 1 , J } . LE . 0 . ) QFLUX  = A MAX  J t QFLUX . O . ) 

IF  (SHM'LPIND.  I 'dKLE.O.  > QFLUX  - AM  I N t ( QFLUX  *0,1 
SHI  I ,LP1NB.  1 , J>  = SHf I . LP1N8,  1 , J)  - OF  LUX / DSIG ! L P O 
SH ( l , LNB  * 1 » J ) - SHI  I ,LNB . 1 ,J)  * QFLUX /DSI G f L ) 

00464 

00465 

00466 

00467 
0046Q 
00469 

00470 

1 10 

CONTINUE 

0047  T 
00472 

120 

CONTINUE 

IF  Cd.LT.dM)  RETURN 

C 

c 

c 

c 

c 

c 

c 

c 


130  CONTINUE 

M = 1 

IF  td.EQ.dM>  M = 2 
K = dCt  d£(M> ) 

P I T ( I , K } - 0. 

UP  1 = UP ( 1 tM) 

JP2  = dP  f 2.MI 


HORIZONTAL  ADVECTION  OF  MOMENTUM, 
TEMPERATURE.  AND  SPECIFIC  HUMIDITY 


* * « 
* *■  * 


00480 

00481 
004S2 

00483 

00484 

00485 

00486 
004S7 

004a  a 

00489 

00490 

00491 

00492 

00493 

00494 

00495 

00496 

00497 


DO  150  L- 1 , NLA  Y 
LND  = L + NLAYND 
P V 1 S s 0. 
pvuis  = O - 

PVV1S  = 0. 

PVTIS  = 0. 

PVHIS  = 0. 

PV2S  = O. 

PVU2S  = 0. 

PVV25  = 0, 

PVT2S  = 0. 

PVH2S  = 0. 


DO  140  1-1 , IM 

PV1  - P ( I * ND  , JP1  ) *V( I , LND  f 1 ,JP1  ) 

PV1S  = P V 1 S + PV1 

PVUIS  - PVUIS  * PVTM-  U( I . LND. 1 , dP  1 J *SlNLON( I > 

5 “ SGNP (M) *V ( I , LND , 1 v JP 1 ) +COSLON 111) 
PVV1S  * PVV1S  * PVTM  SGNP { Ml *U ( I t LND  , 1 , JP  T > * COS LON ( I ) 

6 - V(  I , LND  . T , dPH  *SINL0N(  I M 

PVT  1 S = PVT  1 5 + PV 1 * T t I , LND , 1 , JP1  ) 


5C0MP1  34S 
SCOMPt  349 
SCOMPT  350 
SCOMP 1 35 1 
SCOMPI  352 
SCOMPI  353 
SCOMPI  354 
SCOMPI  355 
SCOMPI  356 
SCOMPI  357 
SCOMPI  35S 
SCOMPI  359 
SCOMPI  350 
SCOMPT  361 
SCOMPT  362 
SCOMPI  363 
SCOMPI  364 
SCOMPI  365 
SCOMPI  366 
SCOMP!  367 
SCOMPI  3G8 
SCOMPI  359 
SCOMPI  370 
SCOMPI  37 t 
SCOMPI  372 
SCOMP!  373 
SCOMPI  374 
SCOMPt  375 
SCOMPT  376 
SCOMPI  377 
SCOMPT  378 
SCOMPI  379 
SCOMPI  380 
SCOMPI  3S1 
SCOMPI  382 
SCOMP 1 383 
SCOMPI  3B4 
SCOMPI  385 
SCOMPI  386 
SCOMPI  387 
SCOMPI  38 S 
SCOMPT  3S9 
SCOMP 1 390 
SCOMPI  39 t 
SCOMPI  392 
SCOMPI  393 
SCOMPI  394 
SCOMPI  395 
SCOMPI  396 
SCOMPI  397 
SCOMPI  398 
SCOMPI  399 
SCOMPT  400 
SCOMPI  40! 
SCOMPI  402 
SCOMPT  403 
SCOMPI  404 
SCOMPI  405 
SCOMPI  406 
SCOMPI  407 
SCOMPI  408 
SCOMPI  409 
SCOMP  t 4 10 
SCOMP 1 4 1 T 
SCOMPI  4 12 
SCOMP!  413 
SCOMPI  414 
SCOMPI  4 T 5 
SCOMPT  416 
SCOMPI  417 
SCOMPI  418 
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O049B 

0.0499 

00500 

00501 


00503 

00504 

00505 

00506 

00507 

00508 

00509 


005  10 
0051  1 
00512 


PVH15  = PVHJS  * PV  1 * 5H  f 1 . LND , 1 . JP  1 ) 
PV2  = P<  I »ND.dP2J»VU  ,LND(  1 ,JP2) 


005  19 

00520 

00521 

00522 

00523 

00524 

00525 
00525 
00527 


00520 

00529 

00530 

00531 

00532 


PV2S  = PV2S  + PV2 

PV/U25  = PVU25  * PV2  * < - U ( I t LND  . I , dP2 I * S I NLON  f f > 

S - SGNP (Ml  * V ( I , LND , 1 , dP2  > *COSLOM( t i > 

P W2S  = PW25  + PV2*  ( SGNPfM)*l/fI  ,LNO.  1 . JP2  > 'COSLOWU  > 

5 - VU  .LND.  1 tdP2)  *SINLON(  l ti 

PVT 25  = PVT2S  * P V2  * T ( I , LND , 1 , JP2 ) 

PVH2S  » PVH2S  * PV2  *5H ( I , LND , 1 . JP2  ) 

CONTINUE 

UP(L,NB,M)  = UP  f L , NB  , M 1 *■  SGNP  ( M J * ( CON  1 DT  * PVU  f 5 * CON2D  T * PVU25  > 
VP(L.NB.M)  = VP(L,NB,M>  * SGNP  f M ) * f CON  IDT  *PVV  1 S ■+  C0N2DT * P VV25 ) 


TP(L,NB.IVI>  = TPtL.NB.M)  * 
SHP ( L , NS  r M ) = SHP f L t NB , M ) 


SGNP  * M 1 * f CON IDT*PVT15  * CCN2D T * P V T2S > 

* SGNP (M  1 * f CON  IDT  *PVH I 5 * CON2DT * PVH2S i 


CONTINUITY  EQUATION 


CONVtf.L.tO  = SGNP 1M) • (CONI *PV IS  ’ 
PITM.KI  - PJTM.K)  * CONVI  M,K) 
CONTINUE 


CON2*  PV2S  > *DSI G < L > 


COMPUTATION  OF  SIGMA  CHANGE  IN  TIME 


00513 

SOI  =0. 

005  14 

00515 

SD  < 1 i L , K ) 

005  16 

SD 1 = SD< 

00517 

160 

005  IS 

PP (NB .Ml 

00  160  1=1 , NLAYM 1 
- 501  * CQNV ( 1 «L,K1 

1 ,L,K) 

CONTINUE 


DSIG( L 1 *PI T ( 1 ,K) 


VERTICAL  ADVECT I ON  OF  MOMENTUM 


PK1  = EJCPBYKCSiat  U*PP(ND,M»*PTQP1 
00  170  L=t.NLAYMt 
LP  1 e L + 1 

OF  LUX  = H2DT  *SD ( 1 , L f K ) * (Up(L, ND , M ) * UP ( LP 1 . NO , M ) ) 
UP ( LP  t ♦ NB  * M J = UP  < LP 1 , NB  » M 1 - QFLUK/DSIG<  LP 1) 
UPfL.NB.M1  s UPCL.NB.MI  * QFLUX/DSIG(U 
QF  LUX  - H2DT  *S0  f I ,1 kK) f{VPfL,ND,M}  * VP<LP!,ND.MM 
VP(LP1,NB,M?  = VP(LP I .NB.MJ  - QFLUX /DS I G ( L P 11 
VP { L , N0 , Mi  = VP(L?NB.M1  * QF LUX /OS TG ( L J 


VERTICAL  ADVECT! ON  OF  TEMPERATURE 


PK2  = EXPSYK(SIG(LP1 > - PP ( NO . M MP TOP ) 

QFLUX  = H2DT+SD(  1 , L . K > * < TP ( L , NO , M ) / PK t ♦ TP f LP 1 . ND . M J /P K2 * 
TP ( LP 1 r NB  tM ) = TP ( LP 1 , NB , M 1 - PK2 *QFLUX/DS IG ( LP 1) 

TP  ( L r NB  . M J - TP(L,NSfMJ  * PK  1 + QFLUX/OSI G f L ) 

PK1  = PK2 


■ + + * + < 


VERTICAL  ADVECT I ON  OF  MOISTURE  AT  THE  POLES 
INVERSE  LINEAR  INTERPOLAT ION  OF  SPECIFIC  HUMIDITY 
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SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP  f 
SCOMP 1 
SCOMP  T 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP  T 
SCDMP 1 
SCOMP 1 
SCOMP  f 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
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SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP  t 
SCOMP 1 
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SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP  t 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP  t 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP 1 
SCOMP  t 
SCOMP I 


•2 

L Vu 


COMPl  12 


00533 

00534 

00535 

00536 

00537 

00538 

00539 

00540 

00541 

00542 


SHLE  = SHP1L,N0,M)  + SHP ( LP  1 ,N0,M1 

IF  < SHLE . NE  , 0 . } SHLE  = 4 . *SHP ( L « ND , M) -SHP ( LP 1 , ND , M > / SHLE 
QF  LUX  = H2DT*SDI 1 ,LtK>*SHLE 

IF  rSHPll,ND,M)  .LH.O,  > OF  LUX  = AMA X U QF LUX , 0 , > 

IF  (SHPILP1  ,ND.M)  .LE . O 1 ) QF  LUX  = AMIN  1 { QF  LUX ,0,  ) 

5HP  ILP1  ,NB,M)  = SHP  4 LP  1 , NB  . Hit)  - QFLU  X/DSIG(LPt  > 
SHPfL.NB.M)  = SHP<LfNB,Ml  * OF LU X /OSI G < L ) 

170  CONTINUE 

RETURN 

END 
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SCOMP 1 500 
SCOMP 1 501 


STATEMENT  LABEL  MAP 
- -LABEL DEFINED REFERENCES 


10 

363 

360 

100 

440 

438 

10000 

314 

1 1 0 

470 

444 

1 20 

47  1 

436 

130 

473 

435 

1 40 

505 

492 

150 

512 

480 

ISO 

5 17 

5 14 

170 

540 

520 

20 

37  1 

337 

30 

376 

370 

40 

402 

399 

aO 

412 

369 

60 

424 

422 

70 

427 

41  1 

BO 

433 

336 

90 

434 

322 

o o 

T1  £5 

-Q  S 
O g 

73  r** 


iO  *73 

c > 

> $3 

r*  ra 

3, 


VARIABLE  MAP 


-NAME 

BLOCK 

---TYPE 

--CLASS 

ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

ADLDP 

RDPARM 

REAL 

SIMPLE 

ALBEDO 

QANDQT 

REAL 

ARRAY 

APHEL 

RCNTRL 

REAL 

SIMPLE 

atime 

CCNTRL 

CHAR*8 

SIMPLE 

BETA 

RCNTRL 

REAL 

SIMPLE 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

CC 

CCNTRL 

CHAR  * B 

ARRAY 

cco 

CCNTRL 

CHARTS 

SIMPLE 

CCNTRL 

REAL 

UNKNOWN 

CCSP06 

CCNTRL 

CHAR  *8 

SIMPLE 

CCSP07 

CCNTRL 

CHARTS 

SIMPLE 

CCSP08 

CCNTRL 

CHAR  *8 

SIMPLE 

COMP  1 

SUBROUTINE 

CONI 

RDPARM 

REAL 

SIMPLE 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

CON2 

RDPARM 

real 

SIMPLE 

CON2DT 

RDPARM 

REAL 

SIMPLE 

COM3 

RDPARM 

real 

SIMPLE 

CON3DT 

RDPARM 

REAL 

SIMPLE 

C0N4 

RDPARM 

REAL 

SIMPLE 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

CON5 

RDPARM 

REAL 

SIMPLE 

CONV 

OMSAVE 

real 

ARRAY  ’ 

COSD 

RCNTRL 

REAL 

SIMPLE 

COSL 

RDPARM 

REAL 

ARRAY 

COSLON 

RDPARM 

REAL 

ARRAY 

CP 

RCNTRL 

REAL 

SIMPLE 

CPD2 

RDPARM 

REAL 

SIMPLE 

CQS 

CCNTRL 

REAL 

ARRAY 

CQU 

CCNTRL 

REAL 

ARRAY 
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ITAPE 
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JC 

JE 
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JM 
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JMT2 
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JP 
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KLISST 
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ICNTRL 

INTEGER 

UNKNOWN 

B6 

IDPARM 

INTEGER 

ARRAY 

189 

ICNTRL 

INTEGER 

SIMPLE 

26 

ICNTRL 

INTEGER 

SIMPLE 

27 

ICNTRL 

integer 

SIMPLE 

28 

IDPARM 

INTEGER 

ARRAY 

191 

ICNTRL 

INTEGER 

UNKNOWN 

37 

INTEGER 

SIMPLE 

328/ S 
350 

INTEGER 

SIMPLE 

336/C 

ICNTRL 

INTEGER 

UNKNOWN 

79 

ICNTRL 

INTEGER 

UNKNOWN 

80 

ICNTRL 

INTEGER 

arrav 

75 

ICNTRL 

INTEGER 

ARRAY 

76 

ICNTRL 

INTEGER 

UNKNOWN 

85 

ICNTRL 

INTEGER 

UNKNOWN 

89 

ICNTRL 

INTEGER 

unknown 

a4 

IDPARM 

integer 

SIMPLE 

192 

INTEGER 

SIFAPLE 

326/S 

344 

358 

INTEGER 

SIMPLE 

328  /S 

LDPARM 

LOGICAL 

SIMPLE 

20  1 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ICNTRL 

INTEGER 

UNKNOWN 

77 

INTEGER 

SIMPLE 

1 

331 

344 

349 

355 

364 

374 

396 

443 

457 

464 

IDPARM 

INTEGER 

ARRAY 

193 

IDPARM 

INTEGER 

ARRAY 
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CCNTRL 

CHAR  *8 

SIMPLE 

5 

ICNTRL 

INTEGER 

SIMPLE 

30 
42  1 

ICNTRL 

INTEGER 

SIMPLE 

31 

ICNTRL 

INTEGER 

SIMPLE 

32 

ICNTRL 

INTEGER 

SIMPLE 

33 

ICNTRL 

INTEGER 

SIMPLE 

34 

ICNTRL 

INTEGER 

SIMPLE 

35 

CCNTRL 

CHAR*8 

SIMPLE 

6 

IDPARM 

INTEGER 

array 

195 

INTEGER 

SIMPLE 

317/S 

392 

495 

integer 

SIMPLE 

3 tS/S 
393 
50  t 

TCNTRL 

integer 

SIMPLE 

36 

integer 

SIMPLE 

319/S 
428 
45  i 
515 

ICNTRL 

INTEGER 

SIMPLE 

37 

ICNTRL 

INTEGER 

SIMPLE 

30 

ICNTRL 

INTEGER 

SIMPLE 

39 

INTEGER 

simple 

320/S 

INTEGER 

SIMPLE 

32  1 /S 

ICNTRL 

integer 

SIMPLE 

40 

IDPARM 

INTEGER 

SIMPLE 

196 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

INTEGER 

SIMPLE 

322/C 
379 
4 28 

325 

326 

327 

323 

336 

332 

332 

332 

335 

339 

354 

355 

355 

359 

365 

338 

338 

330 

340 

432 

77 

70 

79 

ao 

81 

87 

88 

89 
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334 
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347 
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348 

349 
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359 

360 

368 
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333 
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204 

317 
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4 68 
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3 19 

320 
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476 

IS 

369 

4 1 S 

4 16 

4 16 

4 17 

422 

426 

426 

472 

475 

415 

4 17 
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42  1 

425 

19 

478 

320 

479 
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403 
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377 

377 

377 
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404 
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502 
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504 

373 
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379 

4 10 

42S 

437 

437 

439 

439 
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455 

459 

465 

476/S 

5 15 

5 15 

5 T6 

5 T 8 

522 

372 

375 
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409 

409 

377 

379 

408 

323 
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372 

373 

374 

408 

409 

409 
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410 

42B 

438/C 

439 

444/C 

445 
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34S 

349 
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432/S 
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S3 

84 

35 

as 
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451 

452 
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507 
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509 
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5 14/C 
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524 

524 

524 

5 25 

525 

527 

527 

527 

529 

529 

531 

531 

531 

533 

534 

535 

536 

539 

539 

539 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

1 44 

LCNTRL 

INTEGER 
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32 

93 

94 

95 

96 

97 

9S 

99 

100 

101 

102 

t 03 

104 

LDIABAT 

lcntrl 

LOGICAL 

UNKNOWN 

1 1 6 

14  1 

LDPARM 

INTEGER 

UNKNOWN 

200 

20  1 

202 

leflux 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

135 

LFUSION 

LCNTRL 

logical 

UNKNOWN 

1 1 t 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

L 1 CLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

114 

139 

LNB 

INTEGER 

SIMPLE 

324/S 

345 

345 

346 

346 

347 

347 

35  0 

350 

35  t 

35  1 

352 

352 

355 

355 

356 

356 

357 

357 

366 

366 

367 

367 

368 

368 

3S4 

334 

3B5 

385 
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3SS 

389 

389 

390 

390 

39  1 

39  1 

394 

394 

395 

395 

395 

396 

405 

405 

406 

406 

407 

407 

416 

416 

4 IS 

4 18 

420 

420 

426 

4 26 

446/S 

454 

454 

457 

457 

461 

46  1 

459 

469 

L ND 

INTEGER 

SIMPLE 

323/S 

329 

330 

33  1 

332 

338 

343 
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348 

34B 

349 

349 

353 

353 

354 

354 

358 

358 

359 
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377 
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338 

388 

392 
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397 

398 

398 
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403 

404 

415 

4 15 

417 

417 

4 19 

419 

421 

421 

422 

425 

445/S 

452 

455 

459 

463 

464 

466 

4S  1 / S 

493 

495 

495 

496 

496 

497 

498 

499 

501 

50  1 

502 

502 

503 

504 

LOGS  R 

ICNTRL 

integer 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

115 

140 

Lpt 

INTEGER 

SIMPLE 

447/S 

44  8 

449 

453 

456 

458 

460 

468 

521/5 

522 

523 

523 

523 

525 

526 

526 

526 

528 

529 

530 

530 

530 

533 

534 

537 

538 

538 

538 

LpTNB 

INTEGER 

SIMPLE 

449/S 

453 

453 

456 

456 

460 

460 

468 

468 

LP  1ND 

INTEGER 

SIMPLE 

448/S 

452 

455 

459 

463 

464 

467 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 QS 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

1 03 

1 no 

1 05 

106 

1 07 

toa 

1 09 

1 10 

1 1 1 

1 1 2 

1 13 

1 14 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

1 AO 

104 

t 15 

1 16 

1 1 7 

1 29 

LPAOLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

138 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

117 

142 

LRADSWG 

LCNTRL 

LOGICAL 

unknown 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

M 

INTEGER 

SIMPLE 

474/S 

475/S 

476 

470 

479 

495 

496 

50  t 

502 

506 

506 

506 

507 

507 

507 

508 

508 

50Q 

509 

509 

509 

5 10 

5 18 

513 

519 

522 

522 

523 

523 

524 

524 

525 

525 

526 

526 

527 

527 

5 28 

529 

529 

530 

530 

531 

53  1 

533 

533 

534 

534 

536 

537 

538 

538 

539 

539 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MJ 

1 DPARM 

INTEGER 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MROO 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

NB 

ICNTRL 

INTEGER 

SIMPLE 

50 

316 

44  1 

44  1 

506 

506 

507 

507 

508 

508 

509 

509 

5 18 

518 

523 

523 

524 

524 

526 

525 

527 

527 

530 

530 

531 

531 

538 

538 

539 

539 

ND 

ICNTRL 

INTEGER 

SIMPLE 

51 

3 15 

329 

330 

33  1 

332 

338 

374 

375 

377 

443 

458 

493 

499 

5 t 9 

522 

522 

525 

525 

528 

529 

529 

533 

533 

534 

534 

536 

537 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

S3 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NQPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

MDRSW 

ICNTRL 

INTEGER 

SIMPLE 
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NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NOT 

icntrl 

INTEGER 

SIMPLE 

57 

NHMS  * 

ICNTRL 

INTEGER 

SIMPLE 

58 

NHMSO 

ICNTRL 

integer 

SIMPLE 

60 

NHMS1 

I DP ARM 

INTEGER 

SIMPLE 

1 98 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLAY 

TCNTRL 

INTEGER 

SIMPLE 

61 

315 

316 

322 

437 

480 

NLA YM 1 

ICNTRL 

INTEGER 

SIMPLE 

62 

438 

444 

5 14 

520 

nlayns 

INTEGER 

SIMPLE 

3 1 6/S 

324 

446 

449 

NLAYND 

INTEGER 

SIMPLE 

315/S 

323 

445 

448 

48  1 

nlayp 1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

integer 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

icntrl 

INTEGER 

SIMPLE 

69 

NYMDO 

ICNTRL 

integer 

SIMPLE 

71 

NYMDt 

I DP ARM 

INTEGER 

SIMPLE 

199 

NYMDE 

icntrl 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

QANDQT 

REAL 

ARRAY 

284 

293 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

16  1 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

329 

330 

331 

332 

328 

374 

375 

44  1 

443 

458 

493 

499 

PHI 

QANDq  T 

REAL 

ARRAY 

283 

292 

PHIW1 

QM5AVE 

REAL 

ARRAY 

308 

PHI  P 

QPOLES 

REAL 

ARRAY 

302 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  f BO 

RCNTRL 

REAL 

SIMPLE 

163 

P I 2 

RCNTRL 

REAL 

SIMPLE 

164 

PI MEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PIT 

OMSAVE 

REAL 

ARRAY 

310 

437/S 

439/S 

439 

44  1 

450 

477/5 

5 1 I /S 

5 1 1 

PK  t 

REAL 

SIMPLE 

443/S 

459 

46  1 

462/S 

5 19/5 

529 

531 

532/S 

PK2 

REAL 

SIMPLE 

45B/S 

459 

460 

4 6 2 

528 / S 

529 

530 

532 

PKSTD 

RDP ARM 

REAL 

SIMPLE 

227 

PK  TOP 

RDPARM 

REAL 

SIMPLE 

228 

PLEVS 

RCNTRL 

REAL 

ARRAY 

180 

PM 

QMSAVE 

REAL 

ARRAY 

303 

PP 

QPOLES 

REAL 

ARRAY 

297 

5 18/S 

5 18 

5 19 

52B 

PREACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PRECON 

QANDQT 

REAL 

array 

253 

27  1 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMXW 

RCNTRL 

REAL 

SIMPLE 

168 

PSTD 

RCNTRL 

REAL 

SIMPLE 

165 

PTQP 

RCNTRL 

REAL 

SIMPLE 

169 

443 

458 

519 

5 2 B 

PU 

// 

REAL 

ARRAY 

313 

329/S 

330/S 

331  /S 

332/S 

333 

333 

334 

334 

338/5 

339 

339 

340 

340 

PU  i 

// 
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ARRAY 

313 

334/S 
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34  t 

4 1 0 

4 10 

413 

413 

PU2 

// 

REAL 

ARRAY 

313 

333/5 

335/S 

340/S 

342 

4 10 

410 

413 

4 1 3 

PV 

QMSAVE 

REAL 

ARRAY 

309 

374/S 

375/S 

377/S 

378 

378 

379 

379 

4 1 3 

PV1 

REAL 

SIMPLE 

378/S 

380 

409 

4 10 

493/S 

494 

495 

496 

497 

PV  1 s 

REAL 

SIMPLE 

4B2/S 

494/S 

494 

5 10 

PV2 

REAL 

SIMPLE 

379/S 

38  1 

408 

4 10 

499/S 

500 

501 

502 

503 

PV2S 

REAL 

SIMPLE 

487/S 

500/S 

500 

5 10 

PVH1S 

REAL 

SIMPLE 

486/S 

498/5 

498 

509 

PVH2S 

REAL 

SIMPLE 

491/5 

504/S 

504 

509 

PVT  IS 

REAL 

SIMPLE 

485/S 

497/S 

497 

SOS 

PVT2S 

REAL 

SIMPLE 

490/S 

503/S 

503 

5 08 

PVU1S 

REAL 

SIMPLE 

483/S 

495/S 

495 

506 

PVU2S 

REAL 

SIMPLE 

488/S 

501/5 

50  1 

506 

PVV1S 

REAL 

SIMPLE 

484/S 

496/5 

496 

507 

PVV2S 

REAL 

SIMPLE 

489/S 

502/S 

502 

507 

P2ERD 

HCNTRL 

REAL 

SIMPLE 

186 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 is 

QANDQT 

REAL 

UNKNOWN 

241 

278 

QBEG 

LCNTRL 

LOGICAL 

simple 

94 

1 19 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

QENO 

LCNTRL 

LOGICAL 

SIMPLE 

96 

12  1 

377 


515 


335 

414 

498 

504 


441 


518 


335 


n 

o 

2 
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QFLUX 

REAL 

SIMPLE 

452/S 

453 

466 

467/S 

529/S 

530 

qFLUXi 

REAL 

SIMPLE 

343/S 

346 

361 

364/S 

392/S 

395 

4 t 6 

417/S 

QFLUX  2 

REAL 

SIMPLE 

344/S 

345 

362 

365/S 

393/S 

394 

QMSAVE 

REAL 

UNKNOWN 

303 

304 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

QPHY 

lcn-trl 

LOGICAL 

SIMPLE 

98 

123 

QPOLE5 

REAL 

UNKNOWN 

297 

298 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

102 

127 

QR5W 

LCNTRL 

LOGICAL 

SIMPLE 

101 

126 

QS 

QANDQT 

REAL 

ARRAY 

24  1 

260 

270 

27  1 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

t 24 

QU 

QANDQT 

REAL 

ARRAY 

27  B 

288 

RACE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

REAL 

ARRAY 

2S7 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

258 

276 

RADSW 

QANDQT 

REAL 

ARRAY 

286 

295 

RADSWG 

QANDQT 

REAL 

array 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 

107 

IBB 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

RCNTRL 

REAL 

UNKNOWN 

145 

146 

156 

157 

167 

168 

1 7g 

179 

RDPARM 

REAL 

UNKNOWN 

206 

207 

217 

218 

228 

229 

239 

240 

KGAS 

RCNTRL 

REAL 

SIMPLE 

171 

RLAT 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

ROGP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

231 

ROCPPt 

RDPARM 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

173 

SD 

QMSAVE 

REAL 

ARRAY 

31  1 

450/S 

529 

535 

SOI 

REAL 

SIMPLE 

442/S 

450 

SDAY 

RCNTRL 

real 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

495 

SH 

QANDQT 

REAL 

ARRAY 

202 

291 

367/S 

367 

405/S 

405 

426 

463 

490 

504 

SHLE 

REAL 

SIMPLE 

463/S 

464 

SHM 

QMSAVE 

REAL 

ARRAY 

307 

SHP 

QPOLES 

REAL 

ARRAY 

301 

509'S 

539/S 

539 

SHS 

QANDQT 

REAL 

ARRAY 

24S 

266 

SIG 

RDPARM 

REAL 

ARRAY 

240 

443 

S IGF 

RCNTRL 

real 

ARRAY 

176 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

SINL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

real 

ARRAY 

235 

495 

SWTH 

QANDQT 

REAL 

ARRAY 

243 

261 

5N2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

100 

125 

SOLS 

RCNTRL 

REAL 

SIMPLE 

17B 

START 

LDP ARM 

LOGICAL 

SIMPLE 

202 

205 

T 

QANDQT 

REAL 

ARRAY 

28  1 

290 

357 

392 

419 

419 

454 

455/5 

456 

457 

459/S 

460 

461 

465/S 

466  M 

4G7 

468 

469 

522/S 

523 

524 

525/S 

528 

527 

531 

535/S 

536/S 

536 

537/S 

537 

538 

539 

347 

340/5 

35  1 

352 

353/S 

356 

357 

358/S 

361 

364 

367 

36S 

302/ 5 

385 

386 

3B7  /S 

390 

391 

396 

397/S 

400/S 

400 

403/S 

403 

406 

407 

415 

418 

419/S 

420 

421  /S 

423/S 

423 

42S/S 

425 

426 

347 

349/S 

350 

352 

354/S 

355 

357 

359/S 

362 

365 

366 

36B 

3S3/S 

334 

386 

388/ S 

389 

391 

396 

398/S 

40  1 /S 

401 

404/S 

404 

405 

407 

305 

306 

307 

308 

309 

310 

31  1 

312 

299 

300 

301 

302 

261 

262 

263 

264 

265 

266 

267 

268 

269 

272 

273 

274 

275 

276 

277 

289 

290 

291 

292 

293 

294 

295 

296 

188 

147 

148 

149 

ISO 

15  1 

152 

153 

154 

155 

158 

159 

160 

161 

162 

163 

164 

165 

166 

169 

170 

171 

172 

173 

174 

175 

176 

177 

180 

TS  1 

102 
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184 
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208 
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21  1 

212 
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2 T 4 

215 
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219 

220 

221 

222 

223 

224 

2 25 

226 

227 

230 

231 

232 

233 

234 

235 

236 

237 

238 

45  1 

452 

455 

459 

465 

5T5/S 

5 16 

522 

525 

451/S 

5 13/S 

515 

5 16/S 

496 

50  1 

502 

506 

507 

508 

509 

510 

358 

350 

359 

359 

360 

364 

365 

366/S 

366 

36Q/S 

360 

397 

397 

398 

398 

399 

403 

404 

406/S 

406 

407/S 

407 

421 

421 

422 

425 

426 

463 

464 

464 

466 

467 

4o3/S 

468 

469/S 

469 

464/S 

464 

465 

533/S 

534 

534/S 

534 

535 

509 

533 

533 

534 

534 

536 

537 

538/S 

538 

458 

5 19 

52S 

496 

50  1 

502 

353 

353 

354 

354 

355/S 

355 

356'S 

356 

357 

392 

393 

393 
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395 
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420/S 

420 

459 

459 

460/S 
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TERMT 

QMSAVE 

REAL 

ARRAY 

312 

TERMW 

QMSAVE 

REAL 

ARRAY 

312 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

TH5TP  2 

RDPARM 

REAL 

SIMPLE 

237 

TM 

QMSAVE 

REAL 

ARRAY 

306 

TMA  X 

QANDQT 

REAL 

ARRAY 

25  1 

269 

TWIN 

QANDQT 

REAL 

ARRAY 

250 

268 

TP 

QPOLES 

REAL 

ARRAY 

300 

508/S 

SOS 

529 

523 

530/S 

530 

531  /S 

531 

TS 

QANDQT 

REAL 

ARRAY 

247 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

173 

U 

QANDQT 

REAL 

ARRAY 

279 

268 

323 

330 

□ 31 

332 

338 

343 

343 

344 

344 

345/S 

345 

346/S 

346 

347/S 

347 

3B2 

382 

333 

333 

3B4 

3S4 

385/S 

385 

386/S 

386 

415 

415 

416/S 

416 

452 

452 

453/5 

453 

454/S 

454 

495 

496 

501 

502 

UM 

QMSAVE 

REAL 

ARRAY 

304 

UP 

QPOLES 

REAL 

ARRAY 

238 

506/S 

506 

522 

522 

523/S 

523 

524/S 

524 

V 

QANDQT 

REAL 

ARRAY 

280 

2SS 

348 

348 

349 

349 

350/S 

350 

35  1 /S 

351 

352 

352 

374 

375 

377 

387 

387 

388 

388 

339  S 

389 

390 

390 

331  /S 

391 

4 17 

417 

4 18/S 

418 

455 

455 

456/S 

456 

457/S 

457 

493 

495 

496 

499 

501 

502 

VER 

CCNTRL 

CHARTS 

SIMPLE 

10 

23 

VM 

OMSAVE 

REAL 

ARRAY 

305 

VP 

QPOLES 

REAL 

ARRAY 

293 

507/S 

507 

525 

525 

526/S 

526 

527/S 

527 

WSAVE 

RDPARM 

REAL 

ARRAY 

238 

X LABEL 

CCNTRL 

CHAR  *8 

ARRAY 

1 T 
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NAME 

---TYPE 

CLASS 

REFERENCES 

D=STMT  FN 

DEF  , A 

=ARGL I ST 

AMAX  J 

REAL 

INTRINSIC 

364 

365  403 

4 04 

423 

425 

466 

536 

AMIN! 

REAL 

INTRINSIC 

36  1 

362  400 

40  1 

467 

537 

EXPBYK 

REAL 

FUNCTION 

443 

458  519 

528 
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n ra 


C0MP1  19 


r V 


ft - 


0000  1 

SUBROUTINE  COMP2  <J> 

SC0MP2 

2 

C * 

• SLUMP  Z 

3 

c 

PURPOSE 

SCOMP2 

4 

c 

integrate  the  differential  fields  in 

THE  CORIOLIS 

EQUATION , 

SC0MP2 

5 

c 

THE  THERMODYNAMICS  EQUATION,  AND  THE 
EQUATION  TO  PREDICT  THE  BASE  FIELDS 

PRESSURE 

GRADI ANT 

5C0MP2 

6 

f 

c 

ONE  TIME 

STEP 

FORWARD , 

SCOMP2 

7 

A 

c 

FOR  BAND  J fOR  IF  d = JM . FOR  BANDS  J 

AND  J'l K 

SCO  PAP  2 

8 

i 

c 

CALLED  BY  CGMPO  ONLY 

SCOMP 2 

9 

c 

SCOMP2 

10 

c 

usage 

SCOMP 2 

1 1 

c 

SCOMP 2 

12 

c 

arguments  description 

SCOMP 2 

13 

c 

J LATITUDE  HAND  NUMBER 

SCOMP 2 

14 

f 

c 

SCOMP 2 

15 

i 

c 

SUBPROGRAMS  NEEDED 

SCOMP 2 

16 

c 

name  description 

SCOMP 2 

17 

i 

c 

NONE 

SCOMP 2 

18 

i 

c 

SCOMP 2 

19 

i 

c 

RECORD  OF  MODIFICATIONS 

SCOMP2 

20 

j.. 

c 

BASED  ON  OLD  VERSION  3. 

SCOMP 2 

2 1 

7 

c 

SCOMP 2 

22 

c 

?DATE?  ^PROGRAMMER?  ^DESCRIPTION 

OF  MODIFICATIONS? 

SCOMP 2 

23 

; 

c 

04/28/83  RAMESH  THIS  PART  AND  COMMENTS 

SCOMP 2 

24 

j:. 

c 

SCOMP 2 

25 

c 

REMARKS: 

SCOMP 2 

26 

c 

i n -/machine  dependent  features,  references. 

ERROR  RETURNS,  ETC 

? SCOMP 2 

27 

c 

SCOMP 2 

23 

A? 

c* 

M/A-COM  SIGMA  DATA  I 

N C . N 

A S 

A - G S F C 

• SCOMP 2 

30 

L 

* SLUMP  2. 

3 1 

c 

SCNTRL 

2 

• 

c 

c 

CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

3 

4 

00002 

COMMON  /CCNI'RL/  CCO 

SCNTRL 

5 

00003 

COMMON  /CCNTRL / ADATE 

SCNTRL 

6 

00004 

COMMON  /CCNTRL/  ATIME 

SCNTRL 

7 

oooos 

COMMON  /CCNTRL/  die 

SCNTRL 

8 

i * 

00006 

COMMON  /CCNTRL/  JOB 

SCNTRL 

9 

• > 

U 

00007 

COMMON  /CCNTRL/  CC5P06 

SCNTRL 

to 

OOOOS 

COMMON  /CCNTRL/  CC5P07 

SCNTRL 

1 1 

00009 

COMMON  /CCNTRL/  CCSPOS 

SCNTRL 

12 

I 

1 

* .1 

000  10 

COMMON  /CCNTRL/  VER 

SCNTRL 

13 

000  T 1 

COMMON  /CCNTRL/  X LABEL  MO) 

SCNTRL 

14 

000  1 2 

COMMON  /CCNTRL/  COS  (30) 

SCNTRL 

15 

U' 

000  13 

COMMON  /CCNTRL/  CQU  (10) 

SCNTRL 

16 

4 * 

c 

SCNTRL 

17 

5 

00014 

EQUIVALENCE  (CCO.CCt 1 ) > 

SCNTRL 

18 

3 1 

00015 

CHARACTER'S  CCO,  CCI200) 

SCNTRL 

IS 

111 

ooo  ts 

CHARACTER'S  ADATE 

SCNTRL 

20 

| V 

000  17 

CHARACTER'S  ATIME 

SCNTRL 

21 

000  18 

CHARACTER'S  JIC 

SCNTRL 

22 

3 

000  19 

CHARACTER'S  JOB 

SCNTRL 

23 

l * 

00020 

CHARACTER'S  CCSP06 

SCNTRL 

24 

I i 

i ' 

0002  1 

CHARACTER'S  CCSP07 

SCNTRL 

25 

00022 

CHARACTER'S  CCSPOH 

SCNTRL 

26 

i • 

00023 

CHARACTER  *8  VER 

SCNTRL 

27 

[ ; 

00024 

CHARACTER'S  XLABEL 

SCNTRL 

28 

j |.  ! 

c 

SCNTRL 

29 

c 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORv  RECORD 

SCNTRL 

30 

f 

c 

SCNTRL 

31 

00025 

COMMON  /ICNTRL/  ICO 

SCNTRL 

32 

l 

00025 

COMMON  /ICNTRL/  IM 

SCNTRL 

33 

V 

00027 

COMMON  /ICNTRL/  IMD2 

SCNTRL 

34 

00  028 

COMMON  /ICNTRL/  rMD2P 1 

SCNTRL 

35 

j { 

00029 

COMMON  /ICNTRL/  NDRSW 

SCNTRL 

36 

l 

00030 

COMMON  /ICNTRL/  JM 

SCNTRL 

37 

\ 

0003  1 

COMMON  /ICNTRL/  JMD2 

SCNTRL 

38 

00032 

COMMON  /ICNTRL/  JMT2 

SCNTRL 

39 

f \ 

00033 

COMMON  /ICNTRL/  JNP 

SCNTRL 

40 

! : : 
!j  f- 

00034 

COMMON  /ICNTRL/  J04 

SCNTRL 

41 

00035 

COMMON  /ICNTRL/  JOB 

SCNTRL 

42 

i i 
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o 

s: 

T? 
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00036 

00037 

00038 

00039 

00040 

0004  1 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

0005  1 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
0006T 
00062 

00063 

00064 

00065 

00066 
00067 
00063 

00069 

00070 

0007  1 

00072 

00073 

00074 

00075 

00076 

00077 

00078 
00073 
00080 

0008  1 
00082 
00083 
000S4 
000B5 
00086 

00087 

00088 
00039 

00090 
0009  1 


00092 
0 0093 

00094 

00095 

00096 

00097 
0009S 
00099 
00  1 00 


COMMON  /ICNTRL/  JSP 
COMMON  /ICNTRL/  KLIALB 
COMMON  / ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLISST 
COMMON  /ICNTRL/  KS 
COMPTON  /ICNTRL/  KU 
COMMON  /ICNTRL/  LOGSR 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  PAAT5NX 
COMMON  /ICNTRL/  MAT5UN 
COMMON  /ICNTRL/  MLF  M2> 
COMMON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  MSPVf 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  NO 
COMMON  /ICNTRL/  NOALT 
COMMON  /ICNTRL/  NDAV 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NOT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHM5E 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA  Y 
COMMON  /ICNTRL/  NL A YM 1 
COMMON  /ICNTRL/  NLA  YP 1 
COMMON  /ICNTRL/  NSDAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  ICSP55 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZlNlT 
COMMON  /ICNTRL/  NP/5LEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  <30) 
COMPTON  /ICNTRL/  Mi J MO) 


EQUIVALENCE 

{ I TWIN 

. IQS< 

1 It 

EQUIVALENCE 

f I TMA  X 

, I QS  ( 

2 ) } 

EQUIVALENCE 

t I PRE ACC 

, IQS< 

3)  ) 

EQUIVALENCE 

( I PRECON 

♦ IQS< 

4)  > 

EQUIVALENCE 

(1HFLUK 

, IQS< 

5)  ) 

EQUIVALENCE 

( I EF  LUX 

• IQ5< 

G)  > 

EQUIVALENCE 

( I FUSION 

, I QS  < 

7)) 

EQUIVALENCE 

(IRADSWG 

, IQSI 

8)  > 

EQUIVALENCE 

(IRADLWG 

, 1 QS  { 

9)  ) 

EQUIVALENCE 

IIICLOUD 

. I QS ( 10)  ) 

EQUIVALENCE 

{IOMEGA 

. IQUC 

1 ) J 

EQUIVALENCE 

{ idtabat 

. 1QU( 

2)  ) 

EQUIVALENCE 

< IRAD5W 

. IQUt 

3)  ) 

EQUIVALENCE  UCOJCiDJ 

INTEGER  ICO,  10(200) 

C 

C LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  / LCNTRL / LCO 
COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  QBEG 
COMMON  /LCNTRL/  QDA Y 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 


a 


0 

1 

ro 

SCNTRL  43 

SCNTRL  44  N> 

SCNTRL  45 
SCNTRL  46 
SCNTRL  47 
SCNTRL  48 
SCNTRL  49 
SCNTRL  50 
SCNTRL  51 
SCNTRL  52 
SCNTRL  53 
SCNTRL  54 
SCNTRL  55 
SCNTRL  56 
SCNTRL  57 
SCNTRL  58 
SCNTRL  59 
SCNTRL  60 
SCNTRL  61 
SCNTRL  62 
SCNTRL  63 
SCNTRL  64 
SCNTRL  65 
SCNTRL  66 
SCNTRL  67 
SCNTRL  68 
SCNTRL  69 
SCNTRL  70 
SCNTRL  71 
SCNTRL  72 
SCNTRL  73 
SCNTRL  74 
SCNTRL  75 
SCNTRL  76 
SCNTRL  77 
SCNTRL  78 
SCNTRL  79 
SCNTRL  80 
SCNTRL  81 
SCNTRL  82 
SCNTRL  83 
SCNTRL  84 
SCNTRL  B5 
SCNTRL  36 
SCNTRL  87 
SCNTRL  88 
SCNTRL  89 
SCNTRL  90 
SCNTRL  91 
SCNTRL  32 
SCNTRL  93 
SCNTRL  94 
SCNTRL  95 
SCNTRL  96 
SCNTRL  97 
SCNTRL  98 
SCNTRL  99 
SCNTRL  100 
SCNTRL  101 
SCNTRL  102 
SCNTRL  103 
SCNTRL  104 
SCNTRL  105 
SCNTRL  106 
SCNTRL  107 
SCNTRL  tOB 
SCNTRL  109 
SCNTRL  1 f O 
SCNTRL  111 
SCNTRL  1 12 
SCNTRL  113 
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00  10  t 

COMMON  /LCNTRL/ 

QRSW 

scntrl 

1 14 

ooioa 

COMMON  /LCNTRL/ 

QRSH 
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THE  T A 

5 

TH (I , LM1 ) 
TH{  I ,U 
TLt I ,LM1 ) 
TL  t I ,Ll 


LM1  >*0SIGCLM1  > 
LM1 ) *DSIG(LM1  ) 


= ( TtU 
f < PL  K { I 
= THETA 
= THETA 

= THETA*PLK ( I , LM1 ) 
= THETA  *PL  K ( I; , L I 
CONTINUE 
CONTINUE 


TUI  , L ) *OSI  GIL)  > 
PLHI1  ,L)*DSJGa)  ) 


CONTINUE 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


DRAG  COEFICIENT 


DO  1030  1-1, IM 

WMAG  ( I ) = AMAK1 (SQRTtWMAGSCI )} ,0,001) 

CD ( I J = CDXO*AMIN1< M .+ ,07*WMAG(i> ) *.001 
IF  ( . NOT . OCEAN  < I ) ) CDtl)  = CDKL»(.002  * . 006* . 0002*2 t I)  » 

1030  CONTINUE 


VERTICAL  DIFFUSION  OF  HEAT  AND  MOISTURE 

TEMP  t 1 G/ ( SP  *R ) * * 2 * DEL ( T ) * K CONSTANT 

TEMP 2 1 <P/T)  AT  LEVEL  L-1/2 

TEMP3 i P * * KAPPA  AT  LEVEL  L-1/2 

IE MP4 ; D< THETA) /DSIGMA 

TEMPS  T D f SHL  l/DSIGMA 


EDLE  = . 2 * ED 

DO  80  L “ 2 , NL A Y 
LM  1 = L - 1 

ASGL  - 1./DSIG1L) 
ASGLM1  = 1 . / DS I G ( LM 1 ) 
A5GPLS  - 1 , / (DSIG(LMt ) 


+ DSIG ( L > ) 
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c 

c 

c 

c 

c 


DO  80  I = 1 , IM 

TEMPI  = ( GRAV/ < SP ( I ) -RGAS)  ) 2 * DTC3  *EDLE 

TEMP2  = ( DSIG(LM1>*PLU,LM1)/TL(I,LM1) 

5 * DSIGCL)  * PL ( I , L )/TL(I,L  > )*ASGPLS 

( DSIGt LM1) *PLKII . LM 1 ) 

DSIG(L)  *PLK  f I , L > ) *ASGPLS 


TEMP 3 “ 
S * 


TEMP  4 = THd.LMU-  THII.L) 
TEMPS  =- < SHL ( I , LM  t ) -SHL ( I , L ) 


)/( 

>/< 


SIG(LMf) -SIGfL)  ) 
SI G ( LM 1 > -SIG1L)  > 


TEMP  2 
TEMP  6 


TEMP2+  + 2 

TEMPI *TEMP2*TEMP3*TEMP4 


TL ( I tLM1 ) = TL( I , LM 1 } - 
TLt I , L ) - TL ( I , L ) * 
TH ( I ,LM1 ) = TL ( I , LM1)  / 
TH  < I , L ) = TL  t I , L ) / 


TEMP6-ASGLM1 
TEMP6  * ASGL 
PLH  < I . LM1 ) 
PLK(I,L  > 


TEMP6  = TEMP  1 *TEMP2*TEMP5 

SHL(I.LMI)  = SHL  < I , LM 1 ) - TEMP6 * ASGLM1 

SHL (I , L ) = SHLtl.L  ) * TEMPS* ASGL 

30  CONTINUE 
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NOTE:  PS 
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* * 

SC0MP3 

2 16 

c 

* * + IT 

ZLN 
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= TEMPERATURE  DIFFERENCE  RELATED 

#■#**- 
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M * * * 
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AS  REFERENCE 

*■  + -m  • 
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DTS 
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SC0MP3 
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* * * * 

S COMP 3 

225 

c 

*•  + * * 

MOISTURE  CORRECTION 

**•»■*■ 

SC0MP3 
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+ **-*- 

( DT5<0  : STABLE  P.9.L 

* + TT  * 

SCOMP3 

227 

c 

* + * * 

t DTS>G  : UNSTABLE  P.B.L  } 

- * * * 

SC0MP3 

228 
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*■+•*■* 

DRAVf 

= AIR/SURFACE  INTERACTION  COEFFICIENT 

» m * * 

SCOMP3 

229 
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*■  *■  if  * 

RICH 

= BULK  RICHARDSON  NUMBER 

* *■  * * 

SQOMP3 

230 
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* *-  * * 

EONS 

= EDDY  DIFFUSIVITY  COEFFICIENT 

* * * * 

SC0MP3 
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*»•*•*■ 

TDML 

= TEMPERATURE  DIFFERENCE  OF  THE 

S COMP 3 
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* * * * 

MIKED  LAYER 

if  * * * 

SCOMP3 
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* * * * 

SC0MP3 

234 

c 

* * * * 

EVE 

= SOIL  EUAPOTRANSPI RATION  COEFFICIENT 

• + * * 
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DO  1040  I = t f IM 
PS  = P LE ( I , NLA YP  T ) 

PSK  = EKPB YK  ( PS  J 

RKS  = 0. 

RHPWET  = WET  1 1 ) 'kRH(  I ,NLAY) 

IF  ( RHPWET  , NE . 0.0  ) RHS  = 2 . *WET { I ) *RM < I t NLAY ) /RHPWET 

SHSATS  - QSATt T5( I ,J) ,PS) 

TEMP  = SH5ATS/T5f  I . J f 

ZLN  - 2LWC0*TS{ I . J) *SP U ) /PS 

THG  = GAMFAC*  TEMP/ TS  ( I , U j 

GAMC  = ZLN*  RHS  * GRAV/RGAS  * ROCP  * ( THG-CLH*  TEMP / R0CP  J / H . * THG  ) 
THT9  = TH ( I i NLAY  1 * PSK 
DTS<r)  = TG( I ) -THT9+GAMC 


IF  <DTS(I ) .LT.O. ) GO  TD  110 

+ * * * 

**  UNSTABLE  P.B.L  ** 

* * * * 

TDWIL  - DTS(I)  * i 0 . 1 3S2  * SORT  ( CD  ( I ) > 


AMIN  I ( WMAG  < I ) » 25 , ) 
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S - 13,67  + C0 ( I > ) 

TLE ( I , ML A VP  1 3 ^ THT9  TDML  - CAMC 

DTS<X>  = TG  ( I ) - TLE  f I , WLAYP 1 ) 

DRAW  ( I > = CD  ( 1 ) « (WMAG(I1  + SQRT(DTSnM) 
EDNS  = CIO  - C100  * U . -EXP< - 1 200 , /ZLN'TDML ►) 
GO  TO  1 1 a 

110  CONTINUE 


STABLE  P.B.L 


DU  = U(I ,NLAY,NB,U>  - US U) 

DV  * V ( I , NL  A Y , NB  , J > - VSU) 

DUD  VS  = AMAX  1 i DU--2  + DV  * * 2 * 1 . OE -O  1 > * TG  ( I ) 

V/MAGCU)  = WMAGS f 1} *WMAG( 1 } 

DENOM  = ZLN  * CD  f I J *WMAG ( I > 

AAA  - -C40 ’•GR  AV  * ZLN/ DUDVS  * C 1 0 *7  . f f DENOM*  WMAGS  < I > ) 

BBB  = 1,  + C 1 0 /DENOM  + C40 -GRAV*ZLN*DTS ( I 3 /DUDVS 
S - C10+7»*DT5ri)/fDEN0M*WMAGSU )) 

CCC  - *DTS ( I ) 

IF  t ABS( AAA) . GT  . .01) 

S TDML  = (-BB8+SQRT<BBB**2-4.0*AAA*CCC>)/(2.*AAAJ 
IF  ( ABS(AAA) . LE  , ,01) 

S TDML  = -CCC/BBBM 1 , + A AA *CCC / < BBB * *2 ) > 

TDML  - AMAX  1 (TDML ,DTS( I)  / (1  . +EDNM/DENOM* (1,-7. *DTS( I ) /WMAGS t I ) ) 
TL  E ( I , NLAYP  t > = THT9  + TDML  - GAMC 
DTS(I)  - TG ( I ) - TLE< X 'NLAYP1  ) 

DRAW (I)  = CD ( I ) * WMAGC  <11/ 1 WMAGS  < X ) - 7.*DTSfI)> 

RICH  = -GR AV  * 2 LN  » TDML /DUDVS 
EDNS  = CIO/M,  ♦ C4Q*RICH) 

1 IS  CONTINUE 


* * * *■ 


t********************  *■  W * * » 

CALCULATION  OF 

surface  specific  humidity 


EOVM  I ) = EDNS/ZLN 

EVE ( I ) = AMIN  1 f 1 . , WET ( I ) /FWET) 

EVACOm  = EVE  ( H *DRAW(  I ) 

EVACO(I)  s AMAXHEVACOtI),1,E-40| 

SHGfl ) = QSA  T ( TG ( I ) , PS ) 

SHLE ( I , NLAYP 1 ) = ( EVACO ( I } *SHG ( I > 

$ + EDV ( I ) * SHL ( I >NLAY) >/ ( EVACO ( I ) *EDV( I ) 1 


w w ir  w 

*♦*+  CHECK  FOR  SUPER-SATURATION  **** 

* + OF  SURFACE  SPECIFIC  HUMIDITY  **** 

»«--**  ir  *t  *■  m 

***  + *-  + fr  + **4-*  + ***'**'***+'***'i*-**+*-******-#**-** 

SHSATS  = QSA  T < TLE  f I ,NLAYP1  ) , PS  * 
I F ( SHLE ( I , NL A YP 1 ) . LE . SHSATS  > GO  TO  120 

GAMS  = GAMFAC*SHSATS/ ( TLE ( I .NLAYP1 > *TLE( I (NLAYP1 ) ) 
TEMP  =>  { SHLE  ( I f NLAYP  1 J - SHSATS)  /M.  * GAMS) 

TLE ( 1 f NLAYP  t ) = TLE ( I , NL A YP  1 I * TEMP-CLH 
SHLE { I * NLAYP 1 ) = SHLE  < T * NLAYP 1 > - TEMP 
120  CONTINUE 
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CALCULATE  SURFACE  DENSITY 

m * * * 

*1 

NOTE  : 

RHOS  HAS  UNITS  OF 

m m * • 

* » 

0,1  G/CM**3  OR 

» * *■  * 

* ;+ 

» r 
* *■  *■ 

100.0  KG/M*  * 3 

* * * * 
* * + 

RHOS(I>  = PS/(RGAS*TLEf I .NLAYP1 M 
040  CONTINUE 


*■  ir  V 
* * 

* * 

»***■**♦* 

SURFACE 

FLUX 

OF  SENSIBLE  HE/iT 

* * * * 
* * * 

m m 

SURFACE 

FLUX 

OF  MOISTURE 

* * *- 

*r  * 
*■  * 

NOTE: 

COEFS 

- G-DELT/DSIG 

* * • 
* * * 
* * * * 

DO  t 050  I = t , I M 

OSHS(I)  - 5HG<n  - SHLE ( I T NLAYP  t ) 

FSURF  « COEFS*RHOS( I ) *DRAW<I) /5P t I ) 

TL  C I , NL  A Y ) = TL(I.NLAY)  * FSURF*DTS(I) 

TH  f I « NLA  V ) = TLd.NLAY)  / PLKd.NLAY) 
SHLfI,NLAY)  = SHL i I ,WLAY 1 * FSURF * E VE (I ) *0SHS ( l) 


*-**  SURFACE  SKIN  FRICTION 


Uf I , NLA Y , NB . J ) ~ U ( I . NLA Y , NB , J > - CDF R * F SURF +US < 

V f I rNLAY»NB , J 1 = V ( I , NLA Y f NB  * J > - CDF  R *F SURF  * VS ( 

050  CONTINUE 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PREPARATION  FOR  MOIST  CONVECTION 


SSS  - DRY  STATIC  ENERGY  AT  LEVEL  L 

SSSE  = DRY  STATIC  ENERGY  AT  EDGE 

HH  = MOIST  STATIC  ENERGY  AT  LEVEL  L 

HHE  = MOIST  STATIC  ENERGY  AT  EDGE 

HHS  = SATURATION  MOIST  STATIC  ENERGY 

AT  LEVEL  L 

CVT  = TOTAL  TEMPERATURE  CHANGE  DUE 
TO  CUMULUS  CONVECTION 
CVQ  - TOTAL  MOISTURE  CHANGE  DUE 
TO  CUMULUS  CONVECTION 


DO  1 060  I- 1 , IM 
SSS { I « NLA Y ) = 0. 
1060  CONTINUE 

DO  11  TO  L - 1 , NLA  Y 
DO  t 1 10  1 = 1 .IM 
CVT  < I . L > = 0 , 

CVQ  (I  ,U  = 0. 
1110  CONTINUE 


C 


DO  ISO  LX=2,NLAY 
L = NLA Y + 2 - LX 
LM 1 = L - 1 

F ACL  = DSI G < L ) / ( OSIGI U +DS I G < LM 1)  J 
FACLMJ  = DSIG(LMt)/<DSIG(L)+DSlG<LM1 M 
DO  1070  3=1 . IM 
RKDN  = PLK <1 ,L>/PLK ( I , LMl > 

RKUP  = 1 , /RKDN 


I ) 

I > 


SCOMP3 

335 

SCO MP3 

336 

S COMP 3 

337 

SC0MP3 

333 

SCOMP3 

339 

SCOMP3 

340 

SC0MP3 

341 

SC0MP3 

342 

SCOMP3 

343 

SC0MP3 

344 

SCOMP3 

345 

SCOMP3 

346 

SC0MP3 

347 

SCOMP3 

343 

SC0MP3 

349 

SCOP/IP3 

350 

SC0MP3 

35  1 

SCOMP3 

352 

SCOMP3 

353 

SCOMP3 

354 

SCOMP3 

355 

SCOMP3 

356 

SC0MP3 

357 

SC0MP3 

353 

SC0MP3 

359 

SCOPJtP3 

360 

SCO MP3 

361 

SC0MP3 

362 

3COM P 3 

363 

SCOMP3 

364 

o o 

SCOMP3 

365 

S COMP 3 

366 

"n  33 

SCOMP3 

367 

-o  o 

SC0PAP3 

36B 

SCOMP3 

369 

o =| 

SCOMP3 

370 

o > 

PO  r» 

SCOMP3 

371 

SCOMP3 

372 

SC0MP3 

373 

lO  T? 

SCOMP3 

374 

c > 
l*s 
E 

SC0MP3 

375 

SC0MP3 

376 

SC DM P 3 

377 

SCOMP3 

378 

^ 

SC0MP3 

379 

Cv. 

SC0MP3 

380 

SCOMP3 

38  T 

SCOP4P3 

332 

5COMP3 

3B3 

SCOMP3 

384 

SCOMP3 

385 

S COMP 3 

386 

SCOMP3 

387 

SCOMP3 

388 

SCOMP3 

389 

SCOMP3 

390 

SCOMP3 

39  1 

SC0MP3 

392 

SC0MP3 

393 

SCOMP3 

394 

scorjtP3 

395 

SC0MP3 

396 

SCOMP3 

397 

SCOMP3 

398 

SC0MP3 

399 

5 COMP 3 

400 

SCOMP3 

401 

SC0MP3 

402 

SCOP4P3 

403 

SCOMP3 

404 

SCOMP3 

405 

0057  0 
00571 
0057a 

00573 

00574 

00575 

00576 

00577 

00578 

00579 

00580 

00581 

00582 


00583 

00584 

00585 

00586 

00587 

00588 

00589 
00530 
0059  1 

00592 

00593 

00594 


00595 


00536 

00597 

00593 

00599 

00600 
00601 
00602 


SSSE<I,L>  “ SSS(I.L)  + FACL  * ( TL { I , LMI ) *RKON  * TL(t.L)  > S COMP 3 

SSS ( I , LM  1 ) = SSSEtl.L)  - FACLM 1 * ( TL { I * LM 1 ) - TL ( I , L ) * RKUP > S COMP 3 

SHLEtt.L)  = FACL* SHL ( I , LM 1 ) + FACLM 1 *SHL  f I < L ) 3COM P 3 

IF  (SHLE(I.L) ,NE,0. ) SHLE  ( I r L ) = SHL ( 1 « LM 1 ) * SHL  f I , L > /SHLE  M , L ) 5COMP3 

5HLE ( I < L ) - AMI N 1 { SHLE 1 I , L > t 3COM P 3 

$ SHSATII.LM1)  * ( SSS  I I *LMl>-SSSE( I .L \ >/CLH>  5C0MP3 

HHfl.L)  = SSSfl.L)  + CLH*SHL(I.L1  5 COMP 3 

HHE  ( I , L } = S5SEU.LJ  + CLH^SHLEU.LI  SCCMP3 

HHSII.L)  = SS5<I,L)  + CLH*5HSAT< l ,L>  5C0MP3 

1070  CONTINUE  SC0MP3 

180  CONTINUE  SC0MP3 

DO  1080  1=1 ,IM  5C0MP3 

HHSUrU  = SSSU.H  * CLH*  SHSAT  (1.11  SC0MP3 

1030  CONTINUE  SC0MP3 

C SC0MP3 

C ***************** 5C0MP3 

C * * * * * • • * 5C0MP3 

C ****  CONSTRAIN  SPECIFIC  HUMIDITY  BY  ELIMINATING  NEGATIVE  VALUES  * * * * SCQMP3 
C ****  * • * * SC0MP3 

c .********»***»»*****+*„******.*****••*»».****** SCCMP3 

C SC0MP3 

DO  202  L = 2 f NLA Y SC0MP3 

LM 1 = L- 1 5COMP3 

DDSIG  = Q5IG  ( LM  T ) /DSI G < L ) SC0MP3 

DO  1090  1=1 , I M SC0MP3 

IF  ( SHL ( I , LMI ) . GE , O , > GO  TO  1090  SC0MP3 

SHLU.LI  = SHL(I.L)  * SHL  ( I > LMI)  'DDSIG  SC0MP3 

SHL f I, LMI)  = 0.  SCOMP3 

1090  CONTINUE  SC0MP3 

202  CONTINUE  SC0MP3 

DO  1100  I=t,IM  S COMP 3 

IF  45HL( I ,NLAY> fLT.O, ) SHL ( I , NL A Y ) =0 , SC0MP3 

1100  CONTINUE  SC0MP3 

C SC0MP3 

C ********************************************  SC0MP3 

C ******  SCOMP3 

C CUMULUS  PARAMETERIZATION  ******  S COMP 3 

c *****  ******  S COMP 3 

C ****************************** *******  SC0MP3 

C SC0MP3 

CALL  CUIYIULO  1d>  SC0MP3 

C SCOMP3 

Q ********d-j.*********«*************w******************  SCQMP3 

C ****  ♦+**  SC0MP3 

C ***'  LARGE  SCALE  PRECIPITATION  ****  SC0MP3 

C * * * * •***  SC0MP3 

C PRECIP  = PRECIPITATION  DUE  TO  ****  SC0MP3 

C ****  LARGE-SCALE  SUPE RSA TUR AT I ON  *'-*  5COMP3 

C EXL  = TOTAL  SPECIFIC  HUMIDITY  CHANGE  **'*  SC0MP3 

C ***♦  FROM  LEVEL  L-1  5COMP3 

C '***  EX  = TOTAL  SPECIFIC  HUMIDITY  CHANGE  **•*  S COMP 3 

C *♦*-  TO  LEVEL  L *•**  SC0MP3 

C ****  3C0MP3 

C ***'  DIAGNOSTICS:  ****  5C0MP3 

C ****  I CLOUD ( I , J > ****  SCO MP3 

C *-*  + * PREACC  ( I , J 1 = TOTAL  ACCUMULATED  PRECIP  •***  SC0MP3 

C FROM  LARGE  AND  SMALL  SCALE  •***  SC0MP3 

C ****  ( * 1 MM/DA  Y ) * SC0MP3 

C PRECON ( I , J ) = TOTAL  ACCUMULATED  PRECIP  ****  SC0MP3 

C "**  FROM  CUMULUS  CONVECTION  * * * * S COMP 3 

C ****  C . 1 MM/ DAY)  ****  SC CMP 3 

C *•"*  ****  SC0MP3 

c ****-*■+***  + **»**»  + * ************  * ***  * ****************  * S COMP  3 

C SC0MP3 

DO  300  L=2tNLAY  SCOMP3 

LMI  = L-1  SC0MP3 

DDSIG  = DSIG ( LM 1 ) /DSlGf  L ) SC0MP3 

DO  1120  1=1 F I M SC0MP3 

IF  <5KL(1 .LMI ) .LE.SHSATU ,LM1 H GOTO  1120  SCOMP3 

EXL  = (SHL  < I ,LM1) -SHSATU  . LMI  ) > / ( I . *GA|H  ( I . LM  1 ) ) SCOMP3 

EX  = EXL 'DDSIG  SC0MP3 


406 

407 
40B 
409 
4 10 
41  1 
4 12 

413 

414 

415 
4 16 

417 

418 

419 

420 

421 

422 

423 

424 
4 25 

426 

427 

428 

429 

430 

43  1 

432 

433 

434 

435 

436 

437 

438 

439 

440 

44  1 
4 42 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 
46  I 

462 

463 

464 

465 

466 

467 
463 

469 

470 

471 

472 

473 

474 

475 

476 


o o 

•*1 


"U 

o 

o 

33 


£2 

2 

& 

r* 


cO  -a 
cz  ss 
> & 
r~  m 


o 

o 


u> 


LO 


00603 

00604 

00605 

00606 

00607 

00608 
00609 
006  10 
006  1 1 
00612 

006  13 
00614 
006  t 5 
00616 

00617 

00618 
006  19 
00620 
00621 
00622 

00623 

00624 

00625 

00626 
00627 
00528 

00629 

00530 

00631 

00532 


00633 

00634 

00635 

00636 

00637 

00638 

00639 

00640 

00641 

00642 

00643 

00644 

00645 


00646 


1 12Q 
300 


310 

320 


IF  £ QOUT ) 
TL(I , LM 1 ) 
SHU  I , LM  1 ) 
TLCI ,L) 
SHLU.L) 
SH5AT  f I . L ) 
GAMf I « L > 
CONTINUE 
CONTINUE 


CLOUD ( I , LM 1 > - ! . 

ICLOUD  ( I * J 1 = I CLOUD  U » J ) + 2**<LM1+5> 

- TUI  . LM  1 ) * EXL’CLH 
= SHL ( I , LM  t ) - E XL 

= TL ( I , L > - EX-CLH 

» SHLU.L)  * EX 

- Q5AT(TL< I ,L)  . PL  ( I . L ) ) 

- GAMFAC*SHSAT£ I , L * / ( TL ( I , L ) * TL f I . L >) 


DO  1130  1=1 , I M 
PRECIP  = 0* 

E XL  = 0, 

IF  (SHL (I ,NLAV)  •LE.SHSATII .NLAY) ) GO  TO  320 
CLOUD ( I . NLA Y 1 = 1. 

IF  ( QOUT 1 ICLOUD U , J ) = ICLOUD* I ,J>  + 2--1NLAY+5) 

DO  310  N=1 ,3 

EX  = 1 SHL ( I , NLAY  > -SHSAT ( I t NLA Y ) ) / <1 * *GAM ( I . NLA Y ) ) 

E XL  = EKL  * EX 

TL  f I .NLAY } = TL 1 I * NLA Y ) + CLH*EX 

SHL ( I , NLA  Y ) = SHLt I .NLAY)  - EX 
SHSAT  f I .NLAY  > = Q5AT ( TL(  I f NLA Y ) . PL < I , NL A Y J > 

GAM  I I .NLAY)  = GAMFAC -SHSAT  II  .NLAY)  / ( TL  f I . NLAY  ) * TL  ( I .NLAY)  ) 
CONTINUE 

PRECIP  = E XL  *D3 IG ( NLA  Y ) * . 1 *SP < I ) /GRAV 
CONTINUE 


C 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


P REP  < I ) = PRECIP  + PCM I D ( I ) + PCLOWt I ) + P CPEN(I) 

PREACC(I.J)  = PREACC (I  , J ) + UE4*CUMDAY*  PREP(I) 

PRECON  U . t) ) = PRECONU.d)  +■  1 . E4*CUMDAY*  £ PREP  r I)  - PRECIP) 
1130  CONTINUE 


****  ELIMINATE  NEGATIVE  SPECIFIC  HUMIDITY 

M * * * 


DO  410  L = 2 . NLAY 
LM 1 = L-1 

DDSIG  = DSIG£LM1) /DSIG(L ) 

DO  1 140  1=1 . IM 

IF  (SHUI.LMU.GE.O  J GO  TO  1140 
SHLU.L)  = SHUI.U  + SHL  ( I . LM  1 ) * DDSIG 
SHL (I . LM1  > = 0. 

1140  CONTINUE 
410  CONTINUE 

DO  1 150  1= 1 . IM 

IF  < SHL  < I .NLAY ) ,LT,OJ  SHL  ( I . NLAY)  = 0. 
IF  ( SHLE (I .NLAYP1 ) . LT . 0 . ) SHLE (I , NL A YP 1 ) = 0* 
1150  CONTINUE 


* 


****  RADIATION  SUBROUTINES 


CALL  RADIO  (J) 


* * * + 

DETERMINATION  OF  GROUND  TEMPERATURE  » » * - 

» » w » 

GROUND  TEMPERATURE  GTU.JJ  **** 

SURFACE  SPECIFIC  HUMIDITY  SHSU.d)  ***- 

* * * « 

HEATW  = HEAT  COEF  OVER  LAND.  WATER  **** 

HEAT I = HEAT  COEF  OVER  ICE,  SNOW.  FROST  *«** 
EPSFAC  = E PS* HEATW/ RGAS  * CALTOJ 


SCOMP3  477 
SCOMP3  47B 
SC0MP3  479 
SCOMP3  480 
SC0MP3  48 1 
5COMP3  4B2 
SCOMP3  483 
SCOMP3  484 
SCOMP3  485 
S COMP 3 486 
5COMP3  487 
SCOMP3  488 
SC0MP3  483 
SC0MP3  490 
SCOMP3  491 
SC0MP3  492 
SC0MP3  493 
SC0MP3  494 
SCOMP3  495 
SC0MF3  496 
SC0MP3  497 
SCOMP3  498 
SC0MP3  499 
SC0MP3  500 
3COM P 3 501 
SC0MP3  502 
SCOMP3  503 
SCOMP3  504 
SCOMP3  505 
5C0MP3  506 
SC0MP3  507 
SCOMP3  508 
SCOMP3  509 
SC0WIP3  5 10 
S COMP 3 511 
SC0MP3  512 
5COMP3  513 
SC0MP3  514 
SC0MP3  515 
SC0MP3  516 
SCOMP3  517 
5C0MP3  518 
SCOMP3  519 
SCOMP3  520 
SCOMP3  521 
SCOMP3  522 
SCOMP3  523 
SCOMP3  524 
5C0MP3  525 
SCOMP3  526 
SCOMP3  527 
SC0MP3  528 
SC0MP3  529 
SC DM P 3 530 
SC0MP3  531 
SCOW1P3  532 
SCOMP3  533 
S COMP 3 534 
SCO MP3  535 
SC0MP3  536 
SCOMP3  537 
SC0MP3  538 
SC0MP3  539 
SC0MP3  540 
SCOMP3  541 
SQOMP3  542 
SCOMP3  543 
SCOMP3  544 
SCOMP3  545 
SC0MP3  546 
SCOMP3  547 
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00647 

00648 

00649 

00650 

0065  1 
00552 

00653 

00654 

00655 

00656 

00657 

00658 

00659 

00660 

0066  t 
00662 

00663 

00664 

00665 
□ 0566 

00667 

00668 
00669 
00570 

00671 

00672 

00673 

00674 

00675 

00676 

00677 

00678 

00679 

00680 


0068  I 
00682 
0 0683 
00684 


c 

*•  * * * 

BPS 

p 

RATIO  OF  MOLECULAR  WEIGHTS 

SCOMP3 

548 

c 

»*-**■ 

OF  WATER  VAPOR  AND  DRY  AIR  **** 

SCOMP3 

549 

c 

CALTOJ 

S 

CALORIE  TO  JOULE  CONVERSION  * * - * 

SCOMP3 

550 

c 

* * ♦ w 

EVAL 

=T 

LATENT  HEAT  OF  EVAPORATION  ***• 

SC0MP3 

55  t 

c 

*■  + + •• 

CZH 

S 

TOTAL  HEAT  CAPACITY  **** 

SCQPAP3 

552 

c 

* * * * 

radtrm 

= 

SOLAR  - TERRESTRIAL  RADIATION  **** 

SC0MP3 

S53 

c 

*»  * * * 

STBO 

= 

STEFAN-BOLTZMAN  CONSTANT  * * * * 

SCOMP3 

554 

c 

*■*■**• 

DRAD 

S 

D(R)/D(TG)  * «*** 

SC DM P 3 

555 

c 

DSQG 

= 

L*D<E)/D(TG>  * 

SCOMP3 

556 

c 

* * <tr  * 

TERM2 

= 

SENSIBLE  HEAT  FLUX  ***■> 

SCOMP3 

557 

c 

* *■  * * 

TERM3 

s 

LATENT  HEAT  FLUX  **** 

SCOMP3 

558 

c 

* * » *■ 

TERPJ14 

= 

HEATING  DUE  TO  CONDUCTION  **** 

SCOMP3 

559 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DIAGNOSTICS: 

UPWARD  SENSIBLE  HEAT  FLUX  HFLUXfI.J) 
UPWARD  LATENT  HEAT  FLUX  EFLUX(I.J) 
HEATING  DUE  TO  CONDUCTION  FU5I0NfIfd) 

NOTE:  SINCE  RHOS  HAS  UNITS  OF  O.T  G/CM**3. 
THEN  FLUXES  OF  SENSIBLE  AND  LATENT 
HEAT  # ( F AND  LE)  . ARE  IN 

deca-langley/unit  TIME* 

THEREFORE,  THESE  FLUXES  MUST  BE 
SCALED  BY: 

F = F * to  LANGLEY/DECA-LANGLEY 
LE  = LE  * TO  LANGLEY/DECA-LANGLEY 


DO  1 T60 
EVAL 


EVAL  = 
CZH  f I } 


CZH<  I ) 


C2H ( I ) 


GO  TO  660 


GO 

GO 

GO 


TO 

TO 

TO 


610 

620 

630 


,+WETtI) ) *2 . E~3*SDAY/P 12) 


I =1 , IM 
HEATW 

IF  < OCEAN  (IN 
EVAL  = HEATI 

IF  ( SNOW ( I } ) 

IF  ( ICECI)) 

IF  t F ROST { I ) } 

HEATW 

= 5QRT  ( < ■ 386* - t5*WETt I ) ) * ( 

GO  TO  650 

6 T 0 CONTINUE 

2*3 

GO  TO  650 
620  CONTINUE 

5 . t 

GO  TO  650 
630  CONTINUE 

CZH<  I J = SQRTf  t , 33  t + . 075  *V/E  T f I ) ) • ( 2 . *2 . 5*WET  ( I ))*  1 . E -3 -5DA  Y / P I 2 ) 
650  CONTINUE 

TEM  = 0, 

IF  (ICEtlJ  .AND.  Z ( I ) . LT . . t > TEM  - CTID/HICE 

TGSQ  - TG ( I ) * * 2 

DRAD  =■  4 . ♦STBO*  TGSQ*TGf I ) 

DSOG  = EFSFAC^SHGf I) /TGSO 
660  CONTINUE 

TEMP  = 10  + *-DRAW(I)*  RHOSf  I I #SDA  Y 
TERM2  = -CPP*TEMP*DTS(I ) 

TERM3  = -EVAL  * EVE  f I ) * TEMP  *DSHS ( I ) 

HF LUX (I i J)  = HFLUXfI,Ji  " CUMRAT »TERM2 
E F LU  X < I , J ) = EFLUX(I.J)  - CUMRAT*TERM3 

SHS ( I , d ) = SMLE ( I t NLA YP 1 \ 

IF  (OCEAN (I M GO  TO  690 

TERM4  = TEM* ( TICE  - TG ( I J > 

DENOM  = SDAY*CZH( I ) /DTC3  * DRAD  - TEM 
$ + TEMP  * ED V ( I ) • ( CPP  / ( DRAW ( I ) 

5 * EVA L *E VE  (It  • DSOG  / (EVACO(I) 

GT  f I * tJ  > a TGfl)  * fRADTRMU)  + TERM2 
FUSION(I,d)  = FUSION ( I , d ) + CUMRAT  * TERM4 

690  CONTINUE 
r 1 SO  CONTINUE 


EDV (I)J 
EDV { I > ) 
TERM3  * 


) 

TERM4 ) /DENOM 


S COMP 3 560 
SCQMP3  561 
SCOMP3  562 
SCOMP3  563 
SC0MP3  564 
SCOMP3  565 
SC0MP3  566 
SC0PflP3  567 
S COMP 3 56B 
5COMP3  569 
SCOMP3  570 
SCOMP3  57 t 
SCOMP3  572 
SC0MP3  573 
SC0MP3  574 
SC0PJIP3  575 
SCOMP3  576 
SCOMP3  577 
SCOMP3  578 
SCOMP3  579 
5C0MP3  500 
SC0MP3  58 1 
SC0MP3  582 
SCOMP3  583 
SCOMP3  584 
S COMP 3 585 
SC0MP3  586 
SC0MP3  587 
SC0MP3  583 
SC0PAP3  589 
SC0MP3  590 
SCOMP3  591 
3COM P 3 592 
SC0MP3  593 
SCOMP3  594 
SC0MP3  595 
SC0MP3  596 
SCOMP3  597 
SC0WIP3  598 
5C0MP3  599 
SC0MP3  600 
SC0MP3  601 
5C0MP3  602 
5C0MP3  603 
SC0MP3  604 
SC0MP3  605 
SCOMP3  606 
SCOMP3  607 
SCOMP3  60S 
SCOMP3  609 
5C0PAP3  610 
SC0MP3  61 J 
SCOMP3  612 
SCOMP3  613 
SC0MP3 
SC0MP3 
SCOMP3 
SC0PAP3 
SC0MP3 


614 

615 

616 

617 

618 


n 

o 


LO 

Ln 
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c 

**+■*■*  + +■ 

SC0MP3 

519 

c 

* * *■  * 

* * * * 

5 COMP 3 

620 

c 

* • * +• 

HEATING  DUE  TO  ABSORBED  RADIATION 

*-*-*  + 

SC0MP3 

621 

c 

* * * * 

AND  TOTAL  MOISTURE  ADJUSTMENT 

* + * * 

SC0MP3 

622 

c 

• **  » 

SC0MP3 

623 

c 

NOTE  ; 

* * * * 

SCDMP3 

624 

c 

COE  * 

COLMR  = GRAV*DELT/ < 10*SP*CP*DSIGfL )) 

*>**■*■ 

SCOMP3 

625 

c 

* + *■  * 

WHERE  : 

SP  = PS-PTOP 

SC0MP3 

526 

c 

DELT  = COMP 3 TIME  INCREMENT 

* * * * 

SCOMP3 

627 

c 

■ if  m # 

CP  = SPECIFIC  HEAT 

-*  + ■*  *■ 

5C0MP3 

628 

c 

* * *■  * 

***•♦■ 

5C0MP3 

629 

c 

* 4>  » 

DIAGNOSTICS; 

* * * m 

SC0MP3 

630 

c 

m ♦ * 

DI  ABAT 

= TOTAL  DIABATIC  HEATING.  INCLUDING 

#■  » * # 

SC0MP3 

63  1 

c 

w * * *■ 

RAO I ATI ON , IN  DECI -KELVIN/DAV 

* * * * 

SC0MP3 

632 

c 

* *■  * *■ 

TS 

= AIR-SURFACE  TEMPERATURE 

r t * • 

SC0MP3 

633 

c 

# * » * 

TWIN 

= MINIMUM  AIR -SURFACE  TEMPERATURE 

<r  » *■  w 

SC0MP3 

634 

c 

TMAX 

= MAXIP^UM  AIR-SURFACE  TEMPERATURE 

*+-**• 

SCOMP3 

635 

c 

SC0MP3 

636 

c 

*♦’**■**■* 

SCOMP3 

637 

c 

SCOMP3 

638 

00685 

DO 

52  1 1 = 1 

. IM 

SC0MP3 

639 

00686 

COLMR  t I ) - 

PIM/SP ( I i 

SC0MP3 

540 

00687 

521  CONTINUE 

S COMP 3 

641 

00688 

DO 

520  L = 

1 f NLAV 

S COMP 3 

642 

00689 

DO 

1 170  1 = 

1,  IM 

5C0PAP3 

643 

00690 

dtl 

= TL  ( I t L J - T ( I , L i NB  , d ) 

SC0MP3 

644 

s 

* t ASCI  . L > *RE  ( I iL4‘T)-HE{I  , L ) ) * COE  i L ) * 

COLMR < I ) 

SC0MP3 

645 

00691 

T ( I , L , NB 

, J ) - Tf I . L . NB , d ) * DTL 

SC0MP3 

645 

00692 

5H  f I , L , NB , J ) = 5HLCI  ,L1 

SC0MP3 

647 

00693 

D I ABAT f I « L 

.J)  = D I ABAT (I  ,L, J1  + 1 , E 1 *CUMDAV *DTL 

SCOMP3 

648 

00694 

1 1 70  CONTINUE 

SC0MP3 

649 

00695 

520  CONTINUE 

SCOMP3 

650 

00696 

DO 

1 ISO  1 = 

1 , IM 

SC0MP3 

651 

00697 

T 

S( I , J) 

= TLE 1 I . NLA  VP  1 ) 

SC0MP3 

652 

00698 

TMINf I , J > 

= AMIN1 t TMINC I , J} . TSf I « J J J 

SCDMP3 

653 

00699 

TMA  X ( I . cl  > 

= AMAX1  CTMAXd  . J>  ,TS(1  id)  ) 

SC0MP3 

654 

00700 

1 BO  CONTINUE 

S COMP 3 

655 

c 

SC0MP3 

656 

c 

SC0MF3 

65  7 

c 

SC0MP3 

65B 

CALL  C0MP3S  ( d ) 


IF  (FMU'*LE.Q.>  GO  TO  900 


INTERNAL  FRICTION 
DUE  TO  VERTICAL  SHEAR  OF 
HORIZONTAL  WIND 


NOTE: 

FCOEF1 

MU 

TREF 

PREF 


00703 

DO  350  I = 

00704 

FCOEF 1(1) 

00705 

UDN ( I ) 

00706 

VDNf I ) 

00707 

TON  f I ) 

00708 

850  CONTINUE 
C 

00709 

DO  BSO  L = 

007  1 0 

LM1  = 

0071  1 

DSIGBR  * 

007  12 

DELSIG  = 

MU/RGAS  * ( G/SP ) * * 2 
0.000S7  * TREF/PREF 
258  KELVIN 
500  MILLIBAR 

1 1 * *-*»»**ifW*ii-#*>+*****» 

. IM 

= FCOEF  /5P  ( I ) • 2 

= U ( I t 1 , NB , d > 

- V f I , 1 , NB  f d } 

= T < I , 1 „ NB  r d > 


J . f { DSIG  ( L ) 
1 ./<  SI GIL) 


DSIGCLM1)  ) 

SlG(LMf)  ) 


5C0MP3  659 
SCDMP3  660 
SCOMP3  661 
SCOMP3  662 
SCOMP3  663 
5C0MP3  664 
SCOMP3  665 
SGOMP3  666 
SC0MP3  667 
SC0MP3  6GB 
5C0MP3  669 
SCOMP3  670 
SCOMP3  671 
SCOMP3  o72 
SCOMP3  673 
SC0MP3  674 
SC0MP3  675 
SCOMP3  676 
5COMP3  677 
SC0MP3  678 
SC0MP3  679 
SC0MP3  6B0 
SCOMP3  681 
SCOMP3  682 
SCDMP3  6S3 
SCOMP3  684 
SCOMP3  685 
SCOMP3  686 
SC0MP3  687 
SCOMP3  668 
SCOMP3  6S9 


ill 


C0MP3  16 


00713 

ASGL 

= 1./D5IG(L) 

007  14 

p 

asglmt 

= 1./DSIGCLM1) 

00715 

DO  870 

1 = 1 ,IM 

007  16 

UUP  t l ) 

= UDN(I> 

007  17 

VUP { I ) 

= VDN  U ) 

00718 

TUP  1 I ) 

= TDN  ( I ) 

007  19 

UDN  ( I > 

= un.L.WBW) 

00720 

VDN ( I ) 

= VU  »L,NBt«n 

00721 

p 

TDN ( I ) 

= T< I ,L,NB, d> 

00722 

DUDSIG 

= (UUP ( I }-UDN( I > ) *DELS I G 

00723 

DVDSIG 

= (VUP  r I ) -VDN ( I ) )*DELSIG 

00724 

POTBAR 

= ( DSIG(LMU  *PL(  I .LMIJ/TUPm 

S 

+ DSI G ( L ) *PL ( I f L > /TDN ( I ) )*D5IGBR 

00725 

C 

TEMP  = 

F COEFIfl)  * POTBAR  * * 2 

00726 

tempu  = 

TEMP  * DUDSIG 

00727 

TEMPV  = 

TEMP  * DVDSIG 

0072B 

c 

U f I , LM  t 

tN8, d>  = U(I  . LM 1 . NB , J > - 

TEMPU* ASGLM 1 

00729 

U < I , L 

, NBvd)  = U(I ,L  , NB . J ) * 

TEMPU* ASGL 

00730 

V < I , LM 1 

, NB , d > = V ( 1 , LM J , NB , J > - 

TEMPV  * ASGLM 1 

0073  1 

Vf  I ,L 

, NB , d ) = V < I , L * NB  , J > * 

TEMPV* ASGL 

00732 

If 

870 

CONTINUE 

00733 

p 

860 

CONTINUE 

00734 

If 

900 

CONTINUE 

00735 

RETURN 

00736 

END 

'A]  STATEMENT  LABEL  MAP 

nll  --LABEL DEFINED REFERENCES 


\Y 

10 

4 1 1 

4 06 

too 

49  1 

486 

4 87 

\ > 1 

1000 

405 

397 

i 

u u 

1 0000 

396 

10  10 

434 

430 

;l 

1020 

44  1 

435 

Y 

\ 

1030 

4.63 

459 

1040 

544 

492 

1 \ j 

1050 

553 

545 

ih 

1060 

55.6 

554 

1070 

578 

567 

h 

1 080 

582 

580 

3* 

1090 

590 

586 

537 

1 1 

417 

412 

4 13 

1 jl 
1 ■ 

110 

512 

505 

1 100 

594 

592 

3 

1110 

561 

557 

558 

r,  * 

1120 

61  1 

599 

600 

\ \ 

1130 

632 

613 

! 

1 140 

64  0 

636 

637 

L ‘ 

1 150 

645 

642 

1160 

634 

647 

i f 

1 170 

694 

689 

; 

1 IS 

529 

5 1 1 

j 

1 1 BO 

700 

696 

■ 

120 

542 

537 

i 

ISO 

579 

562 

i 

20 

422 

418 

419 

I 

a 

202 

591 

583 

j 

30 

4 25 

423 

300 

612 

596 

J 

3 1 

429 

• 426 

427 

t: 

3 1 0 

626 

619 

i 

320 

628 

616 

f. 

1 

40 

45B 

442 

I-’ 

41 

445 

443 

o 


SC0MP3  690 
S COMP 3 691 
SC0MP3  692 
SC0MP3  693 
5C0MP3  694 
SC0MP3  695 
SCOMP3  696 
S COMP 3 697 
5C0MP3  69B 
SCOMP3  699 
5C0MP3  700 
SCOW P 3 701 
5C0MP3  702 
SC0MP3  703 
SCOMP3  704 
SC0MP3  705 
S COMP 3 706 
5COMP3  707 
scgmps  7os 
SC0MP3  709 
SCOMP3  710 
S COMP 3 7 1 1 
S COMP 3 712 
SC0MP3  713 
SCOMP3  714 
SCOMP3  715 
SCOMP3  716 
SCOMP3  717 
SC0MP3  7TS 
SC0MP3  719 
SCOMP3  720 


COMP 3 17 


410 

64  1 

633 

42 

457 

446 

43 

456 

443 

450 

520 

695 

688 

521 

687 

685 

G10 

657 

651 

620 

660 

652 

630 

663 

653 

650 

665 

656 

659 

660 

671 

649 

690 

683 

678 

80 

485 

465 

470 

850 

708 

703 

860 

733 

709 

870 

732 

715 

900 

734 

702 

VARIABLE  MAP 


■NAME 

■'--BLOCK 

TYPE 

--CLASS 

-REFERENCES 

A =ARGLI ST . 

C = CTRL 

OF  DO, 

I ’DATA  INIT,  R = READ , 5=STQRE . W 

=WR I TE 

AAA 

REAL 

SIMPLE 

5 18/S 

521 

521 

521 

522 

522 

ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

AL 

RADCOM 

REAL 

ARRAY 

354 

ALBEDO 

QANDQT 

REAL 

ARRAY 

244 

262 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

AS 

RADCOM 

REAL 

ARRAY 

339 

690 

ASGL 

REAL 

SIMPLE 

467/S 

479 

484 

713/S 

729 

731 

ASGLM1 

REAL 

SIMPLE 

468/5 

47E 

483 

7 1 4 / S 

728 

730 

ASGPLS 

REAL 

SIMPLE 

469/S 

472 

473 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

4 

17 

BBB 

REAL 

SIMPLE 

519/S 

521 

521 

522 

522 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

cto 

CNTRLP 

REAL 

SIMPLE 

309 

510 

SIB 

5 19 

519 

52B 

ctoo 

CNTRLP 

REAL 

SIMPLE 

3 10 

510 

C40 

CNTRLP 

REAL 

SIMPLE 

31  1 

513 

5 1 9 

528 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

185 

CC 

CCNTRL 

CHAR'S 

ARRAY 

14 

15 

cco 

CCNTRL 

CHAR'S 

SIMPLE 

2 

14 

15 

ccc 

REAL 

SIMPLE 

520/S 

521 

522 

522 

ccntrl 

REAL 

UNKNOWN 

2 
1 3 
7 

3 

4 

5 

6 

7 

S 

9 

1 0 

1 1 

CCSP06 

CCNTRL 

CHAR  * 8 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHAR'S 

SIMPLE 

8 

21 

CCSP08 

CCNTRL 

CHAR'S 

SIMPLE 

9 

22 

CD 

DC0MP3 

REAL 

ARRAY 

380 

4 61  /S 

462/S 

506 

506 

509 

5 17 

526 

CDATE 

RADCOM 

REAL 

array 

363 

CDFR 

CNTRLP 

REAL 

SIMPLE 

297 

551 

552 

CO  XL 

CNTRLP 

REAL 

SIMPLE 

298 

462 

CDXQ 

CNTRLP 

REAL 

SIMPLE 

299 

46  T 

CLH 

CNTRLP 

REAL 

SIMPLE 

300 

502 

540 

574 

575 

576 

577 

58  1 

605 

607 

CLOUD 

RADCOM 

REAL 

ARRAY 

345 

408/S 

409/S 

4 1 0/S 

4 1G/S 

603/S 

617/S 

CNTRLP 

REAL 

UNKNOWN 

297 

298 

299 

300 

30  1 

302 

303 

304 

305 

306 

308 

309 

310 

31  1 

3 1 2 

313 

3 1 4 

3 15 

3 16 

317 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

330 

33  1 

332 

333 

334 

335 

336 

337 

COE 

CNTRLP 

REAL 

ARRAY 

301 

590 

COEF 

CNTRLP 

REAL 

SIMPLE 

302 

COEFS 

CNTRLP 

REAL 

SIMPLE 

303 

547 

COLMR 

DC0MP3 

REAL 

ARRAY 

374 

686  /S 

690 

C0MP3 

SUBROUTINE 

1 

CON  1 

RDPARM 

real 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

20a 

C0N2 

RDPARM 

REAL 

SIMPLE 

209 

C0N2DT 

RDPARM 

REAL 

SIMPLE 

2 10 

C0N3 

RDPARM 

REAL 

SIMPLE 

2 1 1 

C0N3DT 

RDPARM 

REAL 

SIMPLE 

212 

C0N4 

RDPARM 

REAL 

SIMPLE 

213 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

214 

CDN5 

RDPARM 

REAL 

SIMPLE 

215 

COSO 

RCNTRL 

REAL 

SIMPLE 

148 

12 


622 

307 

3ta 

329 


ORIGINAL  PAGE  19 
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cast 

CQSLON 

COSROT 

cosz 

CP 

CPD2 

CPP 

CQS 

CQU 

CTID 

CUMDAV 

CUMRAT 

CVQ 

CVT 

CXDE 

CXL 


RDPARM 

RDPARIVf 

CNTRLP 

RADCOM 

RCNTRL 

RDPARM 

CNTRLP 

CCNTRL 

CCNTRL 

CNTRLP 

CNTRLP 

CNTRLP 

RADCOM 

RADCOM 

RADCOM 

RADCOM 


ARRAY 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 


667 
630 
675 
560 /S 
559/S 


CZH 

RADCOM 

REAL 

ARRAY 

364 

65S/S 

G5B/S 

66  1 /S 

664 /S 

680 

DAVSPY 

RCNTRL 

REAL 

SIMPLE 

150 

D COMP 3 

REAL 

UNKNOWN 

374 

375 

375 

377 

378 

379 

385 

386 

387 

3sa 

389 

390 

l 

DDSIG 

REAL 

SIMPLE 

585/S 

538 

598  /S 

602 

635/S 

638 

s 

DEC 

RCNTRL 

REAL 

SIMPLE 

151 

J 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

t 

DELSIG 

REAL 

SIMPLE 

712/5 

722 

723 

j,' 

DELTA 

CNTRLP 

REAL 

SIMPLE 

312 

DENOM 

REAL 

SIMPLE 

5 17/S 

513 

519 

519 

523 

680/1 

DI ABAT 

Q ANDO  T 

REAL 

ARRAY 

285 

294 

693/S 

693 

RCNTRL 

RGNTRL 

RCNTRL 


SIMPLE 

SIMPLE 

SIMPLE 


DRAD 

REAL 

SIMPLE 

669/S 

680 

DRAW 

D COMP 3 

REAL 

ARRAY 

382 

509/S 

526/S 

532 

547 

672 

6S0 

DSHS 

D COMP 3 

REAL 

ARRAY 

388 

546/S 

550 

674 

DSIG 

RDPARM 

REAL 

ARRAY 

233 

451 

45  1 

45  1 

45  1 

467 

468 

469 

469 

472 

472 

473 

473 

565 

565 

565 

566 

566 

566 

5B5 

585 

S9S 

598 

627 

635 

635 

7 1 l 

71  1 

7 13 

7 14 

724 

724 

DSIGBR 

REAL 

SIMPLE 

71  t/S 

724 

DSOG 

REAL 

SIMPLE 

670/S 

680 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

DTC3 

CNTRLP 

REAL 

SIMPLE 

313 

471 

6S0 

DTL 

REAL 

SIMPLE 

590/S 

69  1 

693 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

3 14 

OTS 

0C0MP3 

REAL 

ARRAY 

38  t 

504/S 

505 

506 

508/5 

509 

519 

519 

520 

523 

523 

525/S 

526 

548 

673 

DU 

REAL 

SIMPLE 

513/S 

515 

DUDS  I G 

REAL 

SIMPLE 

722/S 

726 

DUDVS 

REAL 

SIMPLE 

515/S 

5 18 

5 19 

527 

DV 

REAL 

SIMPLE 

514/S 

515 

DVDSIG 

REAL 

SIMPLE 

723/S 

727 

o o 
“n  25 

DXP 

RDPARM 

REAL 

ARRAY 

2 19 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

221 

tj  a 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

O 9 
o % 

JO  1“ 

ED 

CNTRLP 

REAL 

SIMPLE 

315 

464 

EDLE 

REAL 

SIMPLE 

464/S 

471 

EDNM 

CNTRLP 

REAL 

SIMPLE 

316 

523 

EDNS 

REAL 

SIMPLE 

5 10/S 

52B/S 

530 

(O  T? 
C 3* 

EDV 

DC0MP3 

REAL 

ARRAY 

384 

530/S 

535 

535 

600 

680 

680 

EF  LUX 

QANDQT 

REAL 

ARRAY 

255 

273 

676/S 

67  6 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

> S3 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

670 

d m 

EVACO 

DCOMP3 

REAL 

ARRAY 

386 

532/S 

533/S 

533 

535 

535 

6BO 

EVAL 

REAL 

SIMPLE 

648/S 

650/S 

654/S 

674 

6B0 

< m 

EVAP 

RADCOM 

REAL 

SIMPLE 

364 

EVE 

DCOMP3 

REAL 

ARRAY 

385 

531/S 

532 

550 

674 

6B0 

EX 

REAL 

SIMPLE 

602/S 

607 

608 

620/S 

62  1 

622 

623 

E XL 

REAL 

SIMPLE 

601  /S 

602 

605 

606 

6 15/S 

621 /S 

621 

627 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

real 

SIMPLE 

224 

F ACL 

REAL 

SIMPLE 

565/S 

570 

572 

F4CLM1 

REAL 

SIMPLE 

S6G/S 

57  T 

572 

f COE  F 

CNTRLP 

REAL 

SIMPLE 

317 

704 

FCQEF 1 

DCOMP3 

REAL 

ARRA  V 

389 

704/S 

725 

FCORLS 

RDPARM 

REAL 

ARRAV 

222 

FILTER 

ldparm 

LOGICAL 

ARRAY 

200 

203 

FK 

RADCOM 

REAL 

ARRAY 

360 

FMU 

CNTRLP 

REAL 

SIMPLE 

3|B 

702 

FROST 

RADCOM 

LOGICAL 

ARRAY 

369 

370 

403/S 

653 

o o 

F SURF 

REAL 

SIMPLE 

547/S 

548 

550 

55  T 

552 

^ 3? 

FUSION 

OANOOT 

REAL 

ARRAY 

256 

274 

6S2/S 

682 

F WE  T 

CNTRLP 

REAL 

SIMPLE 

3 19 

531 

"0  ID 

GAM 

RADCOM 

REAL 

ARRAY 

346 

489/S 

601 

610'S 

620 

625/S 

O *~3 

GAMC 

REAL 

SIMPLE 

502/S 

504 

507 

524 

o % 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

320 

489 

50  1 

53S 

610 

625 

To  F 

GAMS 

REAL 

SIMPLE 

538/S 

539 

i 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

156 

<0  -n 

GNU2 

RCNTRL 

REAL 

SIMPLE 

T 59 

C 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

404 

47  1 

502 

5 te 

5 19 

527 

627 

is 

GT 

0 ANDO  T 

REAL 

ARRAY 

245 

263 

403 

437  /S 

437 

430 

68  1/5 

I*-* 

GTOPO 

CNTRLP 

REAL 

SIMPLE 

32  1 

GW 

QANDQT 

REAL 

ARRAY 

246 

264 

398 

425 

436/S 

4 40 

rtf* 

H1DT 

RDPARM 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

2 2 6 

heati 

RCNTRL 

real 

SIMPLE 

182 

650 

HEATW 

RCNTRL 

REAL 

SIMPLE 

18  1 

648 

654 

HF  LUX 

QANDQT 

REAL 

ARRAY 

254 

272 

675/1 

675 

HH 

RADCOM 

REAL 

ARRAY 

349 

575/S 

HHE 

RADCOM 

real 

ARRAY 

34  9 

576/S 

HHS 

RADCOM 

REAL 

ARRAY 

350 

577/S 

58  1 /S 

MICE 

CNTRLP 

REAL 

SIMPLE 

322 

667 

I 

INTEGER 

SIMPLE 

397/C 

398 

398 

399 

399 

399 

400 

400 

400 

40  1 

401 

402 

402 

402 

403 

403 

403 

404 

404 

404 

406/C  407 

407 

408 

409 

4 10 

4 1 3 ' C 

4 14 

414 

4 15 

4 15 

4 1 6 

419 

420 

420 

42  1 

42  1 

4 23/C 

424 

424 

427/C 

428 

4 28 

430 

43  1 

431 

431 

432 

432 

432 

433 

433 

433 

435/C  436 

436 

437 

437 

437 

438 

438 

439 

440 

440 

440 

443 

4 44 

444 

444 

448  'C 

440 

449 

449 

450 

450 

45  1 

45  1 

45  1 

451 

452 

453 

454 

454 

455 

455 

459/C 

460 

460 

461 

46  1 

462 

462 

462 

470/C 

471 

472 

472 

472 

472 

473 

473 

474 

474 

475 

475 

478 

478 

479 

479 

480 

480 

480 

43  1 

481 

4B  1 

483 

483 

484 

4 84 

487/C  488 

488 

483 

489 

489 

489 

490 

490 

490 

49  2 /C 

493 

496 

495 

497 

497 

498 

499 

500 

500 

50  1 

503 

504 

504 

505 

506 

5 06 

506 

506 

507 

50B 

508 

508 

509 

509 

509 

509 

513 

5 13 

5 14 

5 14 

515 

5 16 

5 16 

5 T 6 

517 

5 17 

5 18 

5 19 

5 1 9 

5 19 

520 

523 

523 

523 

524 

525 

525 

525 

526 

526 

526 

526 

526 

530 

531 

531 

532 

532 

532 

533 

533 

534 

534 

535 

535 

535 

525 

535 

535 

535 

536 

537 

538 

538 

539 

540 

540 

54  1 

54  1 

543 

543 

545  /C 

546 

546 

546 

547 

547 

5 47 

548 

548 

548 

549 

549 

549 

550 

550 

550 

550 

55  I 

55  1 

551 

552 

552 

552 

554/C 

555 

558  /C 

559 

560 

567. 'C 

568 

568 

570 

570 

570 

570 

57  1 

571 

57  1 

57  1 

572 

572 

572 

573 

573 

573 

573 

573 

574 

574 

574 

574 

574 

575 

575 

575 

576 

576 

576 

577 

577 

577 

5S0.  c 

58  1 

58  1 

581 

535  /C 

5S7 

5SS 

588 

588 

589 

592/C 

593 

593 

599 

600 

600 

601 

60  1 

601 

603 

604 

604 

605 

605 

606 

606 

607 

607 

608 

608 

609 

609 

609 

6 TO 

610 

610 

6 t 0 

613/C 

616 

616 

617 

6 18 

618 

620 

620 

620 

622 

622 

623 

623 

624 

624 

624 

625 

625 

625 

625 

627 

629 

629 

629 

629 

630 

630 

630 

63  1 

63  1 

63  1 

636 

637 

638 

638 

638 

639 

642/C 

643 

643 

644 

644 

64  7 

649 

65  T 

652 

653 

655 

655 

655 

658 

65  1 

664 

664 

664 

667 

667 

668 

669 

670 

672 

672 

673 

674 

674 

675 

675 

676 

676 

677 

677 

678 

679 

6S0 

6B0 

680 

680 

680 

680 

680 

681 

63  1 

681 

682 

se2 

6S5/C  686 

686 

689/C 

690 

690 

690 

690 

690 

690 

69  I 

691 

692 

692 

693 

693 

696 /C 

697 

697 

698 

69B 

698 

699 

699 

699 

703/C 

704 

704 

705 

705 

706 

706 

707 

707 

7 15 

i 

\ 

i 

i 

r 

l 

\ 


if 


i 


51  u • . t V 'VI7 


7tG 

716 

7 1 7 

7 1 7 

721 

722 

722 

723 

7 28 

729 

729 

730 

rc 

ICNTRL 

INTEGER 

ARRAY 

90 

9 1 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

9 1 

ICE 

R A DCOM 

LOGICAL 

ARRAY- 

3GB 

370 

398  / 5 

399 

I CLOUD 

QANDQT 

INTEGER 

ARRAY 

259 

277 

604/S 

604 

ICMTRL 

INTEGER 

UNKNOWN 

25 

26 

27 

28 

36 

37 

38 

39 

47 

48 

49 

50 

58 

59 

60 

61 

69 

70 

7 1 

72 

I CSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

SB 

IDPARM 

INTEGER 

UNKNOWN 

T 89 

190 

19  1 

192 

ID5P02 

IDPARM 

INTEGER 

SIMPLE 

1 90 

IEFLUK 

ICNTRL 

INTEGER 

UNKNOWN 

82 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

83 

I HF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

81 

1 1 CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

IBS 

IIW 

ICNTRL 

INTEGER 

SIMPLE 

26 

397 

406 

4 1 3 

459 

470 

487 

492 

599 

613 

636 

642 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

iMoapt 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAY 

19  1 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

B7 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

SO 

iqs 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

79 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

B7 

88 

89 

IRADLWG 

ICNTRL 

INTEGER 

unknown 

B5 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

B9 

I R ADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

20  1 

204 

I TMA  X 

ICNTRL 

INTEGER 

unknown 

78 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

d 

INTEGER 

SIMPLE 

1 

39S 

399 

40  1 

43  1 

432 

432 

436 

500 

501 

5 13 

5 1 4 

6 18 

6 18 

630 

630 

G77 

68  t 

682 

682 

698 

698 

693 

699 

720 

721 

728 

728 

JALB 

RADCOM 

INTEGER 

SIMPLE 

367 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

d£ 

IDPARM 

INTEGER 

ARRAY 

194 

JIC 

CCNTRL 

CHAR*  B 

SIMPLE 

5 

18 

dM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

dNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

d04 

ICNTRL 

INTEGER 

SIMPLE 

34 

d08 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR  *8 

SIMPLE 

6 

1 9 

dP 

IDPARM 

INTEGER 

ARRAY 

195 

dSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

integer 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

L 

INTEGER 

SIMPLE 

412/C 

4 14 

4 1 4 

4 1 5 

426/C 

428 

428 

446 

45  1 

45  1 

453 

455 

472 

473 

473 

474 

7 18 

7 18 

7 19 

7 19 

720 

720 

721 

723 

724 

724 

724 

724 

725 

728 

730 

731 

731 

400 

652 

667 

6 1 8 / S 

6 18 

29 

30 

31 

32 

33 

34 

35 

4 0 

4 1 

42 

43 

44 

45 

46 

51 

52 

53 

54 

55 

56 

57 

62 

63 

64 

65 

65 

G7 

6B 

73 

74 

75 

76 

193 

194 

195 

196 

1 97 

198 

t99 

419 

423 

427 

430 

435 

443 

445 

545 

554 

558 

567 

580 

586 

592 

647 

685 

GB9 

696 

703 

715 

80 

81 

B2 

83 

B4 

85 

86 

40  1 

403 

404 

407 

4 1 4 

4 15 

43  1 

436 

437 

437 

43B 

440 

498 

499 

55  1 

55  1 

552 

552 

595 

604 

604 

63  1 

S3  1 

646 

675 

675 

676 

676 

690 

691 

69  1 

692 

693 

693 

697 

699 

699 

70  1 

705 

705 

707 

719 

729 

7 29 

730 

730 

731 

73J 

4 15 

4 1 6 

4 18/C 

420 

420 

42  1 

421 

447 

449 

449 

449 

450 

45  1 

451 

455 

4 65/C 

466 

467 

469 

472 

472 

474 

475 

475 

479 

479 

481 

48  1 

fo 

M 


ORIGINAL  PAGE  SS 
OF  POOR  QUALITY 


h ! 

48  1 

484 

If  . 

490 

490 

& 

570 

570 

6. 

574 

574 

[ 

577 

583/ C 

tj 

60S 

608 

k ; 

635 

638 

li 

69  1 

692 

ff: 

720 

721 

E ■ i 

LAND 

R A DCOM 

LOGICAL 

ARRAY 

368 

370 

l :■ 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

1 44 

it 

fr  : 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

32 

143 

lcntrl 

INTEGER 

UNKNOWN 

92 

93 

I'  1 

103 

104 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

I i 

LDPARM 

INTEGER 

UNKNOWN 

200 

201 

r f 

LEF  LUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

1 35 

■t 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

t'' 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

: 

LI  CLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

* 

LM1 

INTEGER 

SIMPLE 

447/S 

450 

4G9 

472 

}■  ' 

478 

480 

i ■ 

570 

571 

SB9 

597/S 

605 

606 

714 

724 

L0G8R 

ICNTRL 

INTEGER 

SIMPLE 

42 

!.• 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

1 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

;v\ 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

133 

LQS 

LCNTRL 

LOGICAL 

array 

103 

105 

128 

v 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

1 04 

1 15 

LRADLWG 

LCNTRL 

logical 

UNKNOWN 

1 13 

133 

i, 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

!r 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

r » 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

I'- 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

ll' 

LX 

INTEGER 

SIMPLE 

562/C 

563 

iV 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

■ L 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

j : 

MIXWI 

RADCOM 

LOGICAL 

ARRAY 

369 

370 

; . 

t . 

MJ 

IDPARM 

INTEGER 

ARRAY 

IS? 

MLF 

ICNTRL 

INTEGER 

ARRAV 

46 

i 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

X 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

■ 1 

N 

INTEGER 

SIMPLE 

442/C 

619/C 

f 

NB 

ICNTRL 

INTEGER 

SIMPLE 

50 

407 

\ 1 

56  1 

552 

720 

721 

ND 

ICNTRL 

integer 

SIMPLE 

5 1 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

I -t 

NDAV 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

j 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

i 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

WDT 

ICNTRL 

INTEGER 

SIMPLE 

57 

f 

NDTC3 

CNTRLP 

INTEGER 

SIMPLE 

323 

NFK 

RADCOM 

INTEGER 

SIMPLE 

360 

NFLW 

CNTRLP 

INTEGER 

SIMPLE 

324 

K . 
! 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

I-; 

NHfflSO 

ICNTRL 

INTEGER 

SIMPLE 

60 

! :!  j 

NHMSt 

IDPARM 

INTEGER 

SIMPLE 

198 

■ *; 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

-■  .. 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

61 

409 

f 


484 

486/C 

4 88 

488 

488 

489 

4B9 

489 

490 

557/C 

559 

560 

563/S 

564 

565 

565 

566 

568 

570 

571 

57  1 

572 

572 

573 

573 

573 

573 

574 

57S 

575 

575 

576 

576 

576 

577 

577 

584 

585 

5B8 

5B8 

596/C 

597 

593 

607 

607 

609 

609 

609 

6 1 0 

610 

6 10 

6 10 

633/C 

634 

638 

688/C 

690 

690 

690 

690 

690 

690 

691 

692 

693 

693 

709/C 

710 

71  1 

7 12 

7 13 

719 

724 

724 

729 

7 29 

731 

731 

400/S 

40  1 

402/S 

402 

403 

440 

144 

94 

95 

96 

97 

98 

99 

100 

101 

102 

202 


45  1 

45  1 

45  l 

45  1 

452 

454 

454 

465/S 

468 

472 

472 

473 

473 

474 

474 

475 

475 

478 

430 

4ao 

4S3 

483 

564/S 

5 65 

566 

566 

568 

57  1 

572 

573 

574 

574 

584/S 

535 

5S7 

588 

598 

600 

600 

601 

60  1 

60  1 

603 

604 

605 

606 

634/S 

635 

637 

638 

639 

7 10/S 

71  1 

712 

724 

72B 

7 28 

730 

730 

106  107  108  103  110  lit 

116  1 T 7 129 


414 

415 

431 

43  1 

432 

432 

513 

514 

552 

690 

69  1 

69  1 

692 

705 

70S 

707 

728 

728 

729 

729 

730 

730 

73  t 

73  1 

410  412  4 18  426  431  432  446  465  486 


496 

497 

503 

S 13 

5 14 

550 

550 

55  1 

SSI 

552 

593 

593 

596 

616 

6 16 

622 

623 

623 

624 

624 

633 

643 

643 

6BB 

709 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

62 

431 

432 

NLAYOZ 

R A DCOM 

INTEGER 

SIMPLE 

359 

NLAYP1 

ICNTRO 

integer 

SIMPLE 

63 

403 

4 24 

493 

507 

5 36 

538 

5 39 

540 

540 

677 

697 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NOZ 

R A DCOM 

INTEGER 

SIMPLE 

363 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

N5EQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYWID 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMDQ 

ICNTRL 

I NTEGER 

SIMPLE 

71 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

t 99 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OCEAN 

RADCOM 

LOGICAL 

ARRAY 

363 

37  0 

399/S 

400 

404 

0CM22 

RADCOM 

REAL 

ARRAY 

362 

0CM30 

RADCOM 

REAL 

ARRAY 

362 

0CM3B 

RADCOM 

REAL 

ARRAY 

362 

0CM46 

RADCOM 

REAL 

ARRAY 

362 

OCMXX 

RADCOM 

REAL 

ARRAY 

363 

OUAPR 

RADCOM 

REAL 

ARRAY 

36  1 

OL  JAN 

RADCOM 

REAL 

ARRAY 

36  1 

OLJUL 

RADCOM 

REAL 

ARRAY 

36  1 

OLOCT 

RADCOM 

REAL 

ARRAY 

36  1 

OMEGA 

0 ANDO  T 

REAL 

ARRAY 

284 

293 

OMEGAS 

RCNTRL 

REAL 

SIMPLE 

161 

OZALE 

RADCOM 

REAL 

ARRAY 

355 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

407 

PCLOW 

PCON 

REAL 

ARRAY 

373 

629 

PCM  ID 

PCON 

REAL 

array 

371 

629 

PCON 

REAL 

UNKNOWN 

37  1 

37  2 

373 

PCPEN 

PCON 

REAL 

ARRAY 

372 

629 

PHI 

QANDOT 

REAL 

ARRAY 

283 

292 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

399 

404 

PI 

RCNTRL 

REAL 

SIMPLE 

1 62 

PI  ISO 

RCNTRL 

REAL 

SIMPLE 

t 63 

P I 2 

RCNTRL 

REAL 

SIMPLE 

164 

655 

664 

RIM 

CNTRLP 

REAL 

SIMPLE 

325 

686 

RIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PKSTD 

RDPAftM 

REAL 

SIMPLE 

227 

PKTOP 

RDPARM 

REAL 

SIMPLE 

228 

PL 

RADCOM 

REAL 

ARRAY 

340 

420/S 

42B 

472 

472 

RLE 

RADCOM 

REAL 

ARRAY 

340 

421/S 

424/S 

493 

PLEVS 

RCNTRL 

REAL 

ARRAY 

180 

PLH 

RADCOM 

REAL 

ARRAY 

34  T 

42B/S 

444 

449 

45  1 

4B1 

549 

ssa 

568 

PLKE 

RADCOM 

REAL 

ARRAY 

34  1 

POTBAR 

REAL 

SIMPLE 

724/S 

725 

630/5 

630 

PREACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PR EC IP 

REAL 

SIMPLE 

6 14/S 

627/S 

629 

631 

PRECON 

QANDQT 

REAL 

ARRAY 

253 

27  1 

63  1/S 

631 

PREP 

RADCOM 

REAL 

ARRAY 

364 

629/S 

630 

631 

PROCM 

RADCOM 

REAL 

ARRAY 

363 

PS 

REAL 

SIMPLE 

493/S 

494 

49B 

500 

534 

P.5  It 

REAL 

SIMPLE 

494  / S 

503 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

1 68 

P S TO 

RCNTRL 

REAL 

SIMPLE 

165 

PTOP 

RCNTRL 

REAL 

SIMPLE 

1 69 

420 

42  1 

424 

PZERO 

RCNTRL 

REAL 

SIMPLE 

186 

QALT 

LCNTRL 

logical 

S I MP  LE 

93 

1 18 

QANDQT 

REAL 

UNKNOWN 

24  1 

278 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 19 

ODAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

1 20 

535 

54B 

548 

552 

555 

557 

617 

618 

620 

624 

625 

625 

508 

524 

525 

54  1 

54  1 

543 

543 

549 

549 

552 

563 

583 

G20 

620 

622 

525 

625 

627 

535 

536 

537 

54  G 

644 

644 

462  649  678 


o 

"11 

“D 

O 

o 

33 

tO 

C 


O 

30 

•WT 

s 

£ 

"0 

5J* 

g 


488 

609 

624 

724 

724 

45  1 

454 

455 

473 

473 

4S0 

536  543 


O 

§ 


•n 

03 


ro 

03 


qend 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

COMP  3 

OHDG 

CNTRLP 

LOGICAL 

SIMPLE 

326 

338 

N> 

QOLiT 

lcntrl 

LOGICAL 

SIMPLE 

97 

1 22 

604 

6 18 

4>- 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

9S 

1 23 

ORSK 

lcntrl 

LOGICAL 

SIMPLE 

102 

127 

QR5W 

LCNTRL 

LOGICAL 

SIMPLE 

1 0 1 

126 

03 

QANDQT 

REAL 

ARRAY 

24  I 

260 

26  1 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

QSHF 

lcntrl 

LOGICAL 

SIMPLE 

99 

1 24 

QU 

qandqt 

real 

ARRAY 

278 

288 

289 

290 

291 

792 

293 

294 

295 

296 

RADCOM 

REAL 

UNKNOWN 

339 

340 

34  t 

342 

343 

3 1 A 

345 

346 

347 

34B 

349 

350 

35  1 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

RACE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

REAL 

ARRAY 

28  7 

296 

RADLWG 

qandot 

REAL 

ARRAY 

258 

276 

RADSW 

QANDQT 

REAL 

ARRAY 

2B6 

295 

RAD  SWG 

qandqt 

REAL 

ARRAY 

257 

275 

RAOTRM 

R A DCOM 

REAL 

ARRAY 

365 

68  1 

RC 

RCNTRL 

REAL 

ARRAY 

1 37 

188 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

188 

RCLQUD 

radcom 

REAL 

ARRAY 

367 

RCNTRL 

REAL 

UNKNOWN 

145 

146 

147 

148 

1 49 

150 

15  1 

152 

t 53 

1S4 

155 

15  6 

157 

1 58 

159 

ISO 

16  1 

162 

163 

1 64 

165 

166 

167 

168 

169 

170 

17  1 

1 72 

173 

174 

175 

176 

177 

178 

179 

180 

18  1 

182 

183 

184 

185 

1 SS 

RDPARM 

REAL 

UNKNOV/N 

206 

207 

208 

209 

2*0 

21  1 

212 

213 

214 

215 

216 

217 

218 

2 19 

220 

22  1 

222 

223 

224 

225 

226 

227 

228 

229 

230 

23  1 

232 

233 

234 

235 

236 

237 

238 

239 

240 

RE 

RADCOM 

PLAL 

ARRAY 

339 

690 

690 

RGA5  ' 

RCNTRL 

REAL 

SIMPLE 

17  1 

47  1 

502 

543 

RH 

RADCOM 

REAL 

ARRAY 

347 

490/S 

496 

4g7 

RHOS 

DCOM P 3 

REAL 

ARRAY 

3S7 

543/5 

547 

672 

RHPWET 

REAL 

SIMPLE 

496/S 

497 

497 

S o 

^ ro 

RHS 

REAL 

simple 

495/S 

497/S 

502 

RICH 

REAL 

SIMPLE 

527/S 

5 28 

RKDN 

real 

SIMPLE 

568/5 

569 

570 

"o  o 

R KLIP 

REAL 

SIMPLE 

5G9/S 

571 

o ^ 

RLAT 

RDPARM 

REAL 

ARRAY 

229 

40  1 

401 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

RN 

RADCOM 

REAL 

ARRAY 

357 

nocp 

RCNTRL 

REAL 

SIMPLE 

172 

502 

502 

<C 

f:* 

L:  ^ 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

23  1 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

232 

RSOIST 

RCNTRL 

REAL 

SIMPLE 

173 

RSURF 

RADCOM 

REAL 

ARRAY 

367 

30 

RADCOM 

REAL 

SIMPLE 

365 

3 s 

SDAY 

RCNTRL 

REAL 

SIMPLE 

174 

655 

664 

672 

680 

SEASON 

RCf  fT  r L 

REAL 

SIMPLE 

175 

SG 

RADCOM 

REAL 

ARRAY 

366 

SGNP 

RDPARM 

real 

ARRAY 

233 

SH 

QANDQT 

REAL 

ARRAY 

282 

291 

4 15 

692/S 

SHG 

RADCOM 

REAL 

ARRAY 

345 

534/S 

535 

546 

670 

SHL 

RADCOM 

REAL 

ARRAY 

344 

4 15/S 

475 

475 

403/S 

483 

484/S 

484 

490 

535 

550 

550 

572 

572 

573 

573 

575 

587 

568 /S 

583 

BBS 

5B9 

593 

593/S 

600 

60  1 

606  /S 

606 

608/S 

60S 

6 16 

620 

623 

623 

637 

638 /S 

636 

638 

639/S 

643 

643  / S 

692 

SHLE 

RADCOM 

REAL 

ARRAY 

344 

535/S 

537 

539 

54  1 /S 

541 

546 

572/S 

573 

573/S 

573 

574/S 

574 

576 

644 

644/S 

677 

SHL TOP 

CNTRLP 

REAL 

SIMPLE 

327 

SHS 

QANDQT 

REAL 

ARRAY 

248 

266 

677/S 

SHSAT 

RADCOM 

REAL 

ARRAY 

346 

48B/S 

489 

490 

574 

577 

set 

600 

60  T 

609/S 

610 

616 

620 

624/S 

625 

SH5ATS 

real 

SIMPLE 

498/S 

499 

536/5 

537 

538 

539 

SIG 

RDPARM 

REAL 

ARRAY 

240 

420 

474 

474 

475 

475 

712 

712 

SIGE 

RCNTRL 

REAL 

ARRAY 

176 

421 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

SINL 

RDPARM 

REAL 

ARRAY 

234 

t 

I 

l 

i 


5INLON 

RDPARM 

REAL 

ARRAY 

235 

SINROT 

CNTRLP 

REAL 

SIMPLE 

3 23 

SMTH 

QANDQT 

REAL 

ARRAY 

243 

261 

5N2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

100 

125 

SNOW 

RADCOM 

LOGICAL 

ARRAY 

359 

370 

5NOWN 

CNTRLP 

REAL 

SIMPLE 

329 

40  1 

SNOWS 

CNTRLP 

REAL 

SIMPLE 

330 

401 

SOLS 

RCNTRL 

REAL 

SIMPLE 

178 

SP 

RADCOM 

REAL 

array 

366 

407/5 

SR5 

RADCOM 

REAL 

ARRAY 

357 

SS5 

RADCOM 

REAL 

ARRAY 

348 

555/S 

S5SE 

RADCOM 

REAL 

ARRAY 

348 

570/5 

START 

LDP ARM 

LOGICAL 

SIMPLE 

202 

205 

STBO 

CNTRLP 

REAL 

SIMPLE 

33  1 

669 

STERP1 

CNTRLP 

REAL 

SIMPLE 

332 

431 

STERP2 

CNTRLP 

REAL 

SIMPLE 

333 

431 

STN 

RADCOM 

REAL 

ARRAY 

357 

SWALE 

RADCOM 

REAL 

ARRAY 

353 

SWIL 

RADCOM 

REAL 

ARRAY 

353 

T 

QANDQT 

REAL 

ARRAY 

28  1 

290 

TAUL 

RADCOM 

REAL 

ARRAY 

355 

TCOND 

RADCOM 

real 

ARRAY 

358 

TDML 

REAL 

SIMPLE 

506/S 

507 

TON 

DC0MP3 

REAL 

ARRAY 

395 

707/S 

TEM 

REAL 

SIMPLE 

566  / S 

667/S 

TEMP 

REAL 

SIMPLE 

499/S 

50  1 

726 

727 

TEMPI 

REAL 

SIMPLE 

471/S 

477 

TEMP2 

REAL 

SIMPLE 

472/S 

476/S 

TEMP3 

REAL 

SIMPLE 

473/S 

477 

TEMP4 

REAL 

SIMPLE 

474/S 

477 

TEMP5 

REAL 

SIMPLE 

475/S 

482 

TEMP6 

REAL 

SIMPLE 

477/S 

47B 

TEMPO 

REAL 

SIMPLE 

726/S 

728 

TEMPV 

REAL 

SIMPLE 

727/S 

730 

TERM2 

REAL 

SIMPLE 

673/S 

675 

TERM3 

REAL 

SIMPLE 

S74/S 

676 

TERM4 

REAL 

SIMPLE 

679/S 

6B1 

TG 

RADCOM 

REAL 

ARRAY 

343 

438/S 

TG5Q 

REAL 

SIMPLE 

668/  S 

669 

TH 

RADCOM 

REAL 

ARRAY 

343 

444/5 

503 

549/S 

THETA 

REAL 

SIMPLE 

45  1 /S 

452 

THG 

REAL 

SI?^PLE 

501  /S 

502 

TH5T0 

RDPARM 

REAL 

SIMPLE 

236 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

THT9 

REAL 

SIMPLE 

503/S 

504 

TICE 

CNTRLP 

REAL 

SIMPLE 

334 

403 

TL 

RADCOM 

REAL 

ARRAY 

342 

4 14/S 

47B 

479/S 

570 

57  1 

622 

624 

TLE 

RADCOM 

REAL 

ARRAY 

342 

507/S 

697 

TLOVJL 

RADCOM 

REAL 

SIMPLE 

359 

TLTOP 

CNTRLP 

REAL 

SIMPLE 

335 

TMAfl 

QANDQT 

REAL 

ARRAY 

251 

269 

TMIDL 

RADCOM 

REAL 

SIMPLE 

359 

TWIN 

QANDQT 

REAL 

ARRAY 

250 

268 

TN 

RADCOM 

REAL 

ARRAY 

357 

TOPABS 

RADCOM 

REAL 

ARRAY 

356 

T0TQ2 

RADCOM 

REAL 

ARRAY 

363 

TPENE 

RADCOM 

REAL 

ARRAY 

358 

TS 

QANDQT 

REAL 

ARRAY 

247 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

179 

TUP 

D COMP 3 

REAL 

ARRAY 

394 

718/S 

U 

QANDQT 

REAL 

ARRAY 

279 

288 

729/S 

729 

UDW 

DC0MP3 

REAL 

ARRAY 

39  J 

705/S 

US 

DC0MP3 

REAL 

ARRAY 

376 

431  /S 

401/S  402  437  651 


420 

421 

424 

471 

SOO 

547 

627 

686 

704 

570 

571 

57  1 /S 
574 

574 

576 

575 

577 

58  1 

432 

432 


4 14 

690 

69  1/S 

691 

5 1 0 

521  /S 

522/S 

523/S 

7 18 

721  /S 

724 

679 

502 

680 

539/S 

540 

541 

482 

476 

477 

482 

479 

729 

4S2/S 

483 

484 

731 

68  1 

68  1 

GB2 

504 

503 

5 15 

525 

670 

449/S 

450 

450 

452/S 

453 

454 

455 

502 

507 

524 

437 

679 

444 

449 

45  1 

45  1 

479 

480 

4 8 T 

488 

571 

605/S 

605 

607/S 

625 

625 

690 

508 

524/S 

525 

536 

699/S 

699 

G98/S 

698 

498 

499 

500 

50  1 

724 

43  1 

43  1 

5 1 3 

551  /S 

7 16 

7 19/S 

722 

433 

5 1 3 

55  1 

707 

721 

523 

524 

527 

672/S 

673 

674 

680 

534  068  669  679 

453/5  474  474  480/S 


454/5 

455/S 

472 

472 

489 

548/5 

548 

549 

607 

609 

6 1 0 

6 10 

538 

538 

540/S 

540 

697/S 

698 

699 

551 

70S 

7 1 9 

728/S 

725 


6S1 

481 


478 

570 

622 

543 


7 28 


O 

O 


LO 


to 

UT 


ORIGINAL  PAGE  ES 
OF  POOR  QUALITY 


UUP 

D COMP 3 

REAL 

ARRAY 

390 

716/S 

722 

V 

QANDQT 

REAL 

ARRAY 

280 

2B9 

432 

432 

5 14 

552/S 

552 

706 

720 

730 /S 

731/S 

731 

vow 

DC0MP3 

REAL 

ARRAY 

393 

706/S 

717 

720/S 

723 

VER 

CCNTRL 

CHARTS 

SIMPLE 

10 

23 

VS 

DCOMP3 

REAL 

ARRAY 

377 

432/S 

433 

514 

552 

VUP 

DCOMP3 

REAL 

ARRAY 

392 

7 t 7/S 

723 

WET 

RADCOM 

REAL 

ARRAY 

354 

439/S 

440/S 

496 

497 

531 

655 

655 

664 

664 

WI 

RADCOM 

REAL 

ARRAY 

364 

WMAG 

0C0MP3 

REAL 

ARRAY 

379 

460/S 

461 

506 

509 

5tS 

517 

WMAGC 

D0OMP3 

REAL 

ARRAY 

383 

516/S 

526 

WMAGS 

DC0MP3 

REAL 

ARRAY 

373 

433/S 

460 

516 

518 

519 

523 

526 

WEAVE 

RDPARM 

REAL 

ARRAY 

238 

XDAV 

CNTRLP 

REAL 

SIMPLE 

336 

XK 

RADCOM 

REAL 

ARRAY 

360 

xlabel 

CCNTRL 

CHARTS 

ARRAY 

1 1 

24 

z 

DC0MP3 

REAL 

ARRAY 

375 

404/S 

462 

667 

ZLN 

REAL 

SIMPLE 

500/S 

502 

5 10 

5 t 7 

5 fS 

5 19 

527 

530 

ZLNCO 

CNTRLP 

REAL 

SIMPLE 

337 

500 

PROCEDURE 
--NAME 

MAP 

TYPE- 

* - -CLASS 

-REFERENCES 

D=STMT 

FN  DGF . 

A = ARGL I ST 

A6S 
AMAX1 
AMI  NT 
COMP 35 
CUHULO 
EXP 

EXPBYK 

OSAT 

RADIO 

SORT 


REAL 

REAL 

REAL 


REAL 

REAL 

REAL 


INTRINSIC 

INTRINSIC 

INTRINSIC 

SUBROUTINE 

SUBROUTINE 

INTRINSIC 

FUNCTION 

FUNCTION 

SUBROUTINE 

INTRINSIC 


521 

460 

522 

515 

523 

533 

693 

437 

461 

506 

531 

S 74 

698 

701 
595 
5 10 
42B 
488 

494 

498 

534 

536 

609 

624 

646 

460 

506 

509 

521 

6S5 

664 

27 


o 

f. 


REAL 


C0MP3  26 


9 


■V  ■ | ■ 


' \ v 1 n ' 


OOOO  1 

C 

C 

SUBROUTINE  C0MP35  (J1 

CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCOMP35 

SCNTRL 

SCNTRL 

2 

2 

3 

00002 

COMMON 

/CCNTRL / 

CCQ 

SCNTRL 

5 

00003 

COMMON 

/CCNTRL / 

ADATE 

SCNTRL 

6 

00004 

COMMON 

/CCNTRL/ 

ATIME 

SCNTRL 

7 

00005 

COMMON 

/CCNTRL/ 

JIC 

SCNTRL 

8 

OQOOS 

COMMON 

/CCNTRL/ 

JOB 

SCNTRL 

9 

00007 

COMMON 

/CCNTRL/ 

CCSP06 

SCNTRL 

1 0 

00008 

COMMON 

/CCNTRL/ 

CCSP07 

SCNTRL 

1 1 

00009 

COMMON 

/CCNTRL/ 

CCSP08 

SCNTRL 

12 

000  1 o 

COMMON 

/CCNTRL/ 

VER 

SCNTRL 

13 

0001  1 

COMMON 

/CCNTRL/ 

XLABEL  ( T 0 > 

SCNTRL 

14 

00012 

COMMON 

/CCNTRL/ 

CQ5  <30> 

SCNTRL 

15 

000  13 

COMMON 

/CCNTRL/ 

CQU  < 10  > 

SCNTRL 

16 

c 

SCNTRL 

17 

000  1 4 

EQUIVALENCE 

(CCO,CC( t 1 ) 

SCNTRL 

18 

000  1 5 

CHARACTER'S 

CCO,  CC ( 20Q 1 

SCNTRL 

19 

00016 

CHARACTER  *8 

ADATE 

SCNTRL 

20 

000  17 

CHARACTER  *8 

ATIME 

SCNTRL 

21 

000  18 

CHARACTER'S 

JIC 

SCNTRL 

22 

000  19 

CHARACTER'S 

JOB 

SCNTRL 

23 

00020 

CHARACTER  *8 

CCSP06 

SCNTRL 

24 

00021 

CHARACTER  *8 

CCSP07 

SCNTRL 

2o 

00022 

character's 

CCSP08 

SCNTRL 

26 

0 0 0 23 

CHARACTER  * B 

VER 

SCNTRL 

27 

00024. 

CHARACTER*  8 

XLABEL 

SCNTRL 

28 

c 

SCNTRL 

29 

c 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

30 

c 

Sr^=S35==3====S2==S======SS=S= 

SCNTRL 

3 t 

00025 

COMMON 

/ I CWTRL / 

ICO 

SCNTRL 

32 

00026 

COMMON 

/ I CNTRL / 

IM 

SCNTRL 

33 

00027 

COMMON 

/ I CNTRL / 

1MD2 

SCNTRL 

34 

00028 

COMMON 

/ I CNTRL/ 

IMD2P1 

SCNTRL 

35 

00029 

COMMON 

/ I CNTRL / 

NDRSW 

SCNTRL 

36 

00030 

COMMON 

/ I CNTRL / 

JM 

SCNTRL 

37 

00031 

COMMON 

/ I CNTRL / 

JMD2 

SCNTRL 

38 

00032 

COMMON 

/ I CNTRL / 

JMT2 

SCNTRL 

39 

00033 

COMMON 

/ I CNTRL / 

JNP 

SCNTRL 

40 

00034 

COMMON 

/ICWTRL/ 

J04 

SCNTRL 

4 T 

00035 

COMMON 

/ I CNTRL / 

JOS 

SCNTRL 

42 

00036 

COMMON 

/ I CNTRL / 

JSP 

SCNTRL 

43 

00037 

COMMON 

/ ICNTRL / 

KLIALB 

SCNTRL 

44 

00038 

common 

/ TCNTRL / 

KL1GW 

SCNTRL 

45 

00039 

COMMON 

/ICNTRL/ 

KLISST 

SCNTRL 

46 

00040 

COMMON 

/ICNTRL/ 

KS 

SCNTRL 

47 

0004  1 

common 

/ICNTRL/ 

KU 

SCNTRL 

48 

00042 

COMMON 

/ICNTRL/ 

LOGBR 

SCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

MATIN 

SCNTRL 

SO 

00044 

COMMON 

/ICNTRL/ 

MATSNX 

SCNTRL 

5 1 

00045 

COMMON 

/ICNTRL/ 

MATSUN 

SCNTRL 

52 

00046 

COMMON 

/ICNTRL/ 

MLF  H2J 

SCNTRL 

53 

00047 

COMMON 

/ICNTRL/ 

MROD 

SCNTRL 

54 

0 0 04  S 

COMMON 

/ICNTRL/ 

NKRSH 

SCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

MSM 

SCNTRL 

56 

00050 

COMMON 

/ICNTRL/ 

NB 

SCNTRL 

57 

0005  1 

COMMON 

/ICNTRL/ 

ND 

5CNTRL 

58 

00052 

COMMON 

/ICNTRL/ 

ndalt 

SCNTRL 

59 

00053 

COMMON 

/ICNTRL/ 

NDAY 

SCNTRL 

60 

00054 

COMMON 

/ICNTRL/ 

NDOUT 

SCNTRL 

6 f 

00055 

COMMON 

/ICNTRL/ 

NDPHY 

SCNTRL 

62 

00056 

COMMON 

/ICNTRL/ 

NDSHF 

SCNTRL 

53 

00057 

COMMON 

/ICNTRL/ 

NOT 

SCNTRL 

64 

00058 

COMMON 

/ICNTRL/ 

NHMS 

SCNTRL 

65 

00059 

COMMON 

/ICNTRL/ 

NHMSE 

SCNTRL 

66 

00060 

COMMON 

/ICNTRL/ 

NHMSO 

SCNTRL 

67 

0005  1 

COMMON 

/ICNTRL/ 

NLAY 

SCNTRL 

68 

00062 

COMMON 

/ICNTRL/ 

NLAYM1 

SCNTRL 

69 

Q0063 

COMMON 

/ICNTRL/ 

NLAYP 1 

SCNTRL 

70 

00064 

COMMON 

/ICNTRL/ 

NSDAY 

SCNTRL 

7 1 

o 

o 


5 


LO 

Ln 


(— 1 


ORIGINAL  PAGE  ?£ 
OF  POOR  QUALITY 


00065 

COMMON  / I CNTRL / 

NSEQ 

scntrl 

72 

00066 

COMMON  / ICNTRL  / 

ICSP53 

SCNTRL 

73 

00067 

COMMON  /ICNTRL/ 

NSTEP 

scntrl 

74 

OOO  63 

COMMON  /ICNTRL/ 

ICSP55 

SCNTRL 

75 

00069 

COMMON  /ICNTRL/ 

NYMD 

SCNTRL 

76 

00070 

COMMON  /ICNTRL/ 

NYMDE 

SCNTRL 

77 

0007  1 

COMMON  / ICNTRL / 

NYMDO 

SCNTRL 

78 

00072 

COMMON  /ICNTRL/ 

N2INIT 

SCNTRL 

79 

00073 

COMMON  /ICNTRL/ 

NMLEV 

SCNTRL 

SO 

00074 

COMMON  /ICNTRL/ 

NDHOG 

SCNTRL 

S 1 

00075 

COMMON  /ICNTRL/ 

IQS  (30) 

SCNTRL 

82 

00076 

COMMON  /ICNTRL/ 

IQU  (10) 

SCNTRL 

S3 

C 

SCNTRL 

84 

00077 

equivalence 

< I TWIN 

, rose 

1)  ) 

SCNTRL 

85 

00078 

EQUIVALENCE 

( ITMAX 

, IQSf 

2)  ) 

SCNTRL 

B6 

00079 

EQUIVALENCE 

f I PR E ACC 

. IQ5< 

3)  ) 

SCNTRL 

87 

00030 

equivalence 

( IPRECON 

♦ IQS( 

4)  > 

SCNTRL 

83 

OOOS1 

EQUIVALENCE 

( influx 

, lose 

5)  ) 

SCNTRL 

39 

000B2 

EQUIVALENCE 

f IEFLUX 

f IQS( 

6)  ) 

SCNTRL 

90 

00083 

EQUIVALENCE 

f I FUSION 

, IQS( 

7)  ) 

SCNTRL 

9 1 

00084 

EQUIVALENCE 

( IRADSWG 

t I QSC 

8)  ) 

SCNTRL 

92 

00035 

equivalence 

f IRADLWG 

.IQS( 

9)  ) 

SCNTRL 

93 

OOOQ6 

equivalence 

< r ICLOUD 

. lose io  n 

SCNTRL 

94 

C 

SCNTRL 

95 

00087 

equivalence 

< IOMEGA 

, lour 

1 ) ) 

SCNTRL 

96 

00038 

EQUIVALENCE 

f ID! ABAT 

, IQUC 

2)  ) 

SCNTRL 

97 

00089 

equivalence 

< I RADSW 

# IQU( 

3)  ) 

SCNTRL 

98 

c 

SCNTRL 

99 

00090 

EQUIVALENCE 

(ICO.  ICU  )) 

SCNTRL 

100 

00091 

INTEGER 

ICO,  ICI200) 

SCNTRL 

10  1 

c 

SCNTRL 

1 02 

c 

LOGICAL  MODEL  PARAMETERS  SAVED  ON 

HISTORY  RECORD 

SCNTRL 

103 

c 

sr  = = = 3 = = = = a 

= = = = = 

=============== 

SCNTRL 

104 

00092 

COMMON  /LCNTRL / 

LCO 

SCNTRL 

105 

00093 

COMMON  /LCNTRL/ 

QALT 

SCNTRL 

106 

00094 

COMMON  /LCNTRL/ 

QBEG 

SCNTRL 

107 

00095 

COMMON  /LCNTRL/ 

QDAY 

SCNTRL 

1 OB 

00096 

COMMON  /LCNTRL/ 

QEND 

SCNTRL 

109 

00097 

COMMON  /LCNTRL/ 

QOUT 

SCNTRL 

1 10 

00098 

COMMON  /LCNTRL/ 

QPHY 

SCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

Q5HF 

5CNTRL 

t 12 

00100 

COMMON  /LCNTRL/ 

SN2FLG 

SCNTRL 

1 13 

OO10T 

COMMON  /LCNTRL/ 

QR5W 

SCNTRL 

1 14 

00  T02 

COMMON  /LCNTRL/ 

QRSH 

SCNTRL 

1 15 

00  103 

COMMON  /LCNTRL/ 

LQSC30) 

SCNTRL 

1 16 

00  104 

COMMON  /LCNTRL/ 

LOUC 10) 

SCNTRL 

1 1 7 

c 

SCNTRL 

1 IS 

00  105 

EQUIVALENCE 

1 LTMIN 

,LQ5< 

1 > ) 

scntrl 

1 1 9 

00106 

EQUIVALENCE 

UTMAX 

, LQS( 

2)  > 

SCNTRL 

1 20 

00107 

EQUIVALENCE 

(LPREACC 

. L QS  f 

3)  ) 

SCNTRL 

12  1 

00  tOB 

EQUIVALENCE 

f LPRECON 

f LOS( 

4)  ) 

SCNTRL 

122 

00109 

EQUIVALENCE 

( LHFLUX 

,LQ5( 

5)  ) 

SCNTRL 

123 

00110 

EQUIVALENCE 

(LEFLUX 

, LQSt 

6)  ) 

SCNTRL 

124 

00111 

EQUIVALENCE 

(LFUSION 

. LQS( 

7)  ) 

SCNTRL 

1 25 

00  112 

EQUIVALENCE 

(LRADSWG 

, LQS  ( 

S)  > 

SCNTRL 

1 25 

00113 

equivalence 

(LRADLWG 

, LQS ( 

9)  ) 

SCNTRL 

127 

OOI  14 

equivalence 

f LICLOUD 

, LQ5(  l 

10)  > 

SCNTRL 

128 

c 

SCNTRL 

129 

00115 

EQUIVALENCE 

( LOMEGA 

. LQU  ( 

1 > ) 

SCNTRL 

130 

00116 

equivalence 

(LDIA8AT 
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ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 
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SIMPLE 
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REAL 

ARRAY 

234 

SINLON 

RDPARM 

REAL 

ARRAY 

235 

5INR0T 

CNTRLP 
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SUB  ROUT I ME  CONHTR 

C * *■  * 

C CONVERSION  TO  HISTORY  <V8SIG>  FORMAT  AND  WRITE  TO  UNIT  08 

C 

C CHARACTER  model  parameters  saved  on  history  record 

COMMON  /CCNTRL/  CCO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CC5P08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  X LABEL  <10) 

COMMON  /CCNTRL/  COS  <30> 

COMMON  /CCNTRL/  CQU  M0> 

C 

EQUIVALENCE  <CCO,CC<  I ) ) 

CHARACTER'S  CCOt  CCI200J 

character's  adate 

CHARACTER'S  ATIME 

CHARACTER'S  JIC 

CHARACTER'S  JOB 

CHARACTER'S  CCSP06 

CHARACTER'S  CCSP07 

CHARACTER'S  CCSP08 

CHARACTER'S  VER 

CHARACTER'S  KLABEl. 

C 

C INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

C :3::=;cs5::==:ss::=;:s=:2=:;5:;==;rs:;=;;s5:;=:; 

COMMON  / J CNTRL / ICO 
COMMON  / I CNTRL/  IM 
COMMON  /I CNTRL/  IMD2 
COMMON  / I CNTRL / IM02P 1 
COMMON  / I CNTRL/  NDRSW  ' 

COMMON  / l CNTRL/  JM 
COMMON  / ICNTRL / JMD2 
COMMON  /ICNTRL/  JMT2 
COMMON  /ICNTRL/  JNP 
COMMON  /ICNTRL/  J04 
COMMON  /ICNTRL/  JOS 
COMMON  /ICNTRL/  JSP 
COMPJION  /ICNTRL/  KLIALS 
COMMON  /ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLISST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMP40N  /ICNTRL/  LOGSR 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MATSON 
COMMON  /ICNTRL/  MLF  (121 

COMPTON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  M5M 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NO AY 
COMMON  /ICNTRL/  MDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NDT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA  Y 
COMMON  /ICNTRL/  NLAYP/11 
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SCNTRL  6 
SCNTRL  7 
SCNTRL  8 
SCNTRL  9 
SCNTRL  10 
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COMMON  / I CNTRL/ 

NLA VP  1 

SCNTRL 

70 

00064 

COMMON  /ICNTRL / 

NSOAY 

SCNTRL 

71 

00065 

COMMON  /ICNTRL/ 

NSEQ 

SCNTRL 

72 

00066 

COMMON  /ICNTRL/ 

ICSP53 

SCNTRL 

73 

00067 

COMMON  /ICNTRL/ 

NSTEP 

SCNTRL 

74 

00068 

COMMON  /ICNTRL/ 

ICSP5S 

SCNTRL 

75 

00069 

COMMON  /ICNTRL/ 

NYMD 

SCNTRL 

76 

00070 

COMMON  /ICNTRL/ 

NYMDE 

SCNTRL 

77 

00071 

COMMON  /ICNTRL/ 

NYMDQ 

SCNTRL 
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COMMON  /ICNTRL/ 

NZINIT 

SCNTRL 
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NMLEV 
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SCNTRL 
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82 
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EQUIVALENCE 
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SCNTRL 
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SCNTRL 
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SCNTRL 

90 
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92 

00085 
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95 
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SCNTRL 

96 

00088 
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SCNTRL 

97 

00089 

EQUIVALENCE 
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SCNTRL 

98 

c 

SCNTRL 

99 

00090 

EQUIVALENCE 
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SCNTRL 

100 
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INTEGER 
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SCNTRL 
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c 

SCNTRL 
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SCNTRL 

103 

00092 

c 

COMMON  /LCNTRL / 

LCD 

SCNTRL 

105 

00093 

COMMON  /LCNTRL/ 

QALT 

SCNTRL 

t 06 

00094 

COMMON  /LCNTRL/ 

QBEG 

SCNTRL 

1 07 

00095 

COMMON  /LCNTRL/ 

QDAY 

SCNTRL 

108 

00096 

COMMDN  /LCNTRL/ 

QEND 

SCNTRL 

109 

00097 

COMMON  /LCNTRL/ 

QOUT 

SCNTRL 

1 1 0 

00098 

COMMON  /LCNTRL/ 

QPHV 

SCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

QSHF 

SCNTRL 

1 12 

00100 

COMMON  /LCNTRL/ 

SN2FLG 

SCNTRL 

113 

00  101 

COMMON  /LCNTRL/ 

QRSW 

SCNTRL 

1 14 

00102 

COMMON  /LCNTRL/ 

QRSH 

SCNTRL 

115 

00  103 

COMMON  /LCNTRL/ 

LQSOO) 

SCNTRL 

1 16 

00104 

COMMON  /LCNTRL/ 

LQU ( 10) 

SCNTRL 

117 

c 

SCNTRL 

1 18 

00105 

EQUIVALENCE 

(LTMIN 

i LQS  ( 

1 } ) 

SCNTRL 

1 19 

00106 

EQUIVALENCE 

( L TMA  X 

, LQSf 

2)  ) 

SCNTRL 

1 20 

00107 

EQUIVALENCE 

(LPREACC 

4 LQS  f 

3)  ) 

SCNTRL 

121 

00108 

EQUIVALENCE 

(LPRECON 

,LQS( 

4)  ) 

SCNTRL 

122 

00109 

EQUIVALENCE 

{ LHFLUX 

, L Q5  < 

5)  > 

SCNTRL 

123 

00110 

EQUIVALENCE 

(LEFLUX 

,LQ3( 

fi>  ) 

SCNTRL 

124 

001  t 1 

EQUIVALENCE 

1 LFUSION 

, LQS  ( 

7)  ) 

SCNTRL 

125 

00112 

EQUIVALENCE 

1 LRADSWG 

, LQS  ( 

8)  ) 

SCNTRL 

126 

00113 

EQUIVALENCE 

< LRADLWG 
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9)  ) 

SCNTRL 

127 

00  114 

EQUIVALENCE 

( LICLOUD 
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SCNTRL 
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c 

SCNTRL 
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00115 
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SCNTRL 

130 

00116 
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SCNTRL 

131 

00117 

EQUIVALENCE 

(LRADSW 
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SCNTRL 

132 
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SCNTRL 

133 

001  18 
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QALT 

SCNTRL 
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Q0EG 

SCNTRL 

135 
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QDAY 

SCNTRL 
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00121 
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QEND 

SCNTRL 
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QOUT 

SCNTRL 
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QPHY 

SCNTRL 
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SN2FLG 

QRSW 

QRSH 

LQS 

LQU 

LTMIN 

LTMAX 

LPREACC 

LPRECOM 

LHFLUX 

LEFLUX 
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LRADLWG 
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TERS  SAVED  ON  HISTORY  RECORD 

^ = = s = s = = = = = = = = = = 3 


00  1 45 

00146 

00147 

00148 
00  149 
00150 
0015  1 
00152 
00  153 
0 01 54 
00155 
00  156 
00  157 
00  158 

00159 

00160 
00  161 
00162 

00163 

00164 
00  165 
00166 
OOT67 
00  168 
00169 
00  1 70 

00171 

00172 

00173 

00174 
00  1 75 

00176 

00177 
00  178 

00179 

00180 

00  1B1 
00182 
0Q1B3 
00184 

00 1 85 
00  1 86 


COMMON  /RCNTRL/  RCO 
COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAY5PY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAX 
COMMON  /RCNTRL/  01  ST 
COMMON  /RCNTRL/  DLAT 
COMMON  /RCNTRL/  DLGN 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU  1 
COMMON  /RCNTRL/  GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  0MEGA2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI  2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 
COMMON  /RCNTRL/  PSMAX 
COMMON  /RCNTRL/  PSMIW 
COMMON  /RCNTRL/  PTOP 
COMMON  /RCNTRL/  RADE 
COMMON  /RCNTRL/  RGAS 
COMMON  /RCNTRL/  ROCP 
COMMON  /RCNTRL/  RSDIST 
COMMON  /RCNTRL/  SPAY 
COMMON  /RCNTRL/  SEASON 
COMMON  /RCNTRL/  SIGE  (25) 
COMMON  /RCNTRL/  SIND 
COMMON  /RCNTRL/  SOLS 
COMMON  /RCNTRL/  TSTD 
COMMON  /RCNTRL/  PLEV5  (25) 
COMMON  /RCNTRL/  HEA TV# 
COMMON  /RCNTRL/  HEAT1 
COMMON  /RCNTRL/  EPS 
COMMON  /RCNTRL/  EPSFAC 
COMMON  /RCNTRL/  CALTOJ 
COMMON  /RCNTRL/  P2ERO 


00187 

001 88 


C 


EQUIVALENCE 

REAL 


1 RCO , RC  f 1 ) ) 
RCOf  RC1200) 


SCNTRL  141 
SCNTRL  142 
SCNTRL  143 
SCNTRL  144 
SCNTRL  145 
SCNTRL  146 
SCNTRL  147 
SCNTRL  148 
SCNTRL  149 
SCNTRL  150 
SCNTRL  151 
SCNTRL  152 
SCNTRL  153 
SCNTRL  154 
SCNTRL  155 
SCNTRL  156 
SCNTRL  157 
SCNTRL  158 
SCNTRL  159 
SCNTRL  160 
SCNTRL  161 
SCNTRL  162 
SCNTRL  163 
SCNTRL  1 64 
SCNTRL  165 
SCNTRL  166 
SCNTRL  167 
SCNTRL  168 
SCNTRL  169 
SCNTRL  170 
SCNTRL  171 
SCNTRL  172 
SCNTRL  173 
SCNTRL  174 
SCNTRL  175 
SCNTRL  176 
SCNTRL  177 
SCNTRL  178 
SCNTRL  179 
SCNTRL  180 
SCNTRL  IB  1 
SCNTRL  182 
SCNTRL  183 
SCNTRL  184 
SCNTRL  185 
SCNTRL  186 
SCNTRL  187 
SCNTRL  isa 
SCNTRL  189 
SCNTRL  190 
SCNTRL  191 
SCNTRL  192 
SCNTRL  193 
SCNTRL  194 
SCNTRL  195 
SCNTRL  196 
SCNTRL  137 
SCNTRL  198 
SCNTRL  199 
SCNTRL  200 
SCNTRL  201 
SCNTRL  202 
SCNTRL  203 
SCNTRL  204 
SCNTRL  205 
SCNTRL  206 
SCNTRL  207 
SCNTRL  208 
SCNTRL  209 
SCNTRL  210 
SCNTRL  211 
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CONHTR  3 
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tu 
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C 

SCNTRL  212 

c 

INTEGER  MODEL  CONSTANTS 

SCNTRL  213 

c 

SCNTRL  214 

00189 

COMMON 

/IDPARM/ 

I JUMP 

< 46) 

SCNTRL  215 

00  190 

COMMON 

/ 1 DP ARM/ 

IDSP02 

SCNTRL  216 

00191 

COMMON 

/IDPARM/ 

INDEX 

(72) 

SCNTRL  217 

00  192 

COMMON 

/IDPARM/ 

I ROD 

SCNTRL  218 

00  193 

COMMON 

/IDPARM/ 

JC 

(40) 

SCNTRL  219 

00  194 

COMMON 

/IDPARM/ 

JE 

( 2 ) 

SCNTRL  220 

00  195 

COMMON 

/IDPARM/ 

JP 

(2,2) 

SCNTRL  221 

00  196 

COMMON 

/IDPARM/ 

KSTEP 

SCNTRL  222 

00197 

COMMON 

/IDPARM/ 

Md 

(46) 

SCNTRL  223 

00  198 

COMMON 

/IDPARM/ 

NWMSI 

SCNTRL  224 

00199 

COMMON 

/IDPARM/ 

NYMD1 

SCNTRL  225 

c 

SCNTRL  226 

c 

LOGICAL  MODEL  CONSTANTS 

SCNTRL  227 

c 

SCNTRL  223 

00200 

COMMON 

/ldparm/ 

FILTER 

(46) 

SCNTRL  229 

0020  1 

COMMON 

/LDPARM/ 

ITAPE 

SCNTRL  230 

00202 

COMMON 

/LDPARM/ 

START 

SCNTRL  231 

c 

SCNTRL  232 

00203 

LOGICAL 

FILTER 

SCNTRL  233 

00204 

LOGICAL 

ITAPE 

SCNTRL  234 

00205 

LOGICAL 

START 

SCNTRL  235 

c 

SCNTRL  236 

c 

REAL  MODEL 

. CONSTANTS 

SCNTRL  237 

c 

2S532CSSS1: 

= = 

SCNTRL  238 

00206 

COMMON 

/RDPARM/ 

ADLDP 

SCNTRL  239 

00207 

COMMON 

/RDPARM/ 

CONI 

SCNTRL  240 

00208 

COMMON 

/RDPARM/ 

CONIDT 

SCNTRL  241 

00209 

COMMON 

/RDPARM/ 

CON2 

SCNTRL  242 

00210 

COMMON 

/RDPARM/ 

CON2DT 

SCNTRL  243 

0021  1 

COMMON 

/RDPARM/ 

C0N3 

SCNTRL  244 

00212 

COMMON 

/RDPARM/ 

CQN3DT 

SCNTRL  245 

00213 

COMMON 

/RDPARM/ 

C0N4 

SCNTRL  246 

00214 

COMMON 

/RDPARM/ 

CQN4DT 

SCNTRL  247 

00215 

COMMON 

/RDPARM/ 

CONS 

SCNTRL  248 

00216 

COMMON 

/RDPARM/ 

COSL 

(4S> 

SCNTRL  249 

00217 

COMMON 

/RDPARM/ 

COSLON 

C 7 2 ) 

SCNTRL  250 

00218 

COMMON 

/RDPARM/ 

CPD2 

SCNTRL  251 

00219 

COMMON 

/RDPARM/ 

DXP 

(46) 

SCNTRL  252 

00220 

COMMON 

/RDPARM/ 

DXYP 

(46) 

SCNTRL  253 

0022  1 

COMMON 

/RDPARM/ 

DYP 

( 46  ) 

SCNTRL  254 

00Z22 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

SCNTRL  255 

00223 

COMMON 

/RDPARM/ 

F IDT 

SCNTRL  256 

00224 

COMMON 

/RDPARM/ 

F2DT 

SCNTRL  257 

00225 

COMMON 

/RDPARM/ 

H1DT 

SCNTRL  258 

00226 

COMMON 

/RDPARM/ 

H2DT 

SCNTRL  259 

00227 

COMMON 

/RDPARM/ 

PKSTD 

SCNTRL  260 

00228 

COMMON 

/RDPARM/ 

PK  TOP 

SCNTRL  261 

00229 

COMMON 

/RDPARM/ 

RLAT 

(46  > 

SCNTRL  262 

00230 

COMMON 

/RDPARM/ 

RLATD 

(46) 

SCNTRL  263 

00231 

COMMON 

/RDPARM/ 

ROCPDT 

SCNTRL  264 

00232 

COMMON 

/RDPARM/ 

ROCPP 1 

SCNTRL  265 

00233 

COMMON 

/RDPARM/ 

SGNP 

(2) 

SCNTRL  266 

00234 

COMMON 

/RDPARM/ 

SINL 

(46) 

SCNTRL  267 

00235 

COMMON 

/RDPARM/ 

SINLON 

( 72  ) 

SCNTRL  2GB 

00236 

COMMON 

/RDPARM/ 

THSTD 

SCNTRL  269 

00237 

COMMON 

/RDPARM/ 

THSTD2 

SCNTRL  270 

00238 

COMMON 

/RDPARM/ 

WSAVE 

( T 59  > 

SCNTRL  271 

00239 

COMMON 

/RDPARM/ 

DSIG 

(9) 

SCNTRL  272 

00240 

COMMON 

/RDPARM/ 

SIG 

(9) 

SCNTRL  273 

c 

SCNTRL  274 

c 

* * * 

SQANDQT  2 

c 

GLOBAL  MODEL  SURFACE  FIELDS 

SQANDQT  3 

00241 

COMMON 

/QANDQT/ 

QS(72, 19*46) 

SQANDQT  4 

c 

SQANDQT  5 

00242 

DIMENSION 

PHIS* 1 36B , 1 ) 

SQANDQT  6 

00243 

DIMENSION 

SMTH { 1368,23) 

SQANDQT  7 

00244 

DIMENSION 

ALBEDO ( 1 36B , 1 ) 

SQANDQT  3 

00245 

DIMENSION 

GT< 1368 

. 1 > 

SQANDQT  9 

O 

o 

s 

eu 
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00245 

00247 

0024B 

00249 

00250 
0025  t 

00252 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 
00262 

00263 

00264 

00265 

00266 
00267 
002GB 

00269 

00270 
0027  1 

00272 

00273 

00274 

00275 

00276 

00277 


00278 

00??9 
00280 
002B  1 
00282 
00283 
00234 
00285 
00  286 
00  287 

00283 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 


00297 

00298 

00299 

00300 

0030  1 

00302 

00303 

00304 

00305 

00306 


DIMENSION  GW<136Br1> 

DIMENSION  TS ( 1368, 1 > 

DIMENSION  SH5( 1358, 1 ) 

DIMENSION  P ( 72 , t 9 , 1 ) 

DIMENSION  TMI N < T36S,  1 ) 

DIMENSION  TMAX ( T36S  * 1 ) 

DIMENSION  PRE ACC  < 1368. 1 ) 

DIMENSION  PRECON ( 1368, 1 > 

DIMENSION  HFLUX  M36B  , I > 

DIMENSION  EFLUKM368,  I) 

DIMENSION  FUSION! 1368. 1 ) 

DIMENSION  RADSWG! f 368. 1) 

DIMENSION  RADLWGC 1368. 1 > 

DIMENSION  I CLOUD ( 1368.  1 > 

C 

EQUIVALENCE  105(1,1,1) ,PHIS( 1,1)) 

EQUIVALENCE  (QS( 1,2,1) ,SMTH( 1,1)) 

EQUIVALENCE  1 QS (1,3,1) .ALBEDO ( 1,1)) 

EQUIVALENCE  ( 05 (1.4,1), GT (1,1)) 

EQUIVALENCE  (Q5( 1 .5 . n ,GWf 1 , I ) ) 

EQUIVALENCE  ( OS { 1 . 6 , tJ , TS f 1 , I ) ) 

EQUIVALENCE  f OSf 1 , 7 , 1 ) , SHSf 1 , 1 > ) 

EQUIVALENCE  I0S(1  .8,  II.PII  , 1,1  U 

EQUIVALENCE  < QS (1,10,1). TM IN( 1 , 1 ) ) 

EQUIVALENCE  <QS< 1 , 1 1 , 1 ) , TMA  H ( 1.1)) 

EQUIVALENCE  (05(1,12,1), PREACC (1.1)) 

EQUIVALENCE  (QS( 1 , 13 , 1) .P RECON ( 1,1)) 

EQUIVALENCE  ( QS ( 1 , 1 4 . 1 ) , HFLUX < 1,1)) 

EQUIVALENCE  (QSM  T 15 . 1 ) .EFLUXt 1,1)) 

EQUIVALENCE  (05(1,16,1) , FUSION ( 1,111 

EQUIVALENCE  (QSMJ7.1)  , RADSWG  ( 1.1)1 

EQUIVALENCE  ( QS ( 1 , IB, t ) , RADLWGt 1.1)1 

EQUIVALENCE  (QS( 1 , 19,  1 > , I CLOUD f 1,1)1 

C * * * 

C GLOBAL  MODEL  UPPER-AIR  FIELDS 

COMMON  /QANDQT  f QU f 72  . 9 , 1 4 . 46 ) 

C 

DIMENSION  0(72.9,14,1} 

DIMENSION  V ( 72 , 9 , 14.  1 J 

DIMENSION  Tf 72,9, 14, 11 

DIMENSION  SH(72 ,9, 14 , t ) 

DIMENSION  PHI  (72,9,-14,  1) 

DIMENSION  OMEGA (72, 126,1) 

DIMENSION  DIABATf 72 , 126, 1 ) 

DIMENSION  RA  D5W ( 72 , 1 26 , t > 

DIMENSION  R ADLV/  (72,126+  1 > 

C 

EQUIVALENCE  ( QU ( 1 , 1 , 1 , 1 ) , U ( t , 1 , 1 , 1 M 

EQUIVALENCE  f QUf 1 , 1 ,3 , 1 ) , V M , 1 , 1 . 1 ) ) 

EQUIVALENCE  (QU(1,  1,5,1)  ,T(1f1,  1,1  )) 

EQUIVALENCE  (QUM  , 1 ,7 . 1 ) ,SH(  1 , 1 r 1 , 1 ) ) 

EQUIVALENCE  ( QU ( 1 , 1 , 9 , 1 ) TPHI ( 1 . 1 , 1 , 1) ) 

EQUIVALENCE  (QU( 1 . 1 , 1 1 . 1)  . OMEGA!  1,1,1)) 

EQUIVALENCE  (00(1,1,12,1)  , DI ABA  T ( 1 .1,1)) 

EQUIVALENCE  ( QU ( 1 , 1 , 1 3 , 1 ) ,RADSW(  1,1,1)) 

EQUIVALENCE  ( QUM  , 1 , 14  , 1)  , RADLWi  1 , 1 . 1 > ) 

C 

C * * * 

0 IDENTIFYING  LABELS  OF  MODEL  HISTORY  RECORD  QUANTITIES 
COMMON  /CORDER/  XORDSUB),  XQRDU  (14) 

CHARACTER  * 8 XORDS,  XOHDU 

COMMON  /mm/  QSH  (72,46,  IS)  , QUH  < 72 , 9 , 46 , 9 ) 

HALF  PRECISION  QSH, QUH 
C 

COMMON  CA  f 2 00 ) , I A < 200 ) , LA ( 20  0 ) , R A ( 200 ) 

COMMON  XSA ( 20  J , XUA ( 20  > 

COMMON  HWQRK (72,9, 14)  ,QSA(72. 19)  , QUA (72, 9, 14) 

REAL  CA, XSA, XUA 

HALF  PRECISION  1 A , L A , R A . HWOR K , QSA , QUA 
C 

HALF  PRECISION  I TRUE , I FALSE ,HIC f 2 t 200 ) ,HKSS<2)  ,HKU5(2) 
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SQANDOT 

TO 

SQANDOT 

1 T 

SOANDQT 

12 

SQANDQT 

13 

SQANDQT 

14 

SOANDQT 

15 

SQANDQT 

T6 

SQANDQT 

17 

SOANDQT 

18 

SQANDOT 

19 

SQANDOT 

20 

SQANDQT 

21 

SQANDQT 

22 

SQANDQT 

23 

SQANDOT 

24 

SQANDQT 

25 

SQANDQT 

26 

SQANDOT 

27 

SQANDQT 

28 

SQANDQT 

29 

SQANDOT 

30 

SQANDQT 

3 1 

SOANDQT 

32 

SQANDQT 

33 

SQANDQT 

34 

SQANDQT 

35 

SQANDQT 

36 

SOANDQT 

37 

SQANDQT 

38 

SQANDQT 

39 

SQANDQT 

40 

SQANDQT 

41 

SQANDQT 

42 

SQANDQT 

43 

SQANDQT 

44 

SOANDQT 

45 

SQANDQT 

46 

5QANDQT 

47 

SQANDQT 

48 

SQANDQT 

49 

SQANDOT 

50 

o o 

SQANDQT 

51 

^ TV 

SQANDQT 

52 

*TJ  g> 

SQANDQT 

53 

SQANDQT 

54 

O “£? 

SOANDQT 

55 

O 

SQANDQT 

56 

TO  p 

SQANDQT 

57 

SQANDQT 

5B 

O tj 

SQANDQT 

59 

C l!a 

SQANDQT 

60 

SOANDQT 

61 

taw? 

[Qn 

SQANDQT 

62 

♦ e«J 

SOANDQT 

63 

*— 3 MtSI 

SQANDOT 

64 

■<  £3 

SOANDQT 

65 

SOANDQT 

66 

SCORDER 

2 

SCORDER 

3 

SCORDER 

4 

SCORDER 

5 

5CONHTR 

8 

SCONHTR 

9 

SCONHTR 

10 

SCONHTR 

1 T 

SCONHTR 

12 

SCONHTR 

13 

SCONHTR 

14 

SCONHTR 

15 

SCONHTR 

16 

SCONHTR 

17 

CONHTR  5 


TO  tv 


v::  -m  '* 


00307 

003QB 


00309 

00310 


EQUIVALENCE 

CHARACTER'S 


1 IC.HIC) . ( KSS  * HKSS)  . (KUS.HKUS) 
rBM.COC 

1 TRUE , IFALSE/X' 0000000 T ' , X ' 00000000 ' / 


003  12 
00313 
003  14 
003  IS 

00316 

00317 
003  18 

00319 

00320 
0032  1 

00322 

00323 

00324 

00325 

00326 


00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 
0033S 

00339 

00340 
0034  1 

00342 

00343 

00344 

00345 


00346 

00347 

00348 
0034B 
00250 
00351 
0035  2 

00353 

00354 

00355 

00356 

00357 


00358 

00359 

00360 

00361 

00362 


CDC i IBM/SHCDC 


.SHIBM 


C DEBUG 
10000  CONTINUE 

C CYBER  SCALAR  VERSION  04.001  INPUT , I OQ 

C CYBER  SCALAR  VERSION  04.000 

C CYBER  SCALAR  VERSION  00 


5C0NHTR  IS 
SCONHTR  19 
SCONHTR  20 
SCONHTR  21 
SCONHTR  22 
SCONHTR  23 
SBEGDEB  2 
SBEGDEB  3 
SBEGDEB  4 
SBEGDEB  5 
SBEGDEB  6 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBEGDEB 


CONVERT  THE  HEADER 
CC  c 1)  “IBM 

CALL  ATOE <CC ,CA , 200*8 1 
CCM)  = CDC 

CALL  ATOE ( XORDS t XSA .KS'B ) 

CALL  ATOE ( XORDU , XUA . KU*B ) 

DO  9 K = 1 . 200 

9 HWORKfK)  = RC  < K J 

CALL  Q9CI32< HWORK , RA p 200 , IERR ) 

IFf IERR.NE.O)  WRITE<3,900)  I ERR 
900  FORMATf ' 0Q9CI32  I ERR  = \I2I 
DO  10  K = 1 , 200 

T A ( K ) = HI C * 2 , K ) 

LA  f K ) = IFALSE 

IFfLCfK))  LAiKI  “ ITRUE 
10  CONTINUE 
* * * 

FI*  KS  AND  KU  FOR  HISTORY  AND  WRITE  THE  HEADER 
KSS  - 0 

DO  15  K =1 , K5 

IFf  ( K . EQ . 9 ) . AND . f NB , EG . 1 ) ) GO  TO  15 
IFf ( K . EQ . 8 ) . AND . ( NB , EQ . 2) ) GO  TO  15 
KSS  = KSS  * 1 

XSAfKSS)  = XSAfK> 

15  CONTINUE 

KU5  - 0 

DO  20  K = t.KU 

IFf (K.LE. 10? .AND. <M0D(K.2> -EQ.O] .AND, (NB.EO. 1) ) GO  TO  20 
IF(  IK.LE  . 10)  .AND. (M0D(K,2>  .EQ. 1)  .AND. (NB.EQ.2H  GO  TO  20 
KUS  = KU5  + T 

XUAfKUS)  = KUA  t K ) 

20  CONTINUE 

I A f IS}  = HKSS ( 2 J 
I A 1 17)  = HKUSf 2) 

LA ( 1)  = IFALSE 

IFtQRSHJ  LAf  tJ  = ITRUE 

WRITE (8)  CA. IA.LA.RA, fXSAfK) ,K=1 .KSS) , f XUA { K > , K=1 , KUS) 

. » . 

START  LOOP  FOR  THE  LATITUDE  BANDS 


KNTQS 

KNTQU 

kkosinc 

KKQSST 

IMNLAY 

KKOUINC 

KKQUST 

DO  200  L 

KKQSST 

KKOS 

KKQUST 

KKQU 


IM  * KS 
IM  * NLAY  * 
JNP  * IM 
T - IM 
IM  * NLAY 
IMNLAY  * JNP 
1 - IMNLAY 

1 . JNP 

KKQSST  * IM 
KKQSST 

KKQUST  +■  IMN 
KKQUST 


IMNLAY 


CONVERT  THE  FLOAT. NG  POINT  NUMBERS 
DO  30  K =1  .KNTQS 
30  HWORK  ( K } = QSf  K , 1 ,U 

CALL  Q3CI32(HW0RK .QSA .KNTQS, IERR) 
IF ( IERR .NE.O)  WRI TE (3,900)  IERR 
DO  35  K “ 1, KNTQU 


SCONHTR  25 
SCONHTR  26 
SCONHTR  27 
SCONHTR  2S 
SCONHTR  29 
SCONHTR  30 
SCONHTR  3 t 
5COMHTR  32 
SCONHTR  33 
SCONHTR  34 
SCONHTR  35 
SCONHTR  36 
SCONHTR  37 
SCONHTR  38 
SCONHTR  39 
SCONHTR  40 
SCONHTR  41 
SCONHTR  42 
SCONHTR  43 
SCONHTR  44 
SCONHTR  45 
SCONHTR  46 
SCONHTR  47 
SCONHTR  48 
SCONHTR  49 
SCONHTR  50 
SCONHTR  51 
SCONHTR  52 
SCONHTR  53 
SCONHTR  54 
SCONHTR  55 
SCONHTR  56 
SCONHTR  57 
SCONHTR  58 
SCONHTR  59 
SCONHTR  60 
SCONHTR  61 
SCONHTR  62 
SCONHTR  63 
SCONHTR  64 
SCONHTR  65 
SCONHTR  66 
SCONHTR  67 
SCONHTR  68 
SCONHTR  59 
SCONHTR  70 
SCONHTR  71 
SCONHTR  72 
SCONHTR  73 
SCONHTR  74 
SCONHTR  75 
SCONHTR  76 
SCONHTR  77 
SCONHTR  78 
SCONHTR  79 
SCONHTR  80 
SCONHTR  81 
SCONHTR  82 
SCONHTR  83 
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CONHTR  6 


<r 


Mv 


00363 

00364 

00365 


00366 

00367 
00363 
003S9 
00370 
0037  1 

00372 

00373 

00374 

00375 

00376 

00377 

00378 

00379 

00380 
003B  1 

00382 

00383 


00385 

00386 

00387 

00388 

00389 

00390 
0039  T 
0Q392 

00393 

00394 

00395 

00396 

00397 

00398 

00399 


C * * 
C RE- 


HWORK! K ) = QUf K . 1 , f t L } 

CALL  Q9CI32 (HWORK , QUA , KNTQU , I E RR } 
TFdERR.NE.Ol  WR  I TE  ( 3 , 900  ) I ERR 

* 

“ORDER  THE  FIELDS  IN  HISTORY  FORMAT 
QO  150  K = 1 f KS 

IFf (K.EQ.9) .AND. fNB.EQ. I > ) GO  TO  150 

IF!  (K.EQ.8)  .AND.  <NB.EQ.2H  GO  TO  T50 

K I * KKQS 

DO  f 49  I = 1 , IM 

OSH ( K I .1,1)  = OSAI I , K ) 

K I = KI  x 1 

KKQ5  = KKQS  ♦ KKQ5INC 


K I * KKQS 

DO  T 49  I = 1 , IM 
OSH ( K I .1,1)  = 0 

KI  = KI  x 

KKQ5  = KKOS 

CONTINUE 
DO  170  K = 1 , KU 

IF<  (K.LE.  10)  .AN 
I F ( 1K.LE.  IOJ  .AN 
KI  a KKQU 

DO  169  I s I.IM 
QLTMfKI  1,1,1)  = 

KI  = KI  ‘ 

KKOU  = KKQU 

CONTINUE 

CONTINUE 


10}  .AND . ( MOD  f K , 2)  .EQ 
10)  . AND . ( MOD  ( K , 2)  . EQ 
- KKQU 
" 1.IMNLAY 
1,1)  = QUA { I , I , K ) 

= KI  * 1 

= KKQU  + KKQUINC 


EQ.O) .AND. (N9. EQ. 1) > GO  TO  170 
EQ , I ) . AND . f NS . EQ . 2 ) ) GO  TO  170 


t TE  THE  FIELDS  TO  HISTORY 
KMAXB  = K 55  * ONP  * IM 

KEB  = O 

DO  220  KKB  * 1, KMAXB. 4096 

KSB  = KEB  * I 

KEB  * MINO ( KEB  * 4096,  KMAXB } 

WRITE! 8)  ( QSH  * K ,1,1)  ,K*KSB , KEB ) 

KMAXB  s JNP  * NLAY  * IM 
DO  230  KQ=  1 * KUS 

KEB  a 0 

DO  230  KKB  = 1.KMAXBr4096 


KSB 

KEB 

WRITE! 8) 

RETURN 

END 


KEB  * 1 
MINO (KEB 
( QUH! K , T , 


4096 t KMAXB) 

, KO)  . K “KSB f KEB ) 


STATEMENT  LABEL  MAP 
* -LABEL DEFINED REFERENCES 


10 

326 

322 

10000 

3 1 1 

149 

372 

370 

15 

333 

328 

329 

330 

150 

374 

366 

367 

368 

169 

381 

379 

170 

383 

375 

376 

377 

20 

340 

335 

336 

337 

200 

3B4 

353 

220 

390 

387 

230 

397 

392 

394 

30 

359 

35B 

35 

363 

362 

9 

3TB 

317 

900 

321 

320 

36  T 

365 

5C0NHTR  84 
5CONHTR  85 
SCONMTR  86 
SCONHTR  87 
SCONHTR  BB 
SCONHTR  89 
SCONHTR  90 
SCONHTR  91 
SCONHTR  92 
SCONHTR  93 
SCONHTR  94 
SCONHTR  95 
SCONHTR  96 
SCONHTR  97 
SCONHTR  98 
SCONHTR  99 
SCONHTR 100 
SCONHTR 10 1 
SCONHTR 102 
SCONHTR 103 
SCONHTR  T04 
SCONHTR 105 
SCONHTR 106 
SCONHTR 107 
SCONHTR 108 
SCONHTR 1 09 
SCONHTR 1 1 O 
SCONHTR 1 1 1 
SCONHTR 1 1 2 
SCONHTR? 13 
SCONHTR 114 
SCONHTR  J 15 
SCONHTR 1 16 
SCONHTR  t 17 
SCONHTR 1 18 
SCONHTR 1 19 
SCONHTR 120 
SCONHTR 1 2 I 
SCONHTR 1 22 
SCONHTR  ? 23 
SCONHTR 1 24 
SCONHTR 1 25 
SCONHTR 1 26 


VARIABLE  MAP 


NAME 

--BLOCK 

— -TYPE 

- -CLASS 

— -REFERENCES 

ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

ALBEDO 

QANDQT 

REAL 

ARRAY 

244 

262 

AM  AM 

REAL 

UNKNOWN 

299 

APHE  L 

rcntrl 

REAL 

SIMPLE 

146 

A =ARGL 1ST,  C =C  TRL  OF  DO  t I = DA  T A INIT,  R=READ,  S=STQRE . W=WRITE 


CONHTR  7 


I 

i 

I 

If 


ATIME 

CCNTRL 

CHAR  * 8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CA 

// 

REAL 

ARRAY 

301 

304 

3 13 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

185 

cc 

CCNTRL 

CHARTS 

ARRAY 

1 4 

15 

3 12/S 

cco 

CCNTRL 

CHAR  *8 

SIMPLE 

2 

14 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

4 

CC5PQ6 

CCNTRL 

CHAR  * S 

SIMPLE 

1 O 

7 

20 

CC5P07 

CCNTRL 

CHAR  *8 

SIMPLE 

3 

21 

CC5P0S 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

22 

CDC 

CHAR'S 

SIMPLE 

308 

3 10/1 

3 14 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

simple 

208 

CON2 

RDPARM 

REAL 

SIMPLE 

209 

CON2DT 

RDPARM 

REAL 

SIMPLE 

210 

CONr 

RDPARM 

REAL 

SIMPLE 

2 t 1 

CON3DT 

RDPARM 

REAL 

SIMPLE 

2 T 2 

C0N4 

RDPARM 

REAL 

SIMPLE 

2 T 3 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

214 

COWS 

RDPARM 

REAL 

SIMPLE 

215 

COWHTR 

SUBROUTINE 

1 

CORDER 

REAL 

UNKNOWN 

297 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

COSL 

RDPARM 

REAL 

ARRAY 

216 

COSLON 

RDPARM 

REAL 

ARRAY 

217 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

218 

CQS 

CCNTRL 

REAL 

ARRAY 

12 

cou 

CCNTRL 

REAL 

ARRAY 

13 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

DEC 

RCNTRL 

REAL 

SIMPLE 

151 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DIABAT 

QANDQT 

REAL 

ARRAY 

285 

294 

D r ST 

RCNTRL 

REAL 

SIMPLE 

T 53 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLOW 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

□ HP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

22  1 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

EF  LUX 

QANDQT 

REAL 

ARRAY 

255 

273 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

134 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCORL5 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDP ARM 

LOGICAL 

ARRAY 

200 

203 

FUSION 

QANDQT 

REAL 

ARRAY 

256 

274 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

158 

GNU  2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

GT 

QANDQT 

REAL 

ARRAY 

24  5 

263 

G W 

QANDQT 

REAL 

ARRAY 

246 

264 

H 1 DT 

RDPARM 

REAL 

SIMPLE 

2 25 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEAT  I 

RCNTRL 

REAL 

SIMPLE 

182 

HEATW 

RCNTRL 

REAL 

SIMPLE 

181 

HF  LUX 

QANDQT 

REAL 

ARRAY 

254 

272 

HIC 

ICNTRL 

HALF 

ARRAY 

306 

307 

323 

HKSS 

HALF 

ARRAY 

306 

307 

34  1 

HKUS 

HALF 

ARRAY 

306 

307 

342 

HWORK 

// 

HALF 

ARRAY 

303 

305 

31B/S 

I 

INTEGER 

SIMPLE 

370/C 

37  1 

379/C 

IA 

!t 

HALF 

ARRAY 

30  1 

305 

323/S 

IBM 

CHAR'S 

SIMPLE 

308 

310/1 

312 

IC 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

307 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

91 

i 

i 

F 


34  5 /W 

3 T 3 314/5 

5 S 7 S 


n 

o 

50 

CO 


9 TO  IT  12 


ft 


O 

*Ti 

"0 

o 

o 

S3 

O 

<Z 

3> 

r; 

3 


319  359/S  360  3G3/S  364 

380 

341/5  342/S  345 / W 


ORIGINAL  PAGE  IS 


QAMDQT 


V " :M 


I CLOUD 
ICNTRL 


INTEGER 

ARRAY 

259 

277 

INTEGER 

UNKNOWN 

25 

26 

35 

37 

47 

48 

5S 

59 

S3 

70 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

! 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

189 

190 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

130 

1EFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

IERR 

INTEGER 

SIMPLE 

3 19 

320 

I F ALSE 

HALF 

SIMPLE 

306 

309/1 

! 

IFUSION 

ICNTRL 

INTEGER 

UNKNOWN 

83 

; 

IHFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

S t 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

36 

j 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

109 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

346 

! 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

. 

i 

i 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

28 

IMNLAY 

INTEGER 

SIMPLE 

35  0/  S 

35  1 

i 

INDEX 

IDPARM 

INTEGER 

ARRAY 

191 

1 ••  i 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

' i 

I PRE ACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

■'  ' 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

igs 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

' ; 

I RADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

'i 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

09 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

TROD 

IDPARM 

INTEGER 

SIMPLE 

192 

I TAPE 

LDPARM 

logical 

SIMPLE 

20  1 

204 

L 

I TMAX 

ICNTRL 

INTEGER 

UNKNOWN 

7 S 

i 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

I TRUE 

HALF 

SIMPLE 

306 

309/  I 

dC 

IDPARM 

INTEGER 

ARRAY 

1 93 

ft. 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

V 

dIC 

CCNTRL 

CHAR  *8 

SIMPLE 

5 

Tfl 

> 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

K 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

3 1 

ti 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

1 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

348 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR 

SIMPLE 

R 

19 

) 

UP 

IDPARM 

INTEGER 

ARRAY 

t 95 

dSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

\ 

K 

INTEGER 

SIMPLE 

317/C 

318 

330 

332 

\ 

358/  C 

359 

376 

376 

KEB 

INTEGER 

SIMPLE 

386/S 

388 

K I 

INTEGER 

simple 

3S9/S 

37  1 

KKB 

INTEGER 

SIMPLE 

337/C 

394/C 

KKQS 

INTEGER 

SIMPLE 

35S/S 

369 

KKOSINC 

INTEGER 

SIMPLE 

348/  S 

373 

KKQSST 

INTEGER 

SIMPLE 

349/S 

354/S 

KKQU 

INTEGER 

SIMPLE 

357/S 

378 

KKQUINC 

INTEGER 

SIMPLE 

351  /S 

382 

KKQU5T 

INTEGER 

SIMPLE 

35-VS 

356/S 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

u t 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

integer 

SIMPLE 

39 

KMAXB 

integer 

SIMPLE 

3 

387 

KNTOS 

INTEGER 

SIMPLE 

■/S 

353 

1 ; 

KNTOU 

INTEGER 

SIMPLE 

u-*//S 

362 

• i 

KQ 

INTEGER 

SIMPLE 

392/C 

397 

KS 

Ksa 


INTEGER  SIMPLE  40  315 

INTEGER  SIMPLE  3B8/S  390 


ICNTRL 


27 

28 

29 

30 

31 

38 

39 

40 

41 

42 

49 

50 

51 

52 

53 

60 

61 

62 

63 

64 

7 1 

72 

73 

74 

75 

191 

192 

193 

194 

195 

320  / W 

360 

361 

36  T /W 

364 

3 24 

34  3 

34  7 

34e 

349 

350 

354 

352 

356 

379 

78 

79 

80 

81 

82 

88 

S3 

325  344 


35  1 353  385  3D  1 


3 18 

322/C 

323 

323 

324 

335/C 

336 

336 

337 

337 

359 

362/C 

363 

363 

366/C 

377 

377 

380 

390 

390/C 

385  /S 

309 

390 

393/S 

395 

372/S 

372 

373/S 

380 

381/S 

373/S 

373 

354 

355 

382/S 

382 

356 

357 

389 

360 

364 

39  * /S 

394 

396 

328 

346 

366 

395/S 

397 

r 


32 

33 

34 

35 

43 

44 

45 

46 

54 

55 

56 

57 

65 

66 

67 

68 

76 

196 

197 

tga 

199 

355  355 /W 


370  385  391 


83  SA  85  S6 


325 

3 25 

328/C 

329 

339 

345 

345/C 

345 

367 

368 

371 

375 

397 

397  /C 

396/S 

381 

396 

397 

n 

o 

as 

rn 

H 

P3 
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KSS 

INTEGER 

SIMPLE 

307 

327/S 

331  /S 

KSTEP 

I DP ARM 

INTEGER 

SIMPLE 

t 96 

KU 

ICNTRL 

INTEGER 

SIMPLE 

41 

316 

335 

KU5 

INTEGER 

SIMPLE 

307 

334/S 

338/5 

L 

INTEGER 

SIMPLE 

353/C 

359 

363 

LA 

// 

HALF 

ARRAY 

301 

305 

324/S 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

325 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

1 03 

104 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

14  1 

LDPARM 

INTEGER 

UNKNOWN 

200 

20  1 

202 

LE  FLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 to 

135 

LFUSIOM 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

L I CLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

LDGSR 

ICNTRL 

INTEGER 

SIMPLE 

42 

lomega 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

1 03 

105 

106 

i 

1 28 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

1 04 

115 

116 

; LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

138 

; LRAOSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

LTM1M 

LCNTRL 

LOGICAL 

UNKNOWN 

1 05 

130 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

■ MAT5NX 

ICNTRL 

INTEGER 

SIMPLE 

44 

\ MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MJ 

IDPARM 

integer 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MR  00 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

NB 

ICNTRL 

INTEGER 

SIMPLE 

50 

329 

330 

m 

ICNTRL 

integer 

SIMPLE 

51 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

S3 

NO  HOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

integer 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NHMS 

ICNTRL 

INTEGER 

simple 

58 

NKMSO 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMS  J 

IDPARM 

INTEGER 

SIMPLE 

198 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLA  Y 

ICNTRL 

integer 

SIMPLE 

6 t 

347 

350 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLA YP 1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

7 1 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

199 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

N2INIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

QANDQT 

REAL 

ARRAY 

204 

293 

0MEGA2 

RCNTRL 

REAL 

SIMPLE 

1 G J 

P 

oandot 

REAL 

ARRAY 

249 

267 

PHI 

QANDOT 

REAL 

ARRAY 

203 

292 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  180 

RCNTRL 

REAL 

SIMPLE 

163 

© 


33 


332 


385 


347  375 

338  339  345  332 

325/S  343/S  344/S  345/W 

95  9G  97  30  99  100  101  1 


107  108  109  110  111  J 1 2 113  1 

117  129 


339  337  307  368  379  377 


39  1 
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P 12 

RCNTRL 

REAL 

SIMPLE 

164 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

RDPARM 

REAL 

SIMPLE 

228 

PLEVS 

RCNTRL 

REAL 

ARRAY 

ISO 

PREACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PRECON 

QANDQT 

REAL 

ARRAY 

253 

271 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

16B 

P5TD 

RCNTRL 

REAL 

SIMPLE 

165 

PTOP 

RCNTRL 

REAL 

SIMPLE 

168 

PZERO 

RCNTRL 

REAL 

SIMPLE 

186 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

83 

1 18 

QANDQT 

REAL 

UNKNOWN 

24  1 

278 

QB  EG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

119 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

Q END 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

87 

122 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

93 

123 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

102 

127 

344 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

1 26 

QS 

QANDQT 

REAL 

ARRAY 

241 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

// 

270 

27  1 

272 

273 

274 

275 

276 

277 

359 

QSA 

HALF 

ARRAY 

303 

305 

360 

37  1 

QSH 

AMAM 

HALF 

ARRAY 

289 

300 

37  J /S 

390/W 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

QU 

QANDQT 

REAL 

ARRAY 

278 

288 

289 

290 

291 

292 

293 

294 

29S 

296 

363 

QUA 

// 

HALF 

ARRAY 

303 

305 

364 

380 

QUH 

AMAM 

HALF 

ARRAY 

299 

300 

380/S 

397/W 

RA 

// 

HALF 

ARRAY 

30  1 

305 

319 

345/ W 

RADE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

REAL 

ARRAY 

287 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

258 

276 

RADSW 

QANDQT 

REAL 

ARRAY 

286 

295 

RADSWG 

QANDQT 

REAL 

ARRAY 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 

187 

1 SB 

318 

RCO 

RCNTRL 

REAL 
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23  1 

232 
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RCNTRL 

REAL 

SIMPLE 
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RLAT 
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REAL 

ARRAY 
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RDPARM 
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ARRAY 

230 

ROGP 

RCNTRL 

REAL 

SIMPLE 
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ROCPDT 

RDPARM 

REAL 

SIMPLE 

23  1 

ROCPP  T 

RDPARM 

REAL 

SIMPLE 
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RSDIST 

RCNTRL 

REAL 

SIMPLE 
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SDAY 

RCNTRL 

REAL 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

SH 

QANDQT 

REAL 

array 

282 
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O Q 

SHS 

QANDQT 

REAL 

ARRAY 

248 

266 

Li  w 

^ aj 

SIG 

RDPARM 

REAL 

ARRAY 

240 

~U  Q 

SIGE 

RCNTRL 

REAL 

ARRAY 
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SIND 

RCNTRL 

REAL 

SIMPLE 

177 
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SINL 

RDPARM 

REAL 

ARRAY 
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SINLON 

RDPARM 

REAL 

ARRAY 
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REAL 
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REAL 
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178 

START 

LDFARM 

LOGICAL? 

SIMPLE 

202 
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ARRAY 
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atime 
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00006 

COMMON 

/CCNTRL/ 

JOB 

00007 
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CCSP06 
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CCSP07 
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CQU  (10) 
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JOB 

00020 

CHARACTER'S 

CCSPOE 
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COMMON 
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IM 
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/ ICNTRL / 
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00023 
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/ I CNTRL/ 
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00029 
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/ TCNTRL/ 

NDRSW 

00030 

COMMON 

/ICNTRL/ 

JM 
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COMMON 

/ICNTRL/ 

JMD2 

00032 

COMMON 

/ICNTRL/ 

JMT2 

00033 

COMMON 

/ICNTRL/ 

JNP 

00034 

COMMON 

/ICNTRL/ 

J04 

00035 
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/ICNTRL/ 

JOS 

00036 

COMMON 

/ICNTRL/ 

JSF 

00037 

COMMON 

/ICNTRL/ 

KLIALB 

00033 

COMMON 

/ICNTRL/ 

KLIGW 
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COMMON 

/ICNTRL/ 

KLISST 

00040 

COMMON 

/ICNTRL/ 

KS 

0004  1 

COMMON 

/ICNTRL/ 

HU 
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COMMON 

/ICNTRL/ 

LOG3R 
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/ICNTRL/ 
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/ICNTRL/ 
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00045 

COMMON 

/ICNTRL/ 

MATSUN 
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/ICNTRL/ 
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N5EQ 

SCNTRL 

72 
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COMMON  / ICNTRL / 

ICSP53 

SCNTRL 

73 
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NSTEP 
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74 

00066 
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ICSP55 
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76 
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77 

00071 
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78 

00072 

COMMON  /ICNTRL/ 

NZINIT 

SCNTRL 

79 

00073 

COMMON  /ICNTRL/ 

nmlev 
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SO 
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COMMON  /ICNTRL/ 
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SCNTRL 
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COMMON  /ICNTRL/ 
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SCNTRL 

82 

00076 

COMMON  /ICNTRL/ 

IQU  ( 10  ) 
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83 
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SCNTRL 

64 

00077 
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65 
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ss 
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t lost 

3)  > 

SCNTRL 

87 

00060 
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SCNTRL 

66 

OOOB1 

EQUIVALENCE 

{ IHFLUX 
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5 > ) 

SCNTRL 

89 

00082 
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( IHFLUX 
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SCNTRL 

go 

00083 
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91 

00084 
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SCNTRL 

92 
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{ I RADLWG 
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9)  ) 

SCNTRL 

93 

00086 
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f I I CLOUD 
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SCNTRL 

94 

c 

SCNTRL 

95 

00067 
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( IOMEGA 

, IQU( 
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SCNTRL 

96 

00088 

EQUIVALENCE 

{ IDIABAT 

, lout 

2)  ) 

SCNTRL 

97 

OOOB9 

EQUIVALENCE 

< IRADSW 

» I QU  ( 

3)  > 

SCNTRL 

96 

c 

SCNTRL 

99 

00090 

EQUIVALENCE 

(ICO.ICM  ) > 

SCNTRL 

100 

0009  1 

INTEGER 

ICO , IC  t 20  0 } 

SCNTRL 
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103 

c 

= = = = = = = = = = = = = = = r = = = = = 

SCNTRL 

1 04 

00092 

COMMON  / LCNTRL / 

LCO 

SCNTRL 

105 

00093 

COMMON  /LCNTRL/ 

QALT 

SCNTRL 

1 06 

00094 

COMMON  /LCNTRL/ 

QBEG 

SCNTRL 

107 

00095 

COMMON  /LCNTRL/ 

QDAY 

SCNTRL 

1 OB 

00096 

COMMON  /LCNTRL/ 

QEND 

SCNTRL 

109 

00097 

COMMON  /LCNTRL/ 

QOUT 

SCNTRL 

1 10 

0 009S 

COMMON  /LCNTRL/ 

QPHY 

SCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

QSHF 

SCNTRL 

1 12 

00100 

COMMON  /LCNTRL/ 

SN2FLG 

SCNTRL 

1 13 

00  lot 

COMMON  /LCNTRL/ 

QRSW 

SCNTRL 

1 14 

00102 

COMMON  /LCNTRL/ 

QR5K 

SCNTRL 

1 15 

00  103 

COMMON  /LCNTRL/ 

LQS  { 30 1 

SCNTRL 

1 16 

00104 

COMMON  /LCNTRL/ 

LQUf 10) 

SCNTRL 

1 17 

c 

SCNTRL 

1 16 

00105 

equivalence 

(LTMIN 

, LQS  ( 

1 ) ) 

SCNTRL 

1 19 

00  105 

EQUIVALENCE 

(LTMAX 

, L QS  ( 

2)  ) 

SCNTRL 

120 

00107 

EQUIVALENCE 

(LPREACC 

. LQS  t 

3)  > 

SCNTRL 

121 

ooioa 

EQUIVALENCE 

( LP  RECON 

. LQS  ( 

4)  ) 

SCNTRL 

1 22 

00109 

EQUIVALENCE 

( LHFLUX 

,LQS( 

5)  ) 

SCNTRL 

123 

00110 

EQUIVALENCE 

(LEFLUX 

« LQS  ( 

6)  ) 

SCNTRL 

124 

001  1 t 

EQUIVALENCE 

(LFUSION 

, LQS  t 

7)  ) 

SCNTRL 

125 

00112 

EQUIVALENCE 

(LRADSWG 

.LOSt 

8 ) ) 

SCNTRL 

126 

00113 

EQUIVALENCE 

(LRADLWG 

. LQS  ( 

9)  ) 

SCNTRL 

127 

00114 

EQUIVALENCE 

t L I CLOUD 

, LQS i 10)  ) 

SCNTRL 

128 

c 

SCNTRL 

129 

001  15 

EQUIVALENCE 

(LOMEGA 

, LQU  < 

1 ) ) 

SCNTRL 

1 30 

00116 

EQUIVALENCE 

(LDIABAT 

,LQU( 

2)  ) 

SCNTRL 

1 3 1 

00117 

EQUIVALENCE 

t LRADSW 

, L QU  ( 

3)  ) 

SCNTRL 

132 

c 

SCNTRL 

133 

001  IS 

LOGICAL 

QALT 

SCNTRL 

134 

00119 

LOGICAL 

QBEG 

SCNTRL 

135 

00120 

LOGICAL 

QDAY 

SCNTRL 

136 

00121 

LOGICAL 

QEND 

SCNTRL 

137 

00122 

LOGICAL 

QOUT 

SCNTRL 

138 

00123 

LOGICAL 

QPHY 

SCNTRL 

139 

00124 

LOGICAL 

QSHF 

SCNTRL 

140 

00125 

LOGICAL 

SN2FLG 

SCNTRL 

141 

00126 

LOGICAL 

QRSW 

SCNTRL 

1 42 
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00127 

LOGICAL 

QRSH 

SCNTRL 

143 

C 

SCNTRL 

144 

00  1 28 

LOGICAL 

LQS 

SCNTRL 

145 

00129 

LOGICAL 

LQU 

SCNTRL 

146 

00130 

LOGICAL 

LTMIN 

SCNTRL 

147 

00131 

LOGICAL 

LTMAX 

5CNTRL 

148 

00132 

LOGICAL 

LPREACC 

SCNTRL 

149 

00  133 

LOGICAL 

LP  RECON 

SCNTRL 

150 

00134 

LOGICAL 

LHFLUX 

SCNTRL 

151 

00  135 

LOGICAL 

LEFLUX 

SCNTRL 

152 

□ 0136 

LOGICAL 

LFUSION 

SCNTRL 

153 

00  137 

LOGICAL 

LRADSWG 

SCNTRL 

154 

00138 

LOGICAL 

LRADLWG 

SCNTRL 

155 

00  135 

LOGICAL 

LICLOUD 

SCNTRL 

t56 

C 

SCNTRL 

157 

00  140 

LOGICAL 

LOMEGA 

SCNTRL 

158 

0014  1 

LOGICAL 

LDIABAT 

SCNTRL 

159 

00  142 

LOGICAL 

LRADSW 

SCNTRL 

1 60 

C 

SCNTRL 

161 

00  143 

EQUIVALENCE 

( LCO , LC  f 1 ) ) 

SCNTRL 

162 

00  144 

LOGICAL 

LCO,  LC ( 200 ) 

SCNTRL 
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c 

SCNTRL 

1 64 

c 
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SCNTRL 

165 

c 

SCNTRL 

1 66 

00  145 

COMMON 

/ RCNTRL/ 

RCO 

SCNTRL 

1 67 

00146 

COMMON 

/RCNTRL / 

APHEL 

SCNTRL 

1 6B 

00  1 47 

COMMON 

/RCNTRL/ 

BETA 

SCNTRL 

169 

00  148 

COMMON 

/RCNTRL/ 

COSD 

SCNTRL 

170 

00  149 

common 

/RCNTRL/ 

CP 

SCNTRL 

17  1 

00150 

COMMON 

/RCNTRL/ 

DAYSPY 

SCNTRL 

172 

ootsi 

COMMON 

/RCNTRL/ 

DEC 

SCNTRL 

173 

00152 

COMMON 

/RCNTRL/ 

DECMAX 

SCNTRL 

174 

00153 

COMMON 

/RCNTRL/ 

DIST 

SCNTRL 

175 

00154 

COMMON 

/RCNTRL/ 

DLAT 

SCNTRL 

176 

00155 

COMMON 

/RCNTRL/ 

DLON 

SCNTRL 

177 

00156 

COMMON 

/RCNTRL/ 

DT 

SCNTRL 

178 

00157 

COMMON 

/RCNTRL/ 

ECCN 

SCNTRL 

179 

00158 

COMMON 

/RCNTRL/ 

GNU  1 

SCNTRL 

180 

00159 

COMMON 

/RCNTRL/ 

GNU2 

SCNTRL 

1S1 

00  150 

COMMON 

/RCNTRL/ 

GRAV 

SCNTRL 

182 

00161 

COMMON 

/RCNTRL/ 

0MEGA2 

SCNTRL 

183 

00162 

COMMON 

/RCNTRL/ 

PI 

SCNTRL 

T 84 

00163 

COMMON 

/RCNTRL/ 

pi  iao 

SCNTRL 

185 

00  164 

COMMON 

/RCNTRL/ 

P I 2 

SCNTRL 

186 

00165 

COMMON 

/RCNTRL/ 

PSTD 

SCNTRL 

1 87 

00166 

COMMON 

/RCNTRL/ 

PIMEAN 

SCNTRL 

188 

00  167 

COMMON 

/RCNTRL/ 

PSMAX 

SCNTRL 

189 

00  1 58 

COMMON 

/RCNTRL/ 

PSMIN 

SCNTRL 

190 

00169 

COMMON 

/RCNTRL/ 

PTOP 

SCNTRL 

19  1 

00170 

COMMON 

/RCNTRL/ 

RADE 

SCNTRL 

192 

00171 

COMMON 

/RCNTRL/ 

RGAS 

SCNTRL 

193 

00172 

COMMON 

/RCNTRL/ 

ROCP 

SCNTRL 

194 

00173 

COMMON 

/RCNTRL/ 

RSDIST 

SCNTRL 

195 

00174 

COMMON 

/RCNTRL/ 

SDAY 

SCNTRL 

196 

00175 

COMMON 

/RCNTRL/ 

SEASON 

SCNTRL 

197 

00  1 76 

COMMON 

/RCNTRL/ 

SIGE  (251 

SCNTRL 

198 

00177 

COMMON 

/RCNTRL/ 

5 I ND 

SCNTRL 

199 

00  17B 

COMMON 

/RCNTRL/ 

SOLS 

SCNTRL 
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00  179 

COMMON 

/RCNTRL/ 

TSTD 

SCNTRL 

20  1 

00  ISO 

COMMON 

/RCNTRL/ 

PLEVS  (25) 

SCNTRL 

20  2 

00  181 

COMMON 

/RCNTRL/ 

HEATW 

SCNTRL 
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00182 

COMMON 

/RCNTRL/ 

HEATI 

SCNTRL 

204 
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COMMON 

/RCNTRL/ 

EPS 

SCNTRL 
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00  184 

COMMON 

/RCNTRL/ 

EPSFAC 

SCNTRL 
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00185 
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/RCNTRL/ 

CALTOd 
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COMMON 
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KSTHP 
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00  198 
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SCNTRL  227 

c 

2 2 2 3 2 - 2 C 2 ! 

SCNTRL  228 

00200 

COMMON 

/LDP ARM/ 

FILTER 

1 46) 

SCNTRL  229 

00201 

COMMON 

/LDPARM/ 

ITAPE 

SCNTRL  230 

00202 

COMMON 

/ LDP ARM/ 

START 

SCNTRL  231 

c 

SCNTRL  232 

00203 

LOGICAL 

FILTER 

SCNTRL  233 

00204 

LOGfCAL 

ITAPE 

SCNTRL  234 

00205 

LOGICAL 

START 

SCNTRL  235 

c 

SCNTRL  235 

c 

HEAL  MODEL  CONSTANTS 

SCNTRL  237 

c 

2=222=222: 

=22222=22: 

= 2 

SCNTRL  233 

00206 

COMMON 

/HDPARM/ 

ADLDP 

SCNTRL  239 

00207 

COMPTON 

/RDPARM/ 

CONI 

SCNTRL  240 

00208 

COMMON 

/RDPARM/ 

CON  IDT 

SCNTRL  241 

00209 

COMMON 

/RDPARM/ 

C0N2 

SCNTRL  242 

00210 

COMPAQ  N 

/RDPARM/ 

CDN2DT 

SCNTRL  243 

002  1 1 

COMMON 

/RDPARM/ 

CON3 

SCNTRL  244 

002  i 2 

COMMON 

/RDPARM/ 

C0N3DT 

SCNTRL  245 

00213 

COMMON 

/RDPARM/ 

C0N4 

SCNTRL  245 

002  14 

COMMON 

/RDPARM/ 

CQN4DT 

SCNTRL  247 

00215 

COMMON 

/RDPARM/ 

CONS 

SCNTRL  248 

002  16 

COMMON 

/RDPARM/ 

COSL 

( 46  > 

SCNTRL  24g 

00217 

common 

/RDPARM/ 

COSLON 

1 72  ) 

SCNTRL  250 

00218 

COMMON 

/RDPARM/ 

CPD2 

SCNTRL  251 

002  1 9 

COMMON 

/RDPARM/ 

DXP 

1 46  ) 

SCNTRL  252 

00220 

COMMON 

/RDPARM/ 

DXYP 

(46  ) 

SCNTRL  253 

00221 

COMMON 

/RDPARM/ 

DVP 

( 46  ) 

SCNTRL  254 

00222 

COMMON 

/RPPARM/ 

F COR  LS 

146) 

SCNTRL  255 

00223 

COMMON 

/RDPARM/ 

P IDT 

SCNTRL  256 

00224 

COMMON 

/RDPARM/ 

F2DT 

SCNTRL  257 

00225 

COMMON 

/RDPARM/ 

H IDT 

SCNTRL  258 

00226 

COMMON 

/RDPARM/ 

H2DT 

SCNTRL  259 

00227 

COMMON 

/RDPARM/ 

PKSTD 

SCNTRL  260 

00228 

COMMON 

/RDPARM/ 

PKTOP 

SCNTRL  261 

00229 

COMMON 

/RDPARM/ 

RL  AT 

(46) 

SCNTRL  262 

00230 

COMMON 

/RDPARM/ 

RLATD 

146) 

SCNTRL  263 

0023  1 

COMMON 

/RDPARM/ 

ROCPDT 

SCNTRL  264 

00232 

COMMON 

/RDPARM/ 

R0CPP1 

SCNTRL  265 

00233 

COMMON 

/RDPARM/ 

SGNP 

(2) 

SCNTRL  266 

00234 

COMMON 

/RDPARM/ 

SINL 

146) 

SCNTRL  267 

00235 

COMMON 

/RDPARM/ 

SINLON 

(72) 

SCNTRL  258 

00236 

COMMON 

/RDPARM/ 

THSTD 

SCNTRL  269 

00237 

COMMON 

/RDPARM/ 

THSTD2 

SCNTRL  270 

00233 

common, 

/RDPARM/ 

WSAVE 

1159) 

SCNTRL  271 

00239 

COMMON 

/RDPARM/ 

DSIG 

<9> 

SCNTRL  272 

00240 

COMMON 

/RDPARM/ 

SIG 

19) 

SCNTRL  273 

c 

SCNTRL  274 

c 

# *■  w 

SCNTRLP  2 

c 

PH VS I CS  PARAMETERS 

AND  CONSTANTS 

SCNTRLP  3 

00241 

COMMON 

/CNTRLP/ 

CD  F ft 

SCNTRLP  4 

00242 

COMMON 

/CNTRLP/ 

CDXL 

SCNTRLP  5 

00243 

COMMON 

/CNTRLP/ 

CDXO 

SCNTRLP  6 

00244 

COMMON 

/CNTRLP/ 

CLH 

SCNTRLP  7 

00245 

COMMON 

/CNTRLP/ 

COE 

(9) 

SCNTRLP  8 

00246 

COMMON 

/CNTRLP/ 

COEF 

SCNTRLP  9 

00247 

COMMON 

/CNTRLP/ 

COEFS 

SCNTRLP  10 

00248 

COMMON 

/CNTRLP/ 

COSROT 

SCNTRLP  11 

o 

s: 

CD 


> 


■f* 


ORIGINAL  PAGE  rM 
OF  POOR  QUALITY 


00249 

COMMON  /CNTRLP / 

cpp 

scntrlp 

1 2 

00250 

COMMON  /CNTRLP / 

CTID 

SCNTRLP 

13 

0025  T 

COMMON  /CNTRLP/ 

CUMDAV 

scntrlp 

14 

00252 

COMMON  /CNTRLP/ 

CUMRAT 

SCNTRLP 

15 

00253 

COMMON  /CNTRLP/ 

CIO 

SCNTRLP 

16 

00254 

COMMON  /CNTRLP/ 

C 100 

SCNTRLP 

17 

00255 

COMMON  /CNTRLP/ 

C40 

SCNTRLP 

18 

00256 

COMMON  /CNTRLP / 

DELTA 

scntrlp 

19 

00257 

COMMON  /CNTRLP/ 

□ TC3 

SCNTRLP 

20 

00258 

COMMON  /CNTRLP/ 

DTOUT 

SCNTRLP 

21 

00259 

COMMON  /CNTRLP/ 

ED 

SCNTRLP 

22 

00260 

COMMON  /CNTRLP/ 

EDNM 

SCNTRLP 

23 

0025  1 

COMMON  /CNTRLP/ 

F COE  F 

scntrlp 

24 

00262 

COMMON  /CNTRLP/ 

FMU 

SCNTRLP 

25 

00263 

COMMON  /CNTRLP / 

FWET 

SCNTRLP 

26 

00264 

COMMON  /CNTRLP/ 

GAMFAC 

SCNTRLP 

27 

00265 

COMMON  /CNTRLP/ 

GTOPO 

SCNTRLP 

2S 

00266 

COMMON  /CNTRLP/ 

HICE 

SCNTRLP 

29 

00267 

COMMON  /CNTRLP/ 

NDTC3 

SCNTRLP 

30 

0026S 

COMMON  /CNTRLP/ 

NFLW 

SCNTRLP 

31 

00269 

COMMON  /CNTRLP/ 

PIM 

SCNTRLP 

32 

00270 

COMMON  /CNTRLP/ 

QHQG 

SCNTRLP 

33 

00271 

COMMON  /CNTRLP/ 

SHLTOP 

SCNTRLP 

34 

00272 

COMMON  /CNTRLP/ 

SINROT 

SCNTRLP 

35 

00273 

COMMON  /CNTRLP/ 

5NOWN 

SCNTRLP 

36 

00274 

COMMON  /CNTRLP/ 

SNOWS 

SCNTRLP 

37 

00275 

COMMON  /CNTRLP/ 

5TBO 

SCNTRLP 

38 

00276 

COMMON  /CNTRLP/ 

STERP 1 

SCNTRLP 

39 

00277 

COMMON  /CNTRLP/ 

5TERP2 

SCNTRLP 

40 

00273 

COMMON  /CNTRLP/ 

TICE 

SCNTRLP 

41 

00279 

COMMON  /CNTRLP/ 

TUTOR 

SCNTRLP 

42 

00280 

COMMON  /CNTRLP/ 

XDAY 

SCNTRLP 

43 

00281 

COMMON  /CNTRLP/ 

ZLNCO 

SCNTRLP 

44 

00282 

LOGICAL 

QHOG 

SCNTRLP 

45 

o o 

C 

SCNTRLP 

46 

^ £2 

c 

* * * 

SQANDQT 

2 

c 

GLOBAL  MODEL  SURFACE  FIELDS 

SQANDQT 

3 

3?  §2 

00283 

COMMON  /QANDQT / 

QS ( 7 2 * 19,46) 

SQANDQT 

4 

c 

SQANDQT 

5 

a *3 

00234 

DIMENSION 

PHISf 1368 , T } 

SQANDQT 

6 

00285 

DIMENSION 

SMTHf 1368 ,23 ) 

SQANDQT 

7 

00286 

DIMENSION 

ALBEDOt 1 368 . 1 > 

SQANDQT 

S 

fO 

00287 

DIMENSION 

GT(  1368  t T f 

SQANDQT 

9 

J 1 

00288 

DIMENSION 

GWf 1 388 , 1 ) 

SQANDQT 

10 

" ■ Ss 

00289 

dimension 

TS( 1368 , 1 > 

SQANDQT 

1 1 

00290 

DIMENSION 

SHSM368 , 1 J 

SQANDQT 

12 

ii 

00291 

DIMENSION 

Pf 72,  19,  U 

SQANDQT 

13 

*■'  \ V -l 

00292 

dimension 

TMJNf 1368 , 1 ) 

SQANDQT 

14 

«4  m 

00293 

DIMENSION 

TMAM  1368, 1 > 

SQANDQT 

15 

00294 

DIMENSION 

PRE ACC  f 1368, 1 > 

SOANDQT 

16 

00295 

DIMENSION 

PRECON ( 1 368  T T > 

SQANDQT 

17 

00296 

DIMENSION 

HFLUX ( 1368 , 1 t 

SQANDQT 

18 

002S7 

DIMENSION 

EFLUXf 1368 , 1 ) 

SQANDQT 

19 

00298 

DIMENSION 

FUSION ( 1368 , 1 > 

SQANDQT 

20 

00299 

DIMENSION 

RADSWGf  1368 , 1 * 

SQANDQT 

21 

00300 

DIMENSION 

RADLWG ( 1 368, 1 ) 

SQANDQT 

22 

00301 

DIMENSION 

I CLOUD ( 1388, 1 ) 

SQANDQT 

23 

c 

SQANDQT 

24 

00302 

EQUIVALENCE 

(QSHJ.n,  PHISf  1 . 1 } ) 

SQANDQT 

25 

00303 

EQUIVALENCE 

fQSM  ,2. 1 J , SIWTH ( 1,1)) 

SQANDQT 

26 

00304 

EQUIVALENCE 

{ QS { 1 ,3,1) ♦ ALBEDOf 1 , 1 > ) 

SQANDQT 

27 

00305 

EQUIVALENCE 

(QSM  ,4, 1 ) ,GTM.  1)  > 

SQANDQT 

28 

00306 

EQUIVALENCE 

<QSf 1,5,1)  , GW  f 1.1)) 

SQANDQT 

29 

00307 

EQUIVALENCE 

(QSI 1 ,6,  I > * TSM  , 1 ) ) 

SQANDQT 

30 

00308 

equivalence 

(QS<  I r7  . 1 ) . SHS  ( |,U) 

SQANDQT 

3 1 

00309 

EQUIVALENCE 

(osu.a.ii.pftjj)) 

SQANDQT 

32 

003  10 

EQUIVALENCE 

{ QS { 1 , 10, i ) , T M I N f 1,1)) 

SQANDQT 

33 

0031  1 

EQUIVALENCE 

f QSf  1 , 1 1 , T ) . TMA  X f 1,1)) 

SQANDQT 

34 

00312 

EQUIVALENCE 

(QSf 1.12,1) , PRE ACC { 1,1)) 

SOANDQT 

35 

003  13 

EQUIVALENCE 

(QS< 1,13,1)  , PRECON  f 1,1)) 

SQANDQT 

36 

00314 

EQUIVALENCE 

(0SI1J4J)  , HF  LUX  ( t , 1 > > 

SQANDQT 

37 

CONSTA  5 


\ : ' 1 A 


l 


i 


\) 


\ 


003  15 

00316 

00317 
003  1 B 
00319 


00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00328 
rt0329 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 


00333 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00368 

00369 

00370 


EQUIVALENCE  <Q5< 1 . 15, 1 > , EFLUX( 1,1)) 

EQUIVALENCE  { Q5 (1,16,1) .FUSION* 1 t 1 ) ) 

EQUIVALENCE  (QS( 1 . 17. 1 ) , RADSWG ( 1 . 1 ) ) 

EQUIVALENCE  (QSM  , 18,  t ) , RADLWGf  1 , 1)  > 

EQUIVALENCE  (QSt 1,19.1), ICLOUD{ 1 , 1 > ) 

C * * * 

C GLOBAL  MODEL  UPPER-AIR  FIELDS 

COMMON  / QANDQT / QU * 7 2 . 9 . 1 4 . 46 ) 

C 

DIMENSION  0(72,9,14.1) 

DIMENSION  V(72,9, 14, 1 ) 

DIMENSION  7(72,9,14,!) 

DIMENSION  SH(72, 9, 14. 1 ) 

DIMENSION  PHI <72,9. 14,1) 

DIMENSION  OMEGA  < 72 , 126,1) 

DIMENSION  DI ABAT f 72 . 1 26 , I ) 

DIMENSION  RADSW (72 , 126,1) 

DIMENSION  RADLW ( 72 ,126,1) 

C 

EQUIVALENCE  10UM  , I , 1 , 1 ) .UU,  1,  M ) ) 

EQUIVALENCE  (0U(1  , 1 ,3-,  1 ) ,V(  1 , 1 , 1,1  } ) 

EQUIVALENCE  { QU  t 1 , 1 . 5 , 11,1(1,1,1,11) 

EQUIVALENCE  (QUH  . 1 ,7,  1 I (SH(1  , 1,1  . I ) I 

EQUIVALENCE  1 QU ( 1 1 , 9 , 1)  , PHI  * 1 , 1,1,11) 

EQUIVALENCE  ( QU(  1 ,1,11,1)  , OMEGA ( 1.1.1)) 

EQUIVALENCE  (QUM,  1,12.1)  . D I ABAT  ( 1 , 1 . t J ) 

EQUIVALENCE  < QU < 1 , 1 , 1 3 , f ) .RADSW*  1,1,1)) 

EQUIVALENCE  ( QU ( 1 » 1 . 1 4 . 1 ) , RADLW*  1,1,1)) 

C 

c * * * 

C RADIATION  AND  SOURCE  TERM  FIELDS 

COMMON  /RADCOM/  AS172.9),  RE172.10) 

COMMON  /RADCOM/  PL(72,9),  PLE(72,10) 

COMMON  /RADCOM/  PLK(72,9I,  PLKEMO) 

COMMON  /RADCOM/  TL{72,9),  TLE*72,T0) 

COMMON  /RADCOM/  TG(72)  , TH(72,9> 

COMMON  /RADCOM/  SHL(72,9),  SWLE(72,10> 

COMMON  /RADCOM/  580(72),  CLDUD(72,12) 

COMMON  /RADCOM/  SHSAT(72.9>,  GAM(72,9) 

COMMON  /RADCOM/  RH(72,9> 

COMMON  /RADCOM/  SSS{72,9>,  SSSE(72,10) 

COMMON  /RADCOM/  HH(72,9),  HHE(72.1Q) 

COMMON  /RADCOM/  HHS(72, 9) 

COMMON  /RADCOM/  CVT<72.9).  CVQ<72.9) 

COMMON  /RADCOM/  CXDE19) 

COMMON  /RADCOM/  SWALE ( 7 2 , 1 0 ) . SWIL<72.9) 

COMMON  /RADCOM/  AL172.10) 

COMMON  /RADCOM/  TAUL(72.T0),  OZALE(72,10) 

COMMON  /RADCOM/  TOPABSt72) 

COMMON  /RADCOM/  RN*9).  IN (9).  SRS*9).  STN ( 9 ) 

COMMON  /RADCOM/  TCOND ( 9 ) , TPENE ( 9 ) 

COMMON  /RADCOM/  TLOWL.TMIDL.  NLAYQZ 
COMMON  /RADCOM/  FK*5),  XK(5),  NFK 

COMMON  /RADCOM/  OLUAN(IS),  QLAPRU9J,  0LJUL*I9),  OLOCTMS) 
COMMON  /RADCOM/  0CM22(23>,  0CM30(23),  0CM38*23),  0CM46123) 
COMMON  /RADCOM/  PR0CNH23),  0CMXX*23),  NOZ , TOTOZ(4),  CDATE<6) 
COMMON  /RADCOM/  CZH(72),  WET*72),  EVAP  , PREP (72)  , WI  * 72 > 
COMMON  /RADCOM/  COSZ(72),  SO,  RADTRM  < 72 ) , CXL 
COMMON  /RADCOM/  SG172).  SP(72> 

COMMON  /RADCOM/  RSURF*72).  RCLOUD*72),  JALB 
COMMON  /RADCOM/  LAND(72>,  0CEAN(72),  ICE(72) 

COMMON  /RADCOM/  SN0W(72),  MIXWI(72)r  FROST* 72) 

LOGICAL  LAND,  OCEAN,  ICE,  SNOW,  MIXWI,  FROST 

C 

c » * * 

C PHYSICS  INPUT  NAMELIST 

NAMELIST  /INPHY5/  CDXL,  CDXO.  ED,  FMU.  FWET.  NDHOG,  NFLW 
LOGICAL  ONCE/, FALSE./ 

C 

C DEBUG 
10000  CONTINUE 


SQANDQT  33 
SQANDQT  39 
S04NDQT  40 
SQANDQT  41 
SQANDQT  42 
SQANDQT  43 
SQANDQT  44 
SQANDQT  45 
SQANDQT  46 
SQANDQT  47 
SQANDQT  48 
SQANDQT  49 
SQANDQT  50 
SQANDQT  51 
SQANDQT  52 
SQANDQT  53 
SQANDQT  54 
SQANDQT  55 
SQANDQT  56 
SQANDQT  57 
SQANDQT  58 
SQANDQT  SB 
SQANDQT  60 
SQANDQT  61 
SQANDQT  62 
SQANDQT  63 
SQANDQT  64 
SQANDQT  65 
5QANDQT  66 
SRADCOM  2 
SRADCOM  3 
SRADCOM  4 
SRADCOM  5 
SRADCOM  6 
SRADCOM  7 
SRADCOM  B 
SRADCOPJ  9 
SRADCOM  10 
SRADCOM  11 
SRADCOM  12 
SRADCOM  13 
SRADCOM  14 
SRADCOM  15 
SRADCOM  16 
SRADCOM  17 
SRADCOM  18 
SRADCOM  19 
SRADCOM  20 
SRADCOM  21 
SRADCOM  22 
SRADCOM  23 
SRADCOM  24 
SRADCOM  25 
SRADCOM  26 
SRADCOM  27 
SRADCOM  28 
SRADCOM  29 
SRADCOM  30 
SRADCOM  31 
SRADCOM  32 
SRADCOM  33 
SRADCOM  34 
SRADCOM  35 
SRADCOM  36 
SINPHYS  2 
S1NPHYS  3 
SINPHYS  4 
SCONSTA  8 
SC0N5TA  9 
SBEGDEB  2 
SBEGDEB  3 


Tj  yy 


<3  'V 

r - s 


00373 


CONSTA  6 


C 

*•**  CYBER  SCALAR  VERSION  04,001  INPUT , I 00 

SBEGDEB 

4 

c 

****  CYBER  SCALAR  VERSION  04,000 

SBEGDEB 

5 

c 

CYBER  SCALAR  VERSION  00 

SBEGDEB 

6 

CSSSSSSS$£SSSS£S£S££S£SSS££SS5$SSSSSS££SS$SSS$SS$SSS££S55S£5£SS£S5SSSSSSSBEG0EB 

7 

c 

SCONSTA 

1 1 

00374 

IF  (ONCE) 

GO  TO  50 

SCONSTA 

12 

00375 

ONCE 

- .TRUE. 

SCONSTA 

13 

c 

SCONSTA 

14 

c 

c 

» * * 

* 

SCONSTA 

16 

c 

* * » 

* 

SET  CONSTANTS  FOR  ENTIRE  RUN 

SCONSTA 

17 

c 

*•  * * 

* 

**■>** 

SCONSTA 

16 

c 

* * * 

t * 

SCONSTA 

19 

c 

SCONSTA 

20 

00376 

NDTC3 

- 

MODHMSI NDPHY , 0 ) 

SCONSTA 

21 

00377 

DTQ3 

- 

NDTC3 

SCONSTA 

22 

00378 

□ TOUT 

s 

MOPHMS ( NDOUT , 0 ) 

SCONSTA 

23 

00379 

CUMRAT 

- 

DTC3/DTOUT 

SCONSTA 

24 

003S0 

CUMDAY 

= 

SDAY/DTOUT 

SCONSTA 

25 

c 

DATA  SDAY 

' . CAL TO J , P ZERO/ 3 6400 . ,4*186,1013.25/ 

SCONSTA 

26 

c 

DATA  SOLS. HE ATW. HEAT  I , EPS/ 173.  , 5 97.2, 6B0.  , .622/ 

SCONSTA 

27 

c 

SCONSTA 

28 

00381 

CALTOd 

- 

4.186  * 1000 . 

SCONSTA 

29 

00382 

PZERO 

£ 

1013.25 

SCONSTA 

30 

00363 

HEATW 

= 

597 . 2 

SCONSTA 

3 1 

00364 

HE  ATI 

6SO.O 

SCONSTA 

32 

00365 

EPS 

= 

0 . 622 

SCONSTA 

33 

c 

SCONSTA 

34 

00386 

CLH 

HEATW  / CPP 

SCONSTA 

35 

00367 

EPSFAC 

= 

eps*heatw/rgas*caltoj 

SCONSTA 

36 

00388 

GAMFAC 

- 

CLH  * EPSFAC 

SCONSTA 

37 

00369 

GTOPO 

{ 2 , *GRAV»P ZERO /SORT  1 TICE ) >/10. 

SCONSTA 

38 

c 

SCONSTA 

39 

00390 

CTID 

= 

SDAY* .0052 

SCONSTA 

40 

00391 

SO 

= 

2880 . /RSDIST 

SCDNSTA 

41 

00392 

PIM 

= 

PSTD  - PTOP 

SCONSTA 

42 

00393 

CMASS 

= 

PIM* 10. /GRAV 

SCONSTA 

43 

00394 

STERP 1 

1SIGE CNLAYP1 ) - SIG1NLAYM1 ) )/(SIG(NLAY)  - 

SI  G ( NLA  YM  1 } ) 

SCONSTA 

44 

00395 

STERR2 

s 

i S I G { NLA Y ) - SIGE 1 NLAYP 1 ) )/<SIG(NLAY)  - 

Si G 1 NLA YM  1 ) 1 

SCONSTA 

45 

00396 

ZLNCO 

= 

.5*DSIG1 NLAY) *RGAS/GRAV 

SCONSTA 

46 

00397 

COEF 

= 

DTC3/ i CPP *CMASS* SDAY) 

SCONSTA 

47 

00398 

COEFS 

r 

GRAV*DTC3/DSIGf NLAY) 

SCONSTA 

48 

c 

SCONSTA 

49 

00399 

DO  10  L 

“ 1 

,NLAY 

SCONSTA 

50 

00400 

COE ( L ) 

.= 

COEF/DSIG(L) 

SCONSTA 

51 

00401 

1 0 

CONTINUE 

SCONSTA 

52 

c 

SCONSTA 

53 

54 

c 

c 

III 

► * 

uL  UfM  D 1 H 

SCONSTA 

55 

c 

m m + 

**  REMOVE 

: OLD  MIXWI  CONDITION  FROM  GT  ARRAY  ***** 

SCONSTA 

56 

c 

*■  * * 

► » 

SCONSTA 

57 

c 

* * * 

* * 

SCONSTA 

58 

c 

SCONSTA 

59 

00402 

DO  100 

dd -JSP , dNP 

SCONSTA 

60 

00403 

DO  100 

I I 

= 1 , IM 

SCONSTA 

6 t 

00404 

IF  ( GTUI 

,JJ) , LE  . 1 . T ) GT (II , JJ ) =TI CE 

SCONSTA 

62 

00405 

100 

CONTINUE 

SCONSTA 

63 

c 

SCONSTA 

64 

c 

+ * *■' 

■ * * 

SCONSTA 

65 

c 

*-  * w 1 

* 

SCONSTA 

66 

c 

* * * 1 

* 

DEFAULT  and  read  namelist  inphys  ***** 

SCONSTA 

67 

c 

* * *-  • 

SCONSTA 

68 

c 

* * *■  1 

- * * 

SCONSTA 

69 

c 

SCONSTA 

70 

00406 

CDF  R « 

1 . 

SCONSTA 

7 t 

00407 

CD K L = 

1 . 

SCONSTA 

72 

00406 

CD/O  = 

1 . 

SCONSTA 

73 

00409 

ED  = .5 

SCONSTA 

74 

00410 

FMU  = . 

00007 

SC0N5TA 

75 

004  1 1 

FWET  - 

. 5 

SCONSTA 

76 

004  1 Z 

NDHOG  = 

60000 

SCONSTA 

77 

o o 

*n  P3 

-o  S 

Q S 

O 

33  F 
rO  -a 

Cl 

> GS 

r m 


CONSTA  7 


■«rw 


00413 

NFLW  = 

5 

004  14 

READ  t 

1 1 . 1NPHYS, END=20) 

00415 

20 

CONTINUE 

004  15 

WRI TE ( 3 , 1NPHYS) 

00417 

C 

FCOEF 

= 258 , *GRAV**2*FMU*DTC3/ <500 , +RGAS> 

c * * * 
c - + * 

*■  r 

SET  CONSTANTS  FOR  CURRENT  TIME  ***** 

c * * * 
c * ** 

• * 

***** 

00418 

c 

50 

CONTINUE 

004  1 9 

QHOG 

= NDHOG.NE.O  .AND.  NIODHMS  f NHMS t NDHOG) /NDTC3 

00420 

ROT 

= PI2-NSDAY/SDAY 

00421 

COSROT 

a COS ( ROT > 

00422 

SINROT 

= SINfROTJ 

00423 

SNODEC 

= PI  / 1 2 . •'COSt  ,9863*  (NDAY-24 . 668}  * P I 1B0) 

00424 

SNOWN 

" PI/3,  - SNODEC 

00425 

SNOWS 

= -PI/3.  - SNODEC 

00426 

ri 

XDAY 

= FLOAT  < NDAY  + 63  > 

00427 

u 

RETURN 

00428 

END 

STATEMENT 

LABEL 

MAP 

-LABEL'- 

-DEFINED REFERENCES 

10 

40  1 

399 

100 

405 

402  403 

toooo 

373 

20 

4 15 

414 

SO 

418 

374 

VARIABLE  MAP 

--NAME BLOCK TYPE CLASS REFERENCES  A=ARGL  1ST 


ADATE 

CCNTRL 

CHAR*B 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

AL 

RAOCOM 

REAL 

ARRAY 

354 

ALBEDO 

QANDOt 

REAL 

ARRAY 

286 

304 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

AS 

RADCOM 

REAL 

ARRAY 

339 

ATIME 

CCNTRL 

CHAR  *8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CIO 

CNTRLP 

REAL 

SIMPLE 

253 

C100 

CNTRLP 

REAL 

SIMPLE 

254 

C40 

CNTRLP 

REAL 

SIMPLE 

255 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

1B5 

381  /S 

387 

cc 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

CCO 

CCNTRL 

CMAR*8 

SIMPLE 

2 

14 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

4 

CCSP06 

CCNTRL 

CHA  R *8 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHAR+B 

SIMPLE 

8 

21 

CCSP08 

CCNTRL 

CHARTS 

SIMPLE 

9 

22 

CDATE 

RADCOM 

REAL 

ARRAY 

363 

CDF  R 

CNTRLP 

REAL 

SIMPLE 

24  1 

406/S 

CD  XL 

CNTRLP 

REAL 

SIMPLE 

242 

37  1 

407/S 

CDXO 

CNTRLP 

REAL 

SIMPLE 

243 

37  1 

408/S 

CLH 

CNTRLP 

REAL 

SIMPLE 

244 

3B6/S 

388 

CLOUD 

RADCOM 

REAL 

ARRAY 

345 

CMASS 

REAL 

SIMPLE 

393/S 

397 

CNTRLP 

REAL 

UNKNOWN 

241 

242 

243 

252 

253 

254 

263 

264 

265 

274 

275 

276 

COE 

CNTRLP 

REAL 

ARRAY 

245 

400/S 

COEF 

CNTRLP 

REAL 

SIMPLE 

246 

397/5 

400 

COEFS 

CNTRLP 

REAL 

SIMPLE 

247 

398/  S 

0 


W 


SCONSTA  7S 
SCONSTA  79 
5CON5TA  SO 
SCONSTA  SI 
SCONSTA  82 
SCONSTA  83 
SCONSTA  84 
SCONSTA  85 
SCONSTA  86 
SCONSTA  87 
SCONSTA  SB 
SCONSTA  89 
SCONSTA  SO 
SCONSTA  91 
0 SCONSTA  92 

SCONSTA  93 
SCONSTA  94 
SCONSTA  95 
SCONSTA  96 
SCONSTA  97 
SCONSTA  9B 
SCONSTA  99 
SCONSTA  TOO 
SCONSTA 101 
SCONSTA 102 


C = CTRL  OF  DO,  I=*DATA  INIT,  R=  READ , S=STORE,  W^WRITE 


O G 


■O  "S 

c ^ 
r~  m 


5 6 7 B 9 10  11  12 


244 

245 

246 

247 

248 

24  5 

250 

251 

2S5 

256 

257 

258 

259 

260 

261 

262 

266 

267 

268 

269 

270 

27  1 

272 

273 

277 

27B 

279 

280 

28  1 

CONSTA  8 


CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  1 OT 

RDP  ARM 

REAL 

SIMPLE 

20S 

CON2 

RDPARM 

REAL 

SIMPLE 

209 

CON2DT 

RDPARM 

REAL 

SIMPLE 

210 

CONG 

RDPARM 

real 

SIMPLE 

21  1 

C0N3DT 

RDPARM 

real 

SIMPLE 

212 

CON4 

RDPARM 

REAL 

SIMPLE 

213 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

214 

CONS 

RDPARM 

REAL 

SIMPLE 

2 15 

CONSTA 

SUBROUTINE 

T 

COSO 

RCNTAL 

REAL 

SIMPLE 

148 

COS  L 

RDPARM 

REAL 

ARRAY 

2 1 6 

COSLON 

RDPARM 

REAL 

ARRAY 

217 

COSROT 

CNTRLP 

real 

SIMPLE 

248 

421  /S 

cosz 

RADCOM 

REAL 

ARRAY 

365 

CP 

rcntrl 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

2 IS 

CPP 

CNTRLP 

REAL 

SIMPLE 

249 

386 

cos 

CCNTRL 

real 

ARRAY 

12 

CQLf 

CCNTRL 

REAL 

ARRAY 

13 

CTID 

CNTRLP 

REAL 

SIMPLE 

250 

390/S 

CUMDAY 

CNTRLP 

REAL 

SIMPLE 

251 

380/S 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

252 

379 /S 

cvo 

R A DCOM 

REAL 

ARRAY 

351 

CVT 

R A DCOM 

REAL 

array 

35  t 

CXDE 

RADCOM 

REAL 

ARRAY 

352 

CXL 

RADCOM 

REAL 

SIMPLE 

365 

CZN 

RADCOM 

REAL 

ARRAY 

364 

DAYSPY 

rcntrl 

REAL 

SIMPLE 

1 50 

DEC 

rcntrl 

REAL 

SIMPLE 

151 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DELTA 

CNTRLP 

REAL 

SIMPLE 

256 

DIABAT 

QANDOT 

REAL 

ARRAY 

327 

336 

DIST 

RCNTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

396 

DT 

RCNTRL 

REAL 

SIMPLE 

T56 

DTC3 

CNTRLP 

REAL 

SIMPLE 

257 

377/S 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

258 

37B/S 

DXP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

22  T 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

ED 

CNTRLP 

REAL 

SIMPLE 

25S 

37  T 

EDNM 

CNTRLP 

REAL 

SIMPLE 

260 

EFLUX 

QANDQT 

REAL 

ARRAY 

297 

315 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

385/S 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

387/S 

EVAP 

RADCOM 

REAL 

SIMPLE 

364 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCQtF 

CNTRLP 

REAL 

SIMPLE 

261 

417/S 

FC0RL5 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LOPARM 

LOGICAL 

ARRAY 

200 

203 

FK 

RADCOM 

REAL 

ARRAY 

360 

FMU 

CNTRLP 

REAL 

SIMPLE 

262 

371 

FROST 

RADCOM 

LOGICAL 

ARRAY 

369 

370 

FUSION 

QANDOT 

REAL 

ARRAY 

298 

3 16 

FWET 

CNTRLP 

REAL 

SIMPLE 

263 

37  1 

GAM 

RADCOM 

REAL 

ARRAY 

346 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

264 

388/S 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

158 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

389 

GT 

QANDOT 

REAL 

ARRAY 

287 

305 

GTOPO 

CNTRLP 

REAL 

SIMPLE 

265 

389/S 

GW 

QANDOT 

REAL 

ARRAY 

288 

306 

H 1 DT 

RDPARM 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

396 

*04/5 


W Vi* 

J. 


ORIGINAL  PAGE  JS 
OF  POOR  QUALITY 


I 


’fF  ft  ■ . 

. ...  M • 


1 ' • 'A 


HEATI 

rcntrl 

REAL 

SIMPLE 

182 

384/S 

HEATW 

RCNTRL 

REAL 

SIMPLE 

1B1 

383/  S 

386 

387 

HFLUX 

QANDQT 

REAL 

ARRAY 

235 

314 

HH 

RADCOM 

REAL 

ARRAY 

349 

HHE 

RADCOM 

REAL 

ARRAY 

343 

HHS 

R A DC DM 

REAL 

ARRAY 

350 

HICE 

CNTRLP 

REAL 

SIMPLE 

266 

IC 

ICNTRL 

integer 

ARRAY 

go 

9 1 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

7.5 

90 

9 1 

ICE 

RADCOM 

LOGICAL 

ARRAY 

368 

370 

ICLOUD 

QANDOT 

INTEGER 

ARRAY 

30  1 

313 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

27 

28 

36 

37 

38 

39 

47 

43 

49 

50 

58 

59 

60 

61 

63 

70 

7 1 

72 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

IC5P55 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

189 

190 

19  t 

152 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

130 

Z EF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

02 

I PUS I ON 

ICNTRL 

INTEGER 

UNKNOWN 

83 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

SI 

II 

INTEGER 

SIMPLE 

403/C 

404 

404 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

189 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

403 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAY 

131 

INPHY5 

INTEGER 

SIMPLE 

37  1 

4 14 

4 16 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

79 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

88 

89 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

I RAD5W 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

IROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDP ARM 

LOGICAL 

SIMPLE 

20  1 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

JALB 

RADCOM 

INTEGER 

SIMPLE 

367 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

J£ 

IDPARM 

integer 

ARRAY 

194 

JJC 

CCNTRL 

CHAR  + 8 

SIMPLE 

5 

IS 

JJ 

INTEGER 

SIMPLE 

402/C 

404 

404 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE . 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

402 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

joa 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHARTS 

SIMPLE 

6 

19 

UP 

IDPARM 

INTEGER 

ARRAY 

135 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

402 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

K5TEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

L 

INTEGER 

SIMPLE 

399/C 

400 

400 

LAND 

RADCOM 

LOGICAL 

ARRAY 

368 

370 

LC 

LCNTRL 

logical 

ARRAY 

143 

144 

LCD 

LCNTRL 

logical 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

32 

93 

94 

95 

o 

o 

2S 

CO 

s> 

S 


29 

30 

31 

32 

33 

34 

35 

40 

4 1 

42 

43 

44 

45 

46 

51 

52 

53 

54 

55 

56 

57 

62 

63 

64 

65 

66 

67 

68 

73 

74 

75 

76 

193 

194 

195 

196 

197 

198 

199 

ao  31  82  83  84  85  86 


2 ° 
^ 3 

Tf  Q 

O 5 

§i 

lO  T3 

C Js 

£ ® 
ET  rn 

"I  mo 

*<  m 


96  97  95  99  100  101  10Z 


i 

& 

V 
- » 


LDI ABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

103 
1 16 

104 

141 

LDPARM 

INTEGER 

unknown 

200 

20  1 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

t to 

135 

LF  US I ON 

LCNTRL 

LOGICAL 

UNKNOWN 

t 1 1 

136 

LHFLU* 

LCNTRL 

LOGICAL 

UNKNOWN 

T 09 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

135 

logbr 

ICNTRL 

integer 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

1 03 

1 05 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

128 

104 

1 15 

LRADLWG 

LCNTRL 

LOGICAL 

unknown 

1 1 □ 

1 38 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

1 42 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

logical 

UNKNOWN 

106 

13  1 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

matsnx 

ICNTRL 

INTEGER 

SIMPLE 

44 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MI  XW1 

R A DC 07/1 

LOGICAL 

ARRAY 

369 

370 

MJ 

1 DP ARM 

INTEGER 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

M5M 

ICNTRL 

INTEGER 

SIMPLE 

49 

NB 

ICNTRL 

INTEGER 

SIMPLE 

50 

ND 

ICNTRL 

INTEGER 

SIMPLE 

S ! 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

ND  AV 

ICNTRL 

INTEGER 

SIMPLE 

53 

423 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

371 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

37S 

NO  PHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

376 

NDR5W 

ICNTRL 

INTEGER 

SIMPLE 

29 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NDTG3 

CNTRLP 

INTEGER 

SIMPLE 

267 

376/S 

NFK 

RADCOM 

INTEGER 

SIMPLE 

360 

NFLW 

CNTRLP 

INTEGER 

SIMPLE 

268 

37  1 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

4 19 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMS1 

I DP  ARM 

INTEGER 

SIMPLE 

198 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSK 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

61 

394 

NLAYMt 

ICNTRL 

INTEGER 

SIMPLE 

62 

394 

NLAYOZ 

RADCOM 

INTEGER 

SIMPLE 

359 

NLA YP 1 

ICNTRL 

INTEGER 

SIMPLE 

63 

394 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NOZ 

RADCOM 

INTEGER 

S I MP  L E 

363 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

420 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

N5TEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMD  1 

I DP ARM 

INTEGER 

SIMPLE 

199 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OCEAN 

RADCOM 

LOGICAL 

ARRAY 

368 

370 

OCM22 

RADCOM 

REAL 

ARRAY 

362 

OCM30 

RADCOM 

REAL 

ARRAY 

362 

□CM3  8 

RADCOM 

REAL 

ARRAY 

362 

0CM46 

RADCOM 

REAL 

ARRAY 

362 

OCMXX 

RADCOM 

REAL 

ARRAY 

363 

OLAPR 

RADCOM 

real 

ARRAY 

361 

OL  JAN 

RADCOM 

REAL 

ARRAY 

361 

OLJUL 

RADCOM 

REAL 

ARRAY 

361 

OLOCT 

RADCOM 

REAL 

array 

36  1 

OMEGA 

qANDQT 

REAL 

ARRAY 

326 

335 

t 


202 


106  107  108  109  110  111  112  113  114 

116  1 T 7 129 


4 26 

412/S  419  419 


377  419 

413/S 


395  395  396  39B  399 

394  395 

395 


TO  ' 

■ • *1 


OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

T 6 1 

ONCE 

LOGICAL 

SIMPLE 

372/1 

374 

OZALE 

RADCOM 

REAL 

ARRAY 

355 

P 

QANDQT 

REAL 

ARRAY 

291 

309 

PHI 

QANDQT 

REAL 

ARRAY 

325 

334 

PHIS 

QANDQT 

REAL 

ARRAY 

284 

302 

PI 

RCNTRL 

REAL 

SIMPLE 

t 82 

423 

PI  ISO 

RCNTRL 

REAL 

SIMPLE 

163 

423 

P I 2 

RCNTRL 

REAL 

SIMPLE 

164 

420 

P I M 

CNTRLP 

REAL 

SIMPLE 

269 

392/S 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PK  TOP 

RDPARM 

REAL 

SIMPLE 

22B 

PL 

RADCOM 

REAL 

ARRAY 

340 

PLE 

RADCOM 

REAL 

ARRAY 

340 

PLEVS 

RCNTRL 

REAL 

ARRAY 

180 

PLK 

RADCOM 

REAL 

ARRAY 

34  1 

PLKE 

RADCOM 

REAL 

ARRAY 

341 

PREACC 

QANDQT 

REAL 

ARRAY 

294 

312 

PRECON 

QANDQT 

REAL 

ARRAY 

295 

313 

PREP 

RADCOM 

REAL 

ARRAY 

364 

PROCM 

RADCOM 

REAL 

ARRAY 

363 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

1 63 

PSTD 

RCNTRL 

REAL 

SIMPLE 

165 

392 

PTOP 

RCNTRL 

REAL 

SIMPLE 

169 

392 

PZERO 

RCNTRL 

REAL 

SIMPLE 

186 

382/S 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 18 

QANDQT 

PEAL 

UNKNOWN 

283 

320 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 19 

QOAV 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

QHOG 

CNTRLP 

LOGICAL 

SIMPLE 

270 

282 

<3  OUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

1 23 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

102 

127 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

1 26 

PS 

QANDQT 

REAL 

ARRAY 

283 

302 

312 

313 

OSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

1 24 

QU 

QANDQT 

REAL 

ARRAY 

320 

330 

RADCOM 

REAL 

UNKNOWN 

339 

340 

350 

35  1 

361 

362 

RADE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

REAL 

ARRAY 

329 

338 

RADLV/G 

QANDQT 

REAL 

ARRAY 

300 

318 

RADSW 

QANDQT 

REAL 

ARRAY 

328 

337 

RADSWG 

QANDQT 

REAL 

ARRAY 

299 

3 t 7 

RADTRM 

RADCOM 

REAL 

ARRAY 

355 

RC 

RCNTRL 

REAL 

ARRAY 

187 

1 SS 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

RCLOUD 

RADCOM 

REAL 

ARRAY 

367 

RCNTRL 

REAL 

UNKNOWN 

145 

146 

156 

157 

167 

168 

1 78 

179 

RDPARM 

REAL 

UNKNOWN 

206 

207 

217 

218 

22S 

229 

239 

240 

RE 

RADCOM 

real 

ARRAY 

339 

RGAS 

RCNTRL 

REAL 

SIMPLE 

t 7 1 
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71 

n 

NYMOI 

IDPARM 

INTEGER 

SIMPLE 

199 

[tf 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

simple 

72 

U 

OMEGA 

QANDQT 

REAL 

ARRAY 

284 

293 

*■* 

0MEGA2 

RCNTRL 

REAL 

SIMPLE 

161 

I* 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

315 

PHI 

PANDPT 

REAL 

ARRAY 

283 

2B2 

! 

PHIP 

qPOLES 

REAL 

ARRAY 

302 

* 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

i,  * 

PI 

RCNTRL 

REAL 

SIMPLE 

162 
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r 1 

PI180 

RCNTRL 

REAL 

SIMPLE 
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\ * 

P I 2 

RCNTRL 

REAL 

SIMPLE 

1 64 
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PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 
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PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

\ t 

PKTOP 

RDPARM 

REAL 

SIMPLE 

228 

PLEVS 

RCNTRL 

REAL 

ARRAY 

180 

f 

PP 

QPOLES 

REAL 

ARRAY 

297 

306/S 

306 

j 

PRE ACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PftECQN 

PANDQT 

REAL 

ARRAY 

253 

27  1 

[ 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

1 67 

* 

PSW1IN 

RCNTRL 

REAL 

SIMPLE 

1GB 

PSTD 

RCNTRL 

REAL 

SIMPLE 

t 65 

P TOP 

RCNTRL 

REAL 

SIMPLE 

1 69 

PZERO 

RCNTRL 

REAL 

SIPAPLE 

186 

r 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

i ia 
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108 
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1 10 

1 1 1 

1 1 2 

1 1 3 
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1 1 7 
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308 
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309 

3T0 

3 1 0 

3 1 1 

309 

3 1 0 

31  1 

315 

319 

320 

321 

322 

309 
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REAL 
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SIMPLE 
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QDAY 
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SIMPLE 
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QEND 
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SIMPLE 

96 

t 2 1 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 
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OPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

1 23 

QPOLES 

REAL 

UNKNOWN 

297 

298 

299 

300 

30  1 

QFISH 

LCNTRL 

LOGICAL 

SIMPLE 

102 

127 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

10  1 

126 

QS 

QANDQT 

REAL 

ARRAY 

241 

260 

261 

262 

263 

270 

27  1 

272 

273 

274 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

1 24 

QU 

QANDQT 

REAL 

ARRAY 

278 

2BB 

289 

290 

29  t 

HADE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

real 

ARRAY 

287 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

258 

276 

RADSW 

QANDQT 

real 

ARRAY 

286 

295 

RADSWG 

QANDQT 

REAL 

ARRAY 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 

187 

188 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

1 SB 

RCNTRL 

REAL 

UNKNOWN 

T 45 

146 

147 

148 

1 43 

156 

157 

158 

159 

1 60 

1 67 

1 68 

1 69 

170 

171 

178 

1 79 

ISO 

181 

182 

RDPARM 

REAL 

UNKNOWN 

206 

207 

208 

209 

2 10 

217 

2 1 S 

219 

220 

221 

228 

229 

230 

231 

232 

239 

240 

RGAS 

RCNTRL 

REAL 

SIMPLE 

171 

RLAT 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

ROCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPOT 

RDPARM 

REAL 

SIMPLE 

23  1 

ROCP PI 

RDPARM 

REAL 

SIMPLE 

232 

RSDI5T 

RCNTRL 

REAL 

SIMPLE 

173 

SDAY 

RCNTRL 

REAL 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

1 76 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

S H 

QANDQT 

REAL 

ARRAY 

282 

291 

322/S 

322 

SKP 

QPOLES 

REAL 

ARRAY 

30  1 

311/5 

31  1 

SHS 

QANDQT 

REAL 

ARRAY 

248 

266 

SIG 

RDPARM 

REAL 

ARRAY 

240 

SIGE 

RCNTRL 

REAL 

ARRAY 

176 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

SINL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

REAL 

ARRAY 

235 

SMTH 

QANDQT 

REAL 

array 

243 

261 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

TOO 

125 

SOLS 

RCNTRL 

REAL 

SIMPLE 

1 78 

START 

LDPARM 

LOGICAL 

SIMPLE 

202 

205 

T 

QANDQT 

REAL 

ARRAY 

281 

290 

321/S 

32  1 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

TMAX 

QANDQT 

REAL 

ARRAY 

25  1 

269 

TMIN 

QANDQT 

REAL 

ARRAY 

250 

268 

Tp 

QPOLES 

REAL 

ARRAY 

300 

310/S 

310 

TS 

QANDQT 

REAL 

ARRAY 

247 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

179 

U 

QANOQT 

REAL 

ARRAY 

279 

2 SB 

319/S 

3 19 

UP 

QPOLES 

REAL 

ARRAY 

298 

30B/S 

308 

V 

QANDQT 

REAL 

ARRAY 

280 

289 

320/S 

320 

VER 

CCNTRL 

CHAR-8 

SIMPLE 

10 

23 

vp 

QPOLES 

REAL 

ARRAY 

299 
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WEAVE 

RDPARM 

REAL 

ARRAY 
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SCNTRL 

3 

C 

SCNTRL 

4 

00002 

COMMON 

/CCNTRL / 

CCO 

SCNTRL 

5 

00003 

COMMON 

/CCNTRL / 

ADATE 

SCNTRL 

6 

00004 

COMMON 

/CCNTRL/ 

ATIME 

SCNTRL 

7 

00005 

COMMON 

/CCNTRL/ 

JIC 

SCNTRL 

8 
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COMMON 

/CCNTRL/ 

JOB 

SCNTRL 

9 

00007 

COMMON 

/CCNTRL/ 

CCSP06 

SCNTRL 

1 0 

OOOQB 

COMMON 

/CCNTRL/ 

CCSPO? 

SCNTRL 

1 t 

00005 

COMMON 

/CCNTRL/ 

CCSPOS 

SCNTRL 

12 

000  T 0 

COMMON 

/CCNTRL/ 

VER 

SCNTRL 

13 

OOOf  1 

COMMON 

/CCNTRL/ 

XLABEL  <10) 

SCNTRL 

14 

00012 

COMMON 

/CCNTRL/ 

CQ5  (30) 

SCNTRL 

15 

000  1 3 

COMMON 

/CCNTRL/ 

CQU  (10) 

SCNTRL 

IS 

C 

SCNTRL 

1 7 

000  14 

EQUIVALENCE 

<CCO.CC< 1 ) > 

SCNTRL 

18 

00015 

CHARACTER *8 

CCO,  CC  < 200  > 

SCNTRL 

19 

000  16 

CHARACTER'S 

ADATE 

SCNTRL 

20 

00017 

CHARACTER  'B 

ATIME 

SCNTRL 

2 1 

000  18 

CHARACTERS 

JIC 

SCNTRL 

22 

00019 

CHARACTERS 

JOB 

SCNTRL 

23 

00020 

CHARACTERS 

CCSPOG 

SCNTRL 

24 

0002  1 

CHARACTERS 

CCSP07 

SCNTRL 

25 

00022 

CHARACTERS 

CCSPOS 

SCNTRL 

26 

00023 

CHARACTER'S 

VER 

SCNTRL 

27 

00024 

CHARACTER'S 

XLABEL 

SCNTRL 

28 

c 
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29 

c 
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SCNTRL 

30 

c 

r = = = = = = r ^ — - - - = =•  = 

SCNTRL 

3 1 

00025 

COMMON 

/IGNTRL/ 

ICO 

SCNTRL 

32 

00026 

COMMON 

/icntrl/ 

IM 

SCNTRL 

33 

00027 

COMMON 

/ I CNTRL / 

IMD2 

SCNTRL 

34 

00  0 28 

COMMON 

/ICNTRL/ 

IMD2P 1 

SCNTRL 

35 

00025 

COMMON 

/icntrl/ 

NDRSW 

SCNTRL 

36 

00030 

COMMON 

/ICNTRL/ 

JM 

SCNTRL 

37 

00031 

COMMON 

/ICNTRL/ 

JMD2 

SCNTRL 

38 

00032 

COMMON 

/ICNTRL/ 

JMT2 

SCNTRL 

35 

00033 

COMMON 

/ICNTRL/ 

JNP 

SCNTRL 

40 

00034 

COMMON 

/ICNTRL/ 

J04 

SCNTRL 

4 1 

00035 

COMMON 

/ICNTRL/ 

JOB 

SCNTRL 

42 

00036 

COMMON 

/ ICNTRL/ 

JSP 

SCNTRL 

43 

00037 

COMMON 

/ICNTRL/ 

HLIALB 

SCNTRL 

44 

Q0Q3S 

COMMON 

/ICNTRL/ 

KLlGW 

SCNTRL 

45 

00035 
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/ICNTRL/ 

KL2SST 

SCNTRL 

46 
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/ ICNTRL/ 

KS 

SCNTRL 

47 
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COMMON 

/ICNTRL/ 

KU 

SCNTRL 

48 
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COMMON 

/ICNTRL/ 

LOGBR 

SCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

MATIN 

SCNTRL 

50 

00044 

COMMON 

/ICNTRL/ 

MATSNX 

SCNTRL 

51 

00045 

COMMON 

/ICNTRL/ 

MATSUN 

SCNTRL 

52 

00046 

COMMON 

/ICNTRL/ 

MLF  ( 

12} 

SCNTRL 

53 

00047 

COMMON 

/ICNTRL/ 

MROD 

SCNTRL 

54 

00048 

COMMON 

/ICNTRL/ 

NKRSH 

SCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

MSM 

SCNTRL 

56 

00050 

COMMON 

/ICNTRL/ 

NB 

SCNTRL 

57 

0005J 

COMMON 

/ICNTRL/ 

ND 

SCNTRL 

58 
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COMPTON 

/icntrl/ 

ndalt 

SCNTRL 

59 
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COMMON 

/ICNTRL/ 
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60 
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/ICNTRL/ 
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/ICNTRL/ 

NDPHY 
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if 
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QSHF 

\ 
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SN2FLG 
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COMMON  /LCNTRL/ 

QRSW 

l\ 
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QRSH 
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oo  r 04 

f 1 
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EQUIVALENCE 

(LTMAX 
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1 
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00  126 

LOGICAL 

QRSW 

SCNTRL 

142 

00  127 

LOGICAL 

QRSH 

SCNTRL 

143 

C 

SCNTRL 

144 

00128 

LOGICAL 

LOS 

SCNTRL 

145 

00129 

LOGICAL 

LQU 

SCNTRL 

146 

00130 

LOGICAL 

LTMIN 

SCNTRL 

147 

00131 

LOGICAL 

LTMAX 

SCNTRL 

143 

00  132 

LOGICAL 

LPREACC 

SCNTRL 

t 49 

00133 

LOGICAL 

LPRECON 

SCNTRL 

ISO 

00  134 

LOGICAL 

LHFLUX 

SCNTRL 

151 

00135 

LOGICAL 

LEFLUX 

SCNTRL 

152 

00  136 

LOGICAL 

LFUSION 

SCNTRL 

153 

00  137 

logical 

LRAOSWG 

SCNTRL 

154 

00138 

LOGICAL 

LRADLWG 

SCNTRL 

155 

00139 

LOGICAL 

LICLOUD 

SCNTRL 

156 

C 

SCNTRL 

157 

00140 

LOGICAL 

L OMEGA 

SCNTRL 

1 SB 

00141 

LOGICAL 

LD I ABA  T 

SCNTRL 

159 

00142 

LOGICAL 

LRADSW 

SCNTRL 

160 

c 

SCNTRL 

161 

00143 

EQUIVALENCE 

<LCO,LC< 1 > ) 

SCNTRL 

162 

00  t 44 

LOGICAL 

LCO . LC  < 200 ) 

SCNTRL 

163 

c 

SCNTRL 

164 

c 
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PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

eftMTn i 

165 

5GN 1 RL 

166 

00145 

COMMON 

/ RCNTRL / 

RCO 

SCNTRL 

167 

00145 

COMMON 

/ RCNTRL / 

APHEL 

SCNTRL 

168 

00147 

COMMON 

/RCNTRL/ 

BETA 

SCNTRL 

169 

00  1 4S 

COMMON 

/RCNTRL/ 

COSD 

SCNTRL 

170 

00  149 

COMMON 

/RCNTRL/ 

CP 

SCNTRL 

171 

00  150 

COMMON 

/RCNTRL/ 

DAYSPY 

SCNTRL 

172 

00151 

COMMON 

/RCNTRL/ 

DEC 

SCNTRL 

173 

00152 

COMMON 

/RCNTRL/ 

OECMAX 

SCNTRL 

174 

00153 

COMMON 

/RCNTRL/ 

DIST 

SCNTRL 

175 

00154 

COMMON 

/RCNTRL/ 

PLAT 

SCNTRL 

176 

00155 

COMMON 

/RCNTRL/ 

DLON 

SCNTRL 

177 

00  156 

COMMON 

/RCNTRL/ 

DT 

SCNTRL 

176 

00  1 57 

COMMON 

/RCNTRL/ 

ECCN 

SCNTRL 

179 

00  158 

COMMON 

/RCNTRL/ 

GNU  1 

SCNTRL 

130 

00159 

COMMON 

/RCNTRL / 

GNU2 

SCNTRL 

IS  1 

0Q1  60 

COMMON 

/RCNTRL/ 

GRAV 

SCNTRL 

182 

00  161 

COMMON 

/RCNTRL/ 

0MEGA2 

SCNTRL 

183 

00  162 
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SCNTRL 
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ITAPE 
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236 

c 

REAL  MODEL 

> CONSTANTS 
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SCNTRL 
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COMMON 

/RDPARM/ 

ADLDP 

SCNTRL 
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COMMON 

/ RDPARM / 

CONI 

SCNTRL 

240 

00208 

COMMON 

/ RDPARM/ 
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scntrl 
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00209 

COMMON 

/RDPARM/ 

C0N2 

SCNTRL 
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COMMON 

/RDPARM/ 

C0N2DT 

SCNTRL 

243 
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COMMON 

/RDPARM/ 

C0N3 

scntrl 

244 

00212 

COMMON 

/RDPARM/ 

C0N3DT 

SCNTRL 

245 
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COMMON 

/RDPARM/ 

C0N4 

SCNTRL 

246 

00214 

COMMON 

/RDPARM/ 

C0N4DT 

SCNTRL 

247 

00215 

COMMON 

/RDPARM/ 

CONS 

SCNTRL 

24B 

0021  6 

COMMON 

/RDPARM/ 

COSL 

(46) 

SCNTRL 

249 
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COMMON 

/RDPARM/ 

COSLON 

(72) 

SCNTRL 
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002  1 S 

COMMON 

/RDPARM/ 
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SCNTRL 
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(46) 
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CVT5P (72 ) 

SDCUMUL 

24 

00395 

COMMON 

/DCUMU/ 

CVQTP (72) 

SDCUMUL 

25 

00396 

COMMON 

/DCUMU/ 

CVQ3P  f 72) 

SDCUMUL 

26 

00397 

COMMON 

/DCUMU/ 

CVQ5P( 72) 

SDCUMUL 

27 

2 o 

c 

SDCUMUL 

28 

c 

OSAT  IS  NOW  EXTERNAL 

SCUMULO 

10 

c 

SCUMULQ 

1 1 

c 

DEBUG 

SBEGDEB 

2 

00393 

T 0000 

CONTINUE 

SBEGDEB 

3 

o § 

c 

""  CYBER  SCALAR  VERSION  04.001  INPUT, I DQ 

SBEGDEB 

4 

3)  r£ 

c 

""  CYBER  SCALAR  VERSION  04.000 

SBEGDEB 

5 

c 

""  CYBER  SCALAR  VERSION  00 

SBEGDEB 

6 

lO  *77 

CSS$SS55SSSS$£S55$SS$SS£S3SS$$SSSSS£5S$SSS£$S5£$SSSSSSS$SSSSSSSSSSSSSSS5SBEGDEB 

7 

c 

c 

SCUMULO 

13 

00399 

NCL  = 

1 

SCUMULQ 

14 

hu  L?  3 

00400 

LCL  1 = 

5 

SCUMULO 

15 

nr 

0040  I 

LCL2  = 

S 

SCUMULO 

16 

— f 

c 

SCUMULO 

17 

«2 

c 

* * SCUMULO 

1 8 

c 

* *r 

* 'SCUMULO 

19 

c 

* * 

VARIABLE  LIST 

"SCUMULQ 

20 

c 

* * 

* 'SCUMULO 

21 

c 

* * 

QUANTITY  LEVELS  DEFINED  DESCRIPTION 

* 'SCUMULO 

22 

c 

*■  * ■ 

"SCUMULO 

23 

c 

+■  +■ 

DS 

IP 

3P , 5P  : DELTA  SIGMA 

"SCUMULO 

24 

0 

*-  *■ 

0 

2P,3P,4Pt5P  : SPECIFIC  HUMIDITY 

t 'SCUMULO 

25 

c 

*-  * 

QST 

IP 

: SATURATION  SPECIFIC  HUMIDITY 

" SCUMULO 

26 

c 

* * - 

GAM 

IP 

3P  : LATENT  HEATING  FACTOR 

"SCUMULO 

27 

c 

+ ■* 

SS 

IP 

2P.3Pr4P,5P  : DRY  STATIC  ENERGY 

- 'SCUMULO 

23 

c 

+ * 

HH 

2PT3P,4P.5P  ; MOIST  STATIC  ENERGY 

"SCUMULO 

29 

c 

m » 

"SCUMULO 

30 

c 

* * 

HH  S 

IP 

3P  : SATURATION  MOIST  STATIC  ENERGY 

* 'SCUMULO 

31 

c 

* * 

"SCUMULO 

32 

c 

*■  * 

CVT 

IP 

3P,  5P  : CHANGE  IN  TEMPERATURE 

"SCUMULO 

33 

c 

* * 

CVQ 

IP 

3F  , 5P  : CHANGE  IN  SPECIFIC  HUMIDITY 

"SCUMULO 

34 

c 

"SCUMULO 

35 

c 

* * * 

* 'SCUMULO 

3 5 

c 

SCUMULO 

37 

c 

SCUMULO 

38 

c 

SCUMULO 

39 

c 

+ * *■ 

SCUMULO 

40 

c 

t¥  * 

* » 

SCUMULO 

4 1 

c 

« %■ 

RETA  : 

1 */ f ENTRAINMENT  FACTOR)  " 

SCUMULO 

42 

c 

*■  ♦ 

CXL  : 

TOTAL  MASS  FLUX  INTO  CLOUD  FOR  " 

SCUMULO 

43 

c 

m * 

LOW-LEVEL  CONVECTION  ** 

SCUMULO 

44 

c 

tr  *■ 

CXD  : 

TOTAL  MASS  FLUX  INTO  CLOUD  FOR  " 

SCUMULO 

45 

c 

* * 

MIDDLE  AND  PENETR.  CONVECTION  " 

SCUMULO 

46 

c 

* + 

EVAP03: 

AMOUNT  OF  MOISTURE  ASSUMED  TO  * - 

SCUMULO 

47 

c 

★ * 

RE  ^EVAPORATE  INTO  LOW-LEVEL  " 

SCUMULO 

48 

SCUMULO  49 
SCUWJLTUO  SO 
SCUMULO  SI 
SCUMULO  52 
SCUMULO  S3 
SCUMULO  54 
SCUMULO  55 
SCUMULO  56 
SCUMULO  57 
SCUMULO  58 
SCUMULO  59 
SCUMULO  60 
SCUMULO  61 
" " * SCUMULO  62 
* 'SCUMULO  63 
-2  "SCUMULO  64 
* • SCUMULO  65 
"SCUMULO  66 
*■  * * "SCUMULO  57 
SCUMULO  68 
SCUMULO  69 
SCUMULO  70 
SCUMULO  7 I 
SCUMULO  72 
SCUMULO  73 
SCUMULO  74 
SCUMULO  75 
SCUMULO  76 
SCUMULO  77 
SCUMULO  78 
SCUMULO  79 
SCUMULO  80 
SCUMULO  81 
SCUMULO  82 
SCUMULO  83 
SCUMULO  84 
SCUMULO  85 
SCUMULO  86 
SCUMULO  87 
SCUMULO  88 
SCUMULO  89 
SCUMULO  90 
SCUMULO  91 
SCUMULO  92 
SCUMULO  93 
SCUMULO  94 
SCUMULO  95 
SCUMULO  96 
SCUMULO  97 
SCUMULO  98 
SCUMULO  99 
SCUMULOIOO 
SCUMULO 101 
SCUMULO 102 
SCUMUL0103 
SCUMULO104 
SCUMULO 105 
SCUMULO106 
SCUMULO 1 07 
SCUMULOI 08 
SCUMULO 1 09 
SCUMULOI 10 
SCUMULOI 1 1 
SCUMULOI 12 
SCUMULOI 13 
SCUMULOI 14 
SCUMULOI T5 
SCUMULOI 16 
SCUMULOI 17 
SCUMULOI T8 
SCUMULOI T9 


rO  T3 

c > 
r*  m 


CUMULO  8 


00436 


00437 

00438 

00439 

00440 

0044  1 

00442 

00443 

00444 

00445 

00446 

00447 

00448 

00449 

00450 

0045  T 

00452 

00453 

00454 

00455 

00456 

00457 

0045B 


00455 
00  4 S 0 

00461 

00462 


00463 

00464 

00465 

00466 


00467 

00468 

00469 


00470 
0047  1 

00472 

00473 

00474 


C 


C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


IF  ( EX , LE . Q . ) GO  TO  1010 


TEMP  = < EX  + M.+GAMIPCI))  * < SSI P { 1) -SS2P < I) > t/DSIP 
S (HH3P< I>-HH2P< I ) > /DS3P 

TEMP  = AMAXt (TEMP, .001 > 

CXD  = EX/TEMP 

IF  ( CXD .GT .D53P ) CXD  - DS3P 

CVTtPfl}  = CXOMSSIPfl)  - 5S2P<n  + EX/  ( 1 . + GAM ! P < I ) > I/D51P 

CVT3P(IJ  s C XD  * { 5S2P  < I ) - SS3P  < I ) ) /DS3P 

CVQ  IP-fit  - CXD'<  02P  ( I ) - OSTlPfl) 

S - EX-GAM1P  £ I J / c ( 1 . +GAMIP  ( I ) > • CLH  > >/D5fP 

CV03P  £ I ) = CXDM  Q3P  ( I ) - Q2P(IM/DS3P 

L = 6 

IF  CRH(I,9) .GT.RHfl .Gl)  L = 5 
CLOUD  f I , L ) = ! 

CLOUD ( I , NLAY+2 ) = L«4 

IF  fOOUT)  I CLOUD  ( I , U > * ICLOUD(I.d)  * (L-4J 

PCMIDfl)  = £CV01P( I >*DS1P  * CV03P( I ) *DS3P ) * . 1-SPII > /GRAV 


HHISPfl) 
HH3SP ( I ) 
HH3P ( I ) 
S3 1 P ( I ) 
5S3P  f I ) 
Q3P  < J ) 
QST1PU  ) 


- HHISP(I)  + f1,  + GAMtPf I ) ) *CVT1P< IJ 

- HK3SP  { I > * ft.  * GAM3PU  ) > -CVT3P  < I J 

= HH3P ( I > * CVT3P ( I > - CLH‘CVQ3PfI) 

= SS1P(I)  +•  CVTTP(I) 

S53P  { I ) + CVT3P  f I ) 

- 03PU  ) - CV03P  ( I ) 

= QSTTP(I)  + GAM1P< I > -CVTtPi I ) /CLH 


1010  CONTI NUE 


^***+  + *«-r****-tr+*rt  i 


PENETRATING  CONVECTION 


DO  1020  1= 1 , IM 

IF  £HH5PU  } .LE  , HH35P(  I ? .OR.  HH5P  ( I)  . LE  . KH  1 5P  ( I ) ) GO  TO  1020 

temp  - AMAXlf  .00  1 ,MH5P(  l)  - HH3P(IU 
IF  CHHtSPt M ,GT.HH3SP< I t > GO  TO  220 


* TYPE  A ♦*** 
•*■***  * * + 


RETA  = { HH3SP(I)-HH3Pn  > J/TEMP 
IF  < RETA  * LT  r 0 .- ) RETA  = 0 . 

EX  = HH3SP  f I ) - HH 1 SP ( I ) 

TEMP  = (1.  + GAM3P  f I ) I * ( S52P  ( I ) - SS3P(U  + RETA 

S •fSS3P(I>  - SS4P ( I > > )/D33P 

S * RETAMHH5PU)  - HH4P  £ I ))  /DS5P 

TEMP  = AWIAX  H . 001  . TEMP) 

CXD  = ( HH5P ( I ) -HH3SP ( I ) >/TEMP 
GO  TO  225 


* * * ★ type  b * * * * 
++*♦  *#** 


220  CONTINUE 

RETA  = ( HKJ5P{ I }”HH3P< I J I/TEMP 
EX  = 0 . 

TEMP  = (1.  + GAJVH  P ( 1 ) ) * {SS1PU)-S52P(I  I ) / DS  1 P 
S + RETA  * ( HH5P ( I t -HH4P ( I ) ) / D55P 

TEMP  = AMAX1 ( .001 .TEMPI 


5CUMUL0120 
SCUMUL012T 
5CUMUL0 1 22 
SCUMUL0123 
5CUMUL01 24 
5CUMUL01 25 
SCUMULO 1 26 
SCUMUL0127 
SCUMULO 1 28 
SCUMULO 1 29 
SCUMULO 130 
SCUMULO 131 
SCUMULO 1 32 
5CUMUL0133 
SCUMULO 134 
SCUMULO 135 
SCUMULO 136 
SCUMULO 137 
SCUPMJL013B 
SCUMULD139 
SCUMULO 140 
SCUMUL0141 
5CUMUL0 142 
SCUMUL0143 
SCUMULO 144 
SCUMULO 145 
SCUMULO 145 
SCUMULO 147 
SCUMULO 1 48 
SCUMULO 1 49 
SCUMULOtSO 
SCUMULO 151 
SCUMULO 1 52 
SCUMUL0153 
SCUMULO 154 
SCUMULO 155 
SCUMUL0156 
SCUMULO 157 
SCUMULO 1 5S 
SCUMULO 153 
SCUMULO 150 
SCUMULO 16 t 
SCUMULO 162 
SCUMULO 153 
SCUMULO 1 64 
SCUMULO 165 
SCUMUL0166 
SCUMULO 1 67 
SCUMULO 1SS 
SCUMULO 169 
SCUMULO 170 
SCUMULO 1 7 1 
SCUMULO! 72 
SCUMULO 1 73 
SCUMULO 1 74 
SCUMULO 175 
SCUMULO 176 
SCUMULO 177 
SCUMULO 178 
SCUMULO 179 
SCUMULO 180 
SCUMULO 18 1 
SCUMUL0182 
SCUMULO 183 
SCUMULO 1B4 
SCUMULO 185 
SCUMULO 185 
SCUMULO 187 
SCUMUL01S8 
SCUMULO 189 
SCUMULO 190 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


TO  F.,  ' 


00475 

00476 

00477 

00478 

00479 

00480 

00481 

00482 

00483 

00484 
0Q4BS 

00486 

00487 

00488 

00489 

00490 

00491 

00492 

00493 

00494 

00495 

00496 

00497 

00498 

00499 

00500 

00501 

00502 

00503 

00504 

00505 

00506 

00507 

00508 

00509 
005  10 
0051  1 

00512 


00513 

005  14 
005  15 

00516 
005  17 
005  18 

00519 

00520 

00521 

00522 

00523 

00524 

00525 

00526 

00527 


8 


CXD  = < HH5P (I)-HHISP(I)  >/TEMP 

225  CONTINUE 

TEMP  = CKO  * tl.-RETA) 

IF  1TEMP.GT.DS3P)  CXD  = DS3P  / M.-RETA) 

TEMP  = CXD*  RETA 

IF  (TEMP.GT.DS5P)  CXD  = DS5P  / BETA 

CT1P  = CXD*<SSlPm-SS2P/I)+EX/<1  ,*GAM1P(I  ) ) J/DSTP 

CT3P  - CXD  * ( SS2P ( I ) -SS3P (I>+RETA*( SS3P ( I > - SS4P { I ) )) /DS3P 

CT5P  = CXD* BETA  * ( SS4P  ( I ) - SS5P  (ID  /DS5P 

CO  IP  = CXD*  (Q2PI  I ) ~QST 1 P ( I ) ~EX  *GAM  t P ( I ) / ( < 1.+GAM1P1I  ) ) *CLH)  1/DS1P 
CQ3P  = CXD* ( Q3P ( I ) -Q2P ( I ) * RETA-(Q4P(I)  - Q3P(I)M/D53P 

CQ5P  - CXD*RETA*  < Q5P  < I ) - 04P<1))/DS5P 


227 


DO  227  L = LCL 1 , LCL2 
CLOUD  f I , L ) = 1 
CONTINUE 

CLOUOU  , NLA Y4  3 ) = LCL  1 
T F (OOUT)  tCLOUD f 1 ,d> 


= ICLOUD  f I , d ) + ( LCL  1 -*3  ) *4 


PCPENII)  = ( CQ 1 P*DS 1 P + C03P*DS3P  * CQ5P *DS5P ] * . 1 * SP U ) / GR A V 


IF  (NCL.GT.4) 


IF  (NCL.EQ, 1 ) 


NCL  = NCL  4 1 

NCL  = 1 

LCL 1 - B - NCL 

LCL 1 = 5 

LCL2  = LCL 1 * 3 


HH 1 SP ( I ) 
HH3SP ( I ) 
HH3P ( I > 
HH5P ( I ) 

* 1 020  CONTINUE 


HKISP(I)  * M.  + GAM1P(  I)  )*CT1P 
HH3SP  ( I } * M.  + GAM3P  l I ) ) *CT3P 
HH3P(I)  4 CT3P  - CLH*CQ3P 
HHSP(I)  + CT5P  - CLH*CQ5P 


C 

C 

c 

c 

c 

c 

c 


LOW  LEVEL  CONVECTION 


DO  1030  Ist.IM 

EX  s HHSP(I>  - HH3SPn> 

IF  IEX.LE.O. ) GO  TO  1030 

TEMP  = ( £ X/ ( 1 . + GAM3P ( I ) ) 4 SS3P l I > - S55PfI)>/CLH 

EVAP03  = TEMP*DS3P/ 1DS3P  + DS5P) 

EVAPOS  = TEMP  - EVAP03 

TEMP  = HI.  + GAM3P (I ) ) * ( SS3P I I ) -SS4P  f I ) -CLH*  EVAP03 ) 
5 4 (KH5P1I)  « HH4P1 I ) ) /DS5P 

TEMP  - AMAX1 ( .00 1 , TEMP) 

CXL  = EX/TEMP 
CXL  = AMIN  t 1 C XL , DS5P ) 

CT3P  = CXLM5S3P ( I > -SS4P ( I ) -CLH*EVAP03 4 E X / f 1 
CT5P  = CXL*(S54P<n  - SS5P ( I ) - CLH*  EVAP05 ) 

C05P  = CXL  * t 05P ( I ) - Q4P<I>  - EVAPOS) 

CQ3P  = -CQ5P*  DS5P /DS3P 
CVT3P1I)  = CVT3P ( I ) + CT3P 


5CUMUL0191 
SCUMUL01 92 
SCUMULO 1 93 
SCUMUL01 94 
SCUMULOI 95 
SCUMULO 196 
SCUMULO 197 
SCUMULOI 93 
SCUMULO 199 
SCUMUL0200 
SCUMUL0201 
SCUMUL0202 
SCUMULO 2 03 


CVTIP(I) 

* CVT 1 P ( I ) 

* CT1P 

SCUMUL0204 

CVT3PU  > 

= CVT3PU) 

4 CT3P 

SCUMULD205 

CVT5P( I > 

= CVT5PU) 

+ CT5P 

SCUMUL020G 

CVQ 1 P ( I ) 

= CVQIPtI) 

+ CQ  1 P 

SCUMULO207 

CVQ3P ( I ) 

= CVQ3P ( I ) 

4 CQ3P 

SCUMULO20S 

CVQ5P f I ) 

= CVOGP(I) 

4 CQ5P 

SCUMULO209 

SCUMULO210 

SS3P ( I ) = 

SS3P ( I ) 4 

CT3P 

SCUMULQ21 1 

SSSPfl)  = 

SS5P ( I ) * 

CT5P 

SCUMUL02 1 2 

Q3P  f I ) = 

Q3P  ( I ) 

CQ3P 

SCUMULO 2 1 3 

05P  < I ) = 

05P1I) 

CQ5P 

SCUMULD214 

* EX)/D53P 


GAM3P ( I) ) > / D53P 
/D55P 
/DS5P 


SCUMUL0215 
SCUMUL021S 
SCUMUL02 1 7 
SCUMUL021S 
SCUMUL0219 
SCUMULO220 
5CUMULQ221 
SCUMUL0222 
5CUMULD223 
SCUMUL0224 
5CUMUL0225 
SCUMUL022G 
SCUMUL0227 
SCUMULO 22 8 
SCUMUL0229 
SCUMUL0230 
SCUMUL0231 
SCUMUL0232 
SCUMUL0233 
SCUMUL0234 
SCUMUL0235 
SCUMUL0236 
SCUMUL0237 
SCUMUL0238 
SCUMULQ239 
SCUMUL0240 
SCUMUL024 1 
SCUMUL0242 
SCUMUL0243 
SCUMUL0244 
SCUMUL0245 
SCUMUL024G 
SCUMULD247 
5CUFJ1UL0248 
SCUMUL0249 
5CUMULO250 
SCUMUL0251 
SCUMUL0252 
SCUMUL0253 
SCUMUL0254 
SCUMULD255 
SCUMUL02S6 
SCUMUL0257 
SCUMUL025S 
SCUMUL0259 
5CUMUL0260 
SCUMULC2G 1 


t-1 

O 

H* 
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00528 

cvTSPin  * 

CVT5P ( I ) * CT5P 

SCUMUL0262 

00529 

CVQ3P(I)  = 

CVQ3P(I)  + CQ3P 

SCUMUL0263 

00530 

C 

CVQ5P ( I ) = 
PCL0W1I)  = 

CVQSP(I)  + CQ5P 

5CUMUL0264 

SCUMUL0265 

00531 

C 

(DS3P*CQ3P  + DS5P  *CQ5P ) * . 

1*SP(I )/GRAV 

SCUMUL0266 

SCUMUL0267 

00532 

L = 8 

SCUMUL0268 

00533 

IF  ( RH 11,7) 

. GT . RH( 1*8))  L - 7 

SCUMUL0269 

00534 

CLOUD { I , L ) 

= T 

SCUMUL0270 

00535 

CLOUD ( I .NLAYP 1 > = L - 6 

SCUMUL0271 

00536 

c 

IF  { QOUT ) 

I C LOUD  ( 1 t J)  = I CLOUD  ( I , il ) 

+ (L-6MTG 

SCUMUL0272 

SCUMUL0273 

00537 

1030 

CONTINUE 

SCUMUL0274 

00538 


C 

C 

C 

c 

c 

c 

c 

c 


DISTRIBUTION  OF  CVTP  AND  CVQP  INTO  THE  NINE  LAVERS 
CODING  IS  SPECIAL  FOR  2-2-2  STRAPPING 


DO  1 040  I- 1 . IM 


00539 

00540 

00541 

00542 

00543 

00544 

00545 

00546 

00547 

00548 

00549 

00550 

00551 

00552 

00553 

00554 

00555 

00556 

00557 
00553 
00559 


CVT{ I ,4} 
CVT ( I t5) 
CVT{ I , 6) 
CVTU  , 7 J 
CVTfl , 3) 
CVT1 I ,9) 


1 i 25 
. 75 
CVT3P 
CVT3P 
.72* 
1.25* 


I F < CVO  t P (I ) .GT,0 


CVQ  M , 4 ) 
CVO ( I .5) 


F RAC  1 
FRAC2 


I F ( CVQ3P ( I ) . GT , 0 


CVQ { I ,6) 
CVG1 1,7) 


FRACt 

FRAC2 


I F f CVQ5P ( I > . GT . 0 


CVO ( I ,8) 
CVO { I , 9 ) 


FRAC  1 
FRAC2 


CVT 1 P ( I ) 
CVT 1 P f I ) 

{ I ) * 0,1 
(I)  " o. t 
CVT5P ( I ) 
CVT5P  < I ) 
FRAC  1 
) FRAC  1 
FRAC2 
CVQ 1 P ( I ) 
+CVQ1PU  ) 
FRACt 
) FRAC  1 
FRAC2 
*CVQ3P(I) 
-CVQ3P ( 1 ) 
FRAC  1 
.)  FRAC 1 
FRAC2 
+CVQ5P ( I ) 
CVQ5P  C I ) 


CVT5P  f I ) ) 
CVT5PU  ) ) 


- . 25  *CVT3P ( I ) 

+ . 25  *CVT3P  f I ) 

25  * ( CVT1 P ( I ) - 
25  * f CVT 1 P ( I ) - 
+ . 25 *CVT3P ( I ) 

- . 25*CVT3P  { I ) 

- 2,*SHSATfI#4)/(SHSAT(It4)  * 
* 2 . *SHL (I , 4 ) / f SHL  f I ,4) +SHL ( I 
= 2 . -FRAC 1 


2 . **SHSAT  ( I ,6)  / < SHSATt  I , 6 ) * 

2 . *SHL { I ,S)/( SHL ( I .6)*SHL{I 
2, -FRAC 1 


2. *SHSAT  < I ,8)/ (SH5AT< 1.8)  * 
2 . *SHL f I , 8 ) / ( SHL  M ,B)+SHL< I 
2 . - FRAC 1 


SCUMUL0275 
*******  SCUMULD275 

****  SCUMUL0277 

**“*  5CUMUL027B 

****  SCUMULQ279 

**•*  SCUMULO280 

*******  SCUMUL02BT 

SCUMUL02S2 
SCUMUL0283 
SCUMULD284 
SCUr4ULQ2B5 
SCUMUL02S6 
SCUMUL0287 
SCUHULD2S8 
SCUMUL02B9 
5CUMULO290 
SHS A T t I 1 5 J ) SCUMUL029 1 
,5) *1.8-50)  SCUMULD292 
SCUMUL0293 
SCUMUL0294 
SCUMUL0295 
SHSAT ( 1,7)) SCUMUL02S6 
,7)M  . E -50  ) SCUMUL0297 
5CUMUL029S 
SCUMUL0299 
SCUMUL0300 
SHSAT ( T , B ) t SCUMUL030  T 
f9) *1.8-50)  SCUMULO302 
SCUMULO303 


00550 


1 040 
C 

c * * * J 
c * * * * 
c ***  • 
c ***■ 
c * * * * 

c 


CONTINUE 


► **■*■★»**'**»****»*★**•*■**  j 


UPDATE  TEMPERATURES,  SPECIFIC  HUMDITY,  ETC. 


V 00561 

DO  1050  L= 

00562 

DO  1060  1= 

l\  00563 

TL  < I » L ) 

*!  00564 

SHL  C I , L ) 

00565 

SHSATf I .L) 

00566 

GAM I I , L ) 

00567 

1060 

CONTINUE 

0Q56B 

1050 

C 

CONTINUE 

00569 

RETURN 

00570 

END 

1 t IM 


TL(I  « L ) * CVTtI  , L ) 

= SHL  (I  ,U  - CVQ  (I  ,U 

= QSATf  TL ( I i L ) , PL  < 1 ,L)  ) 

a C5AMF  AC*  SHSAT  ( I , L ) / { TL  f I #LI  *TLf  I tU) 


SCUMULO304 
SCUMUL0305 
SCUMUL0306 
SCUMULO307 
SCUMULO30S 
SCUM UL 03 09 
5CUMUL0310 
SCUMUL031 1 
SCUHUL03  T2 
5CUMUL0313 
SCUMUL03 14 
SCUMUL0315 
5CUMUL03  1 6 
SCUMUL0317 
SCUMUL03 IB 
SCUMUL0319 
SCUMUL0320 
SCUM UL 03 2 1 
SCUMUL0322 
SCUMUL0323 
SCUMULD324 
5CUMUL0325 


statement  label  map 

--LABEL DEFINED REFERENCES 


1000 

10000 

1010 


433 

39S 

453 


405 


O 


o 

'V  ^ 

O 5 

s > 

73  f- 


c 


434 


436 


CUMULO  11 


v v m- 


*020 

5*2 

459 

460 

1030 

537 

513 

5 15 

1040 

560 

538 

*050 

SOS 

56  1 

1060 

567 

562 

220 

470 

462 

225 

476 

469 

227 

499 

497 

VARIABLE  MAP 


-NAME 

BLOCK--- 

TYPE 

--CLASS 

REFERENCES 

A- 

ARGLIST , 

c=ctrl 

OF  DO,  I 

= DATA  INITf  R - READ , S= 

STORE,  W 

= WRITE 

AOATE 

CCNTRL 

CHAR  * 8 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

AL 

RADCOM 

REAL 

ARRAY 

35  4 

ALBEDO 

QANOQT 

REAL 

ARRAY 

244 

262 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

AS 

RADCOM 

REAL 

ARRAY 

339 

AT  I ME 

CCNTRL 

CHARTS 

SIMPLE  . 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CIO 

CNTRLP 

REAL 

SIMPLE 

309 

C100 

CNTRLP 

REAL 

SIMPLE 

310 

C40 

CNTRLP 

REAL 

SIMPLE 

311 

C ALTO J 

RCNTRL 

REAL 

SIMPLE 

1 85 

CC 

CCNTRL 

CHARTS 

ARRAY 

14 

IS 

cco 

CCNTRL 

CHARTS 

SIMPLE 

2 

14 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

4 

5 

6 

7 

B 

9 

10 

1 1 

12 

CCSPOG 

CCNTRL 

CHAR  *8 

SIMPLE 

7 

20 

CCSP07 

CCNTRU 

CHAR  *8 

SIMPLE 

S 

21 

GCSPOS 

CCNTRL 

CHAR  +B 

SIMPLE 

9 

22 

CDATE 

RADCOM 

REAL 

ARRAY 

363 

CDF  R 

CNTRLP 

REAL 

SIMPLE 

297 

CD  XL 

CNTRLP 

REAL 

SI  PilP  LE 

29B 

coxa 

CNTRLP 

REAL 

SIMPLE 

233 

CLH 

CNTRLP 

real 

SIMPLE 

300 

443 

453 

457 

484 

5 10 

51  1 

516 

5 19 

523 

524 

CLOUD 

RADCOM 

REAL 

ARRAY 

345 

447/S 

448/5 

498/S 

500/S 

534/S 

535/S 

CNTRLP 

REAL 

UNKNOWN 

297 

29  B 

299 

300 

30  1 

302 

303 

304 

305 

306 

307 

308 

309 

310 

3 1 t 

312 

3 13 

3 14 

315 

3 16 

317 

31 S 

319 

320 

32  i 

322 

323 

324 

325 

326 

327 

328 

329 

330 

33  1 

332 

333 

334 

335 

336 

337 

COE 

CNTRLP 

REAL 

ARRAY 

301 

COEF 

CNTRLP 

REAL 

SIMPLE 

302 

COEFS 

CNTRLP 

REAL 

SIMPLE 

303 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

20B 

C0N2 

RDPARM 

REAL 

SIMPLE 

209 

C0N2DT 

RDPARM 

REAL 

SIMPLE 

210 

CONS 

RDPARM 

REAL 

SIMPLE 

2 t 1 

C0N3DT 

RDPARM 

REAL 

SIMPLE 

212 

COM4 

RDPARM 

HEAL 

SIMPLE 

213 

CQN4DT 

RDPARM 

REAL 

SIMPLE 

214 

CON5 

RDPARM 

REAL 

SIMPLE 

2 15 

O o 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

COSL 

RDPARM 

REAL 

ARRAY 

216 

COSLON 

RDPARM 

REAL 

ARRAY 

217 

tj  55 
o § 

COSROT 

CNTRLP 

REAL 

SIFrtPLE 

304 

* 

COSZ 

RADCOM 

REAL 

ARRAY 

365 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

W x* 

70  P 

CPD2 

RDPARM 

REAL 

SIMPLE 

2 1 B 

CPP 

CNTRLP 

REAL 

SIMPLE 

305 

iO  T3 
C 3» 

CO  1 P 

REAL 

SIMPLE 

484/S 

490 

502 

CQ3P 

REAL 

SIMPLE 

485/S 

49  1 

495 

502 

5 10 

526/S 

529 

53  1 

CQ5P 

REAL 

SIMPLE 

486/S 

492 

496 

502 

5 1 1 

525/S 

526 

530 

531 

0 

COS 

CCNTRL 

REAL 

ARRAY 

12 

r" 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

m 

CT1P 

REAL 

SIMPLE 

481/3 

487 

508 

CT3P  . 

REAL 

SIMPLE 

482/S 

438 

493 

503 

5 TO 

523/S 

527 

CT5P 

REAL 

SIMPLE 

4S3/S 

489 

494 

51  1 

524/S 

52B 

CTID 

CNTRLP 

REAL 

SIMPLE 

306 

CUMOAY 

CNTRLP 

REAL 

SIMPLE 

307 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

30B 

CUMULO 

SUBROUTINE 

1 

CVQ 

R A DCOM 

REAL 

ARRAY 

35  1 

54B/5 

549/S 

553/S 

554/S 

558/5 

559/5 

564 

CVQ1P 

DCUMU 

REAL 

ARRAY 

395 

430/S 

443  / 5 

450 

490/S 

490 

546 

548 

549 

CVQ3P 

DCUMU 

REAL 

ARRAY 

396 

431  /S 

444/S 

450 

453 

456 

491/S 

49  1 

529/S 

529 

551 

553 

554 

CVQ5P 

DCUMU 

REAL 

ARRAY 

397 

432/S 

492/S 

492 

530/S 

530 

556 

558 

559 

CVT 

RADCOM 

REAL 

ARRAY 

35  1 

539/S 

540/S 

54  1 /s 

542/S 

543/S 

544/S 

5G3 

CVTtP 

DCUMU 

REAL 

ARRAY 

392 

427/S 

44  1 /S 

45  1 

454 

457 

487/S 

487 

539 

540 

541 

542 

CVT3P 

DCUMU 

REAL 

ARRAY 

393 

4 28/  S 

442/S 

452 

453 

455 

488/ S 

48B 

527/S 

527 

539 

540 

54  1 

542 

543 

544 

CVT5P 

DCUMU 

real 

ARRAY 

394 

429/S 

489/S 

489 

528/S 

528 

541 

542 

543 

544 

CXO 

REAL 

SIMPLE 

439/S 

440 

440/S 

44  1 

442 

443 

444 

46B/5 

475/S 

477 

478 

479 

aao/s 

481 

482 

483 

484 

485 

486 

CXDE 

RADCOM 

REAL 

ARRAY 

352 

CXL 

RADCOM 

REAL 

SIMPLE 

365 

52  1 /s 

522/S 

522 

523 

524 

525 

C2H 

RADCOM 

REAL 

ARRAY 

364 

DAVSPY 

RCNTRL 

REAL 

SIMPLE 

150 

DCUMU 

REAL 

UNKNOWN 

374 

375 

376 

377 

378 

379 

380 

38  1 

382 

383 

384 

3S5 

386 

3B7 

388 

389 

390 

39  1 

392 

393 

394 

395 

396 

397 

DEC 

rcntrl 

REAL 

SIMPLE 

15  t 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DELTA 

CNTRLP 

REAL 

SIMPLE 

3 1 2 

DIABAT 

QANDQT 

REAL 

ARRAY 

285 

294 

DI  ST 

RCNTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

D51P 

REAL 

SIMPLE 

402/S 

437 

44  1 

443 

450 

473 

43  t 

484 

502 

DS3P 

REAL 

SIMPLE 

403/S 

437 

440 

440 

442 

444 

450 

466 

478 

47B 

432 

485 

502 

517 

517 

5 T9 

523 

526 

531 

DS5P 

REAL 

SIMPLE 

404/S 

466 

473 

480 

480 

483 

486 

502 

5 17 

5 19 

522 

524 

525 

526 

53  T 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

402 

402 

403 

403 

4Q4 

404 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

DTC3 

CNTRLP 

REAL 

SIMPLE 

313 

D TOUT 

CNTRLP 

REAL 

SIMPLE 

3 1 4 

DXP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

22  1 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

ED 

CNTRLP 

REAL 

SIMPLE 

315 

EDNM 

CNTRLP 

REAL 

SIMPLE 

3 16 

EFLUX 

QANDQT 

REAL 

ARRAY 

255 

273 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

EP5FAC 

RCNTRL 

REAL 

SIMPLE 

184 

EVAP 

RADCOM 

REAL 

SIMPLE 

364 

EVAP03 

REAL 

SIMPLE 

5 1 7/S 

5 18 

5 19 

523 

EVAP05 

REAL 

SIMPLE 

5 T8/S 

524 

525 

EX 

REAL 

SIMPLE 

435/S 

436 

437 

439 

44  T 

443 

465/S 

472/S 

48  1 

484 

514 

515 

5 16 

519 

52  1 

5 23 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCOEF 

CNTRLP 

REAL 

SIMPLE 

3 17 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDPARM 

logical 

ARRAY 

200 

203 

FK 

RADCOM 

REAL 

ARRAY 

360 

FMU 

CNTRLP 

REAL 

SIMPLE 

318 

F RAC  1 

REAL 

SIMPLE 

545/S 

546/S 

547 

548 

550/S 

551/S 

552 

553 

555/S 

556/S 

557 

558 

FRAC2 

REAL 

SIMPLE 

547/S 

549 

552/S 

554 

557/S 

559 

FROST 

RADCOM 

LOGICAL 

ARRAY 

369 

370 

FUSION 

QANDQT 

real 

ARRAY 

256 

274 

FWET 

CNTRLP 

REAL 

SIMPLE 

319 

GAM 

RADCOM 

REAL 

ARRAY 

346 

41  1 

4 1 1 

412 

4 12 

566/  S 

GAM1P 

DCUMU 

REAL 

ARRAY 

379 

41  1 /S 

437 

44  1 

443 

443 

45  1 

457 

473 

481 

484 

484 

508 

GAM3P 

DCUMU 

REAL 

ARRAY 

380 

412/S 

452 

466 

509 

516 

519 

523 

OF  POOR  QUALITY  cumulo 


f ' GAMFAC 

CNTRLP 

REAL 

SIMPLE 

320 

566 

GNU  1 

rcntrl 

REAL 

SIMPLE 

1 5S 

[>•  GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

450 

GT 

QANDOT 

REAL 

ARRAY 

245 

263 

P GTOPO 

CNTRLP 

REAL 

SIMPLE 

321 

f GW 

QANOQT 

REAL 

ARRAY 

246 

264 

b H1DT 

RDPARM 

REAL 

SIMPLE 

226 

t H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEAT  I 

RCNTRL 

REAL 

SIMPLE  . 

1B2 

l HEATW 

RCNTRL 

REAL 

SIMPLE 

IB  1 

It  ' HFLUX 

OANDQT 

REAL 

ARRAY 

254 

272 

HH 

RADCOM 

REAL 

ARRAY 

349 

419 

S HH1SP 

DCUMU 

REAL 

ARRAY 

390 

422/S 

£ 

SOB 

i HH2P 

DCUMU 

REAL 

ARRAY 

386 

418/S 

\ HH3P 

DCUMU 

REAL 

ARRAY 

3B7 

419/S 

\ HH3SF 

DCUMU 

REAL 

ARRAY 

391 

423/S 

i 

514 

■ HH4P 

DCUMU 

REAL 

ARRAY 

3B3 

420/S 

a.  HH5P 

DCUMU 

REAL 

ARRAY 

389 

421 /S 

‘ 

514 

519 

; ; HHE 

RADCOM 

REAL 

ARRAY 

349 

4 18 

HHS 

RADCOM 

REAL 

ARRAY 

350 

422 

I NICE 

CNTRLP 

REAL 

SIMPLE 

322 

; ■ I 

INTEGER 

SIMPLE 

405/C 

406 

410 

410 

413 

414 

4 1 B 

418 

*;  i 

422 

422 

-j  ; 

430 

431 

4 

44  1 

44  1 

; 

443 

444 

! U 1 

450 

450 

• ft  [ 

453 

453 

456 

456 

* 1 

461 

46  1 

; » ' 

466 

466 

i 

473 

473 

1 1 ! 

483 

483 

i 

486 

4S7 

i 

» it 

492 

492 

500 

501 

r A 

510 

5 10 

t * 

519 

519 

| L 

527 

527 

533 

534 

j il 

540 

541 

r 

543 

544 

54  B 

548 

f 

553 

553 

i * 

558 

558 

i i 

565 

565 

l ! ic 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

! r ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

ICE 

RADCOM 

LOGICAL 

ARRAY 

368 

370 

j r I CLOUD 

GANDQT 

INTEGER 

ARRAY 

259 

277 

! f ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

i : 

36 

37 

\ 

47 

48 

\ 

58 

59 

■ 

69 

70 

i IC5P53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGEH 

SIMPLE 

68 

f JDIABAT 

ICNTRL 

INTEGER  . 

UNKNOWN 

BB 

IDP ARM 

INTEGER 

UNKNOWN 

189 

190 

V IDSP02 

IDP ARM 

. integer 

SIMPLE 

190 

| IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

1 IFUSION 

ICNTRL 

INTEGER 

UNKNOWN 

83 

r j IHFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

8 1 

502 


531 


419 

42  1 

421 

435 

45  1 /S 

451 

460 

462 

465 

47  1 

475 

508 

437 

435 

437 

453/S 

453 

461 

463 

47  1 

510/S 

510 

452/S 

452 

460 

462 

463 

465 

4sa 

509/S 

509 

466 

473 

519 

460 

460 

461 

46G 

468 

473 

475 

511/S 

511 

420 

422 

423 

423 

406 

407 

407 

407 

408 

408 

409 

409 

409 

410 

4 1 1 

4 1 1 

4 1 1 

412 

4 1 2 

4 12 

413 

413 

4 14 

4 15 

4 15 

415 

416 

416 

417 

417 

417 

419 

4 IS 

4 19 

420 

420 

421 

421 

421 

422 

423 

423 

423 

424 

425 

426 

427 

428 

423 

432 

434/C 

435 

435 

437 

437 

437 

437 

437 

44  1 

44  1 

442 

442 

442 

443 

443 

443 

443 

444 

444 

446 

446 

447 

448 

449 

449 

450 

450 

45  1 

451 

451 

451 

452 

452 

452 

452 

453 

453 

454 

454 

454 

455 

495 

455 

456 

457 

457 

457 

457 

459  /C 

460 

460 

460 

460 

462 

462 

463 

463 

465 

465 

466 

466 

466 

466 

466 

468 

468 

471 

471 

473 

473 

473 

475 

475 

481 

481 

48  1 

482 

4S2 

482 

482 

484 

484 

484 

484 

485 

485 

485 

485 

486 

4B7 

4S8 

488 

489 

489 

490 

490 

431 

491 

493 

493 

494 

494 

495 

495 

496 

496 

498 

501 

502 

502 

508 

508 

508 

509 

509 

509 

51  1 

51  1 

513/C 

514 

514 

5 16 

516 

516 

519 

519 

519 

5 23 

523 

523 

524 

524 

525 

525 

528 

528 

5 29 

5 29 

530 

530 

531 

531 

533 

535 

536 

536 

538/C 

539 

539 

539 

540 

540 

54  1 

54  1 

541 

542 

542 

542 

542 

543 

543 

544 

544 

545 

545 

545 

546 

546 

546 

546 

549 

549 

550 

550 

550 

55  1 

55  t 

55  1 

55  1 

554 

554 

555 

555 

555 

556 

556 

556 

556 

559 

559 

562/C 

563 

563 

563 

564 

564 

564 

565 

566 

566 

566 

566 

9 1 


449/S 

449 

501/S 

501 

536/S 

536 

27 

28 

29 

30 

31 

32 

33 

34 

35 

38 

39 

40 

41 

42 

43 

44 

45 

46 

49 

50 

5 1 

52 

53 

54 

55 

56 

57 

60 

61 

62 

63 

64 

65 

66 

67 

6B 

71 

72 

73 

74 

75 

76 

191 

192 

193 

194 

195 

196 

197 

198 

199 

ORIGINAL  PAGE  IB 
OF  POOR  QUALITY 


I I CLOUD 

ICMTRL 

INTEGER 

unknown 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

IBS 

IM 

ICNTRL 

INTEGER 

SrMPLE 

26 

405 

434 

459 

5 13 

538 

562 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IMD2P 1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAY 

191 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

I PRE ACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICMTRL 

INTEGER 

UNKNOWN 

80 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

79 

SO 

81 

82 

IQU 

ICNTRL 

integer 

ARRAY 

75 

87 

88 

89 

IRADLWG 

ICNTRL 

INTEGEH 

UNKNOWN 

35 

IRADSW 

ICNTRL 

integer 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

201 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

J 

INTEGER 

SIMPLE 

1 

449 

449 

501 

501 

536 

536 

JAL0 

R ACCOM 

integer 

SIMPLE 

367 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

JIG 

CCNTRL 

CHAR *3 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INtEGER 

SIMPLE 

33 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHARTS 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSp 

ICNTRL 

INTEGER 

SIMPLE 

36 

KL  X ALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

K5 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

HU 

ICNTRL 

INTEGER 

SIMPLE 

41 

L 

INTEGER 

SIMPLE 

445/S 

446/S 

447 

448 

449 

497/C 

498 

536 

561  /C 

563 

563 

563 

564 

564 

566 

565 

566 

566 

LAND 

RADCOM 

LOGICAL 

ARRAY 

36S 

370 

LC 

LCNTRL 

Logical 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

1 43 

144 

LCL  1 

INTEGER 

SIMPLE 

400/S 

497 

500 

501 

505/S 

506/S 

507 

LCL2 

INTEGER 

SIMPLE 

401/S 

497 

507/S 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

95 

96 

97 

9a 

103 

104 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

116 

14  1 

LDPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

135 

L FUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 T 

136 

LHFLUX 

LCNTRL 

LOGICAL 

unknown 

109 

134 

LI  CLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

L0G8R 

ICNTRL 

INTEGER 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

115 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 
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00410 

ALBEDO  < I * tl } = ALBDO  1 ( J , I 1 

1 , 

004  1 1 

330 

CONTINUE 

004  1 2 

C 

GO  TO  400 

c 

c 

* * » 

+ * * * 

c 

# ► r 

* INTERPOLATE  BETWEEN 

MONTHS 

c 

w * * 

* * » * 

* 

004  13 

c 

c 

360 

CONTINUE 

i 

004  14 

IF  t MONALB , EQ , 0 ) 

5CALL  RDCLI  1 LUALB  , NP^ON  1 . ALB0O2  < t , 1 

, M0 1 ) , JNP  * I M , <5900  > 

004  15 

IF  (NM0N2. EO, MONALB)  GO 

TO  380 

i 

004  16 

CALL  RDCLI  ( LUALB  t NM0N2 , ALBD02 (1.1 

, MO 2 ) , JNP* I M. 5900) 

• 

004  17 

MONALB  = NMON2 

I 

004  18 

380 

CONTINUE 

i 

00419 

DO  390  J = JSP , JNP 

i 

i 

i 

• 

t 

j 

00420 

INC  = IJUMP<J> 

00421 

DO  390  1= 1 , IMt INC 

00422 

ALBEDOI 1 , J ) = FDAT 1 * ALBDO 2 < J , I , MO  t 

> * FDAT2  *ALBD02  f d , I ,M02  1 

004  23 

n 

390 

CONTINUE 

|i 

00424 

400 

CONTINUE 

00425 

c 

RETURN 

C 

c 

+ *■  * 

* 

* *•  m * 

c 

+ + + 

ERROR  IN  READING  CLIMATE  DATASET  * 

c 

c 

+ + + 
* (T  * 

* 

• * m * 

00426 

900 

00427 

0042B 

C 

WRITE 

00429 

6040 

FORMAT 

a 

00430 

6900 

FORMAT 

0043  1 

END 

CONTINUE 
3,G900>  LU 
RETURN  1 

rOGLOBAL  MEAN  PRESSURE  * f F 1 0 . 4 f 8 X f 
- PRESSURE  ADDED  *,Ft0.4) 

1 * OERROR  IN  READING  CLIMATE  DATASET  ON  UNIT*  f 14 ) 


STATEMENT  LABEL  MAP 

--LABEL DEFINED- --REFERENCES 


too 

343 

10000 

310 

110 

347 

345 

130 

356 

35  1 

353 

354 

160 

35S 

345 

ISO 

363 

360 

183 

368 

367 

185 

37  1 

367 

190 

373 

364 

366 

367 

200 

374 

346 

348 

357 

210 

378 

376 

230 

386 

382 

384 

260 

3 88 

376 

280 

393 

390 

290 

398 

394 

396 

300 

399 

377 

379 

387 

310 

403 

401 

330 

4 1 1 

407 

409 

360 

413 

401 

380 

4 1 B 

415 

390 

423 

419 

421 

40 

315 

312 

314 

400 

4 24 

402 

404 

412 

50 

320 

37  0 


SDAILV 
SDAILY 
SDAILV 
SDAILV 
SDAILV 
SD A I LY 
SDAILY 
SDAILV 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILV 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILV 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 
SDAILY 


21  t 
212 
21  3 
214 
2 1 5 
216 
217 
2 t S 
213 
220 
221 
222 

223 

224 

225 

226 

227 

228 
223 

230 

231 

232 

233 

234 

235 
235 

237 

238 

239 

240 

24  1 

242 

243 

244 

245 

246 

247 

248 

249 

250 
23  1 
252 

25  3 


o o 

-n 

TJ  £2 

o| 

O 5* 

P 

iO  Tl 
CL  £ 

P8 

3s? 


l l 


...L&fa* 


DAILY  9 


60 

335 

321 

6040 

429 

319 

6900 

430 

427 

900 

426 

VARIABLE  MAP 

--NAME BLOCK TYPE CLASS REFERENCES  A =A  RGL  1ST 


AGATE 

CCNTRL 

CHAR  * a 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

real 

S I Pd  P L E 

206 

ALBD01 

MNTKLY 

REAL 

ARRAY 

304 

307 

405 

ALB002 

MNTHLY 

REAL 

ARRAY 

303 

307 

414 

ALBEDO 

OANDQT 

REAL 

ARRAY 

24  4 

262 

410/S 

aphel 

RCNTRL 

REAL 

SIMPLE 

146 

338 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

4 

17 

, 

BETA 

RCNTRL 

REAL 

SIMPLE 

T47 

! 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

1 85 

; I .. 

cc 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

cco 

CCNTRL 

CHARrB 

SIMPLE 

2 

14 

15 

! 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

4 

i 

CC5P06 

CCNTRL  . 

CHAR  *8 

SIMPLE 

1 3 
7 

20 

' i 

CCSP07 

CCNTRL 

CHAR'S 

SIMPLE 

S 

21 

CCSPOB 

CCNTRL 

CHAR'S 

SIMPLE 

9 

22 

CON  1 

RDPARM 

REAL 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

208 

CON  2 

RDPARM 

REAL 

SIMPLE 

209 

-i 

CON2DT 

RDPARM 

REAL 

SIMPLE 

210 

CON3 

RDPARM 

REAL 

SIMPLE 

211 

\ 

CON3DT 

RDPARM 

REAL 

SIMPLE 

212 

■i 

CON4 

RDPARM 

REAL 

simple 

213 

iji 

CON4DT 

RDPARM 

REAL 

SIMPLE 

214 

V 

CONS 

RDPARM 

REAL 

SIMPLE 

215 

> 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

342/5 

- 1 

C05L 

RDPARM 

REAL 

ARRAY 

216 

■'u. 

CQSLON 

RDPARM 

REAL 

ARRAY 

217 

■F 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

r 

CPDZ 

RDPARM 

REAL 

SIMPLE 

2 18 

\ 

COS 

CCNTRL 

REAL 

ARRAY 

1 2 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

\\ 

DAILY 

SUBROUTINE 

1 

\V 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

337 

333 

DEC 

RCNTRL 

REAL 

SIMPLE 

15  t 

339/S 

34  1 

' Jr! 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

339 

: 7 1 
1 : 

DEL  TAP 

REAL 

SIMPLE 

311/S 

315 

3 17 

S’ 

DIABAT 

OANDQT 

REAL 

ARRAY 

285 

294 

!■': 

GIST 

RCNTRL 

REAL 

SIMPLE 

153 

33B/S 

340 

S I 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

m 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

i : i 

i J 

DT 

RCNTRL 

real 

SIMPLE 

156 

\ 

DXP 

RDPARM 

REAL 

ARRAY 

2 19 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

array 

221 

\ ' * 

E CCN 

RCNTRL 

REAL 

SIMPLE 

157 

340 

EFLUX 

OANDQT 

REAL 

ARRAY 

255 

273 

i 

EPS 

RCNTRL 

REAL 

SIMPLE 

t B3 

J 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

1 84 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

\ 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

t 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

i 

FDAT1 

REAL 

SIMPLE 

329/S 

372 

397 

f 

FDAT2 

REAL 

SIMPLE 

328/S 

329 

372 

L 

FDA  Y 

REAL 

SIMPLE 

336/S 

337 

338 

S f 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

200 

203 

FUSION 

QANOOT 

REAL 

ARRAY 

256 

274 

!i 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

158 

f ? 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

' i 

GRAV 

RCNTRL 

REAL 

STMPLE 

160 

:■! 

GT 

QANDQT 

REAL 

ARRAY 

245 

263 

355/5 

P 

KJ 

j-a 

O 


C=CTRL 


410 
4 16 
4 2 2 S 


5 


OF  DO,  I-DATA  INIT,  REREAD.  S=STORE . W=WRITE 


422  422 


S 7 8 S 10  It  12 


3A2 

3 IS  319/W 


422 

397  422 


369/S  372/5 


ORIGINAL  PASS  m 
OF  POOR  QUALITY 


GW 

QANDOT 

REAL 

ARRAY 

246 

264 

3S5/S 

397/S 

GW  1 

MNTHLV 

REAL 

ARRAY 

304 

306 

380 

385 

GW  2 

NINTHLY 

REAL 

ARRAY 

303 

306 

389 

39  1 

397 

397 

HtDT 

rdparm 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEAT  I 

RCNTRL 

REAL 

SIMPLE 

1 B 2 

HEATW 

RCNTRL  . 

REAL 

SIMPLE 

18  1 

HFLUX 

QANDQT 

real 

ARRAY 

254 

272 

367 

359 

I 

INTEGER 

SIMPLE 

314/C 

315 

315 

353/C 

354 

356 

355 

366/C 

367 

369 

369 

372 

372 

372 

384/C 

385 

385 

296  'C 

397 

397 

397 

409/C 

410 

4 1 0 

42  r /c 

422 

422 

422 

IC 

I CNTRL 

INTEGER 

ARRAY 

90 

9 1 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

9 1 

rCLOUD 

QANDQT 

INTEGER 

ARRAY 

259 

277 

33 

34 

35 

I CNTRL 

INTEGER 

UNKNOWN 

25 

26 

27 

28 

29 

30 

31 

32 

36 

37 

38 

39 

40 

4 1 

42 

43 

44 

45 

46 

47 

40 

49 

50 

5 1 

32 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

7 1 

72 

73 

74 

75 

7 6 

ICSPS3 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

68 

ID1ABAT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

(95 

196 

197 

193 

199 

IDPARM 

INTEGER 

UNKNOWN 

189 

190 

191 

192 

193 

194 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

190 

1 EF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

83 

T HF LUX 

ICNTRL 

INTEGER 

UNKNOWN 

81 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

395 

408 

420 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

189 

313 

352 

365 

383 

334 

389 

391 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

314 

349 

353 

359 

36  1 

366 

3S0 

396 

405 

409 

4 1 4 

4 16 

421 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

28 

384 

395 /S 

396 

408 

INC 

integer 

SIMPLE 

313/S 

314 

352/5 

353 

365  /S 

366 

383/S 

409 

420/S 

421 

INDEX 

IDPARM 

INTEGER 

ARRAY 

1S1 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

BO 

82 

83 

84 

85 

86 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

79 

80 

a 1 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

88 

89 

1RADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

B5 

IRAD5W 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDP A RM 

LOGICAL 

SIMPLE 

20  1 

204 

UMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

355 

364/C 

365 

J 

integer 

SIMPLE 

312/C 

313 

315 

315 

35  1 /C 

352 

354 

355 

367 

367 

369 

369 

359 

372 

372 

372 

382  ' C 

383 

385 

335 

394  /C 

395 

397 

397 

397 

407/C 

408 

410 

410 

419 

420 

4 22 

422 

422 

JC 

IDPARM 

integer 

ARRAY 

193 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

JIC 

CCNTRL 

CWAR*8 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

312 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

3 1 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

380 

332 

389 

391 

394 

jnp 

ICNTRL 

INTEGER 

SIMPLE 

33 

349 

35  1 

359 

351 

364 

405 

407 

414 

416 

4 19 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

integer 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR  *8 

SIMPLE 

6 

1 9 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

407 

4 19 

JSP 

ICNTRL 

integer 

SIMPLE 

36 

351 

364 

382 

394 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

40  1 

KL  I GW 

ICNTRL 

INTEGER 

SIMPLE 

38 

376 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

345 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

ORIGINAL  PAGE  B 
OF  POOR  QUALITY 


K 

r; 

5 

£ 

E 


% 

v 

■ V 

i» 

!i 

it 

1,1 

s 

i 

l 

{ 1 : 


i 

* 


KU 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

uco 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

LCNTRL 

integer 

UNKNOV/N 

92 

93 

103 

1 04 

loiabat 

LCNTRL 

LOGICAL 

UNKNOWN 

116 

141 

LDP ARM 

INTEGER 

unknown 

200 

20  \ 

leflux 

LCNTRL 

LOGICAL 

UNKNOWN 

1 to 

135 

LFU5I0N 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLU  X 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

LI CLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

LOG8R 

ICNTRL 

INTEGER 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOV/N 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECQN 

LCNTRL 

LOGICAL 

UNKNOWN 

103 

133 

LOS 

LCNTRL 

LOGICAL 

ARRAY 

103 

1 O Q 

105 

LOU 

LCNTRL 

LOGICAL 

ARRAY 

J iO 

104 

1 15 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOV/N 

1 13 

138 

lradsv/ 

LCNTRL 

LOGICAL 

UNKNOV/N 

1 1 7 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOV/N 

1 06 

T 3 t 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOV/N 

105 

1 30 

LU 

INTEGER 

simple 

344/S 

375/S 

lualb 

INTEGER 

SIMPLE 

308/1 

400 

LUGW 

INTEGER 

SIMPLE 

308/1 

375 

LUSST 

INTEGER 

SIMPLE 

30B/1 

344 

MAT  I N 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

INTEGER 

simple 

44 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

Md 

I DP ARM 

INTEGER 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MMTHLY 

INTEGER 

unknown 

303 

M0 1 

INTEGER 

SIMPLE 

333/S 

359 

M02 

INTEGER 

SIMPLE 

334/S 

36  1 

MOW A LB 

integer 

SIMPLE 

309/1 

404 

MONGW 

INTEGER 

SIMPLE 

309/1 

379 

MOWSST 

integer 

SIMPLE 

309/1 

348 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

N5 

ICNTRL 

INTEGER 

SIMPLE 

50 

31  1 

ND 

ICNTRL 

INTEGER 

SIMPLE 

5 f 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAT 

INTEGER 

SIMPLE 

327 /S 

328 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

324/S 

NDHOG 

ICNTRL 

integer 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NHM5 

ICNTRL 

INTEGER 

SIMPLE 

58 

321 

NNM50 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMS1 

I DP  ARM 

INTEGER 

SIMPLE 

198 

NHM5E 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

61 

NLA  YM 1 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLA VP  1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NMON 

INTEGER 

SIMPLE 

325/S 

330 

NMQN1 

INTEGER 

SIMPLE 

330/S 

331  / S 

NMON  2 

INTEGER 

SIMPLE 

332/5 

334 

nsday 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

69 

323/S 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

7 1 

NYMD  1 

I DP ARM 

INTEGER 

SIMPLE 

199 

1 44 

94  95  96  97  9S  99  \0O  T01  t 

202 


tOS  107  10S  109  110  111  t 1 2 113  1 

116  1t7  129 


400/5  427/ W 

405  414  416 

390  3B9  391 

349  359  35 1 


367 

369 

372 

389 

397 

4 t 4 

422 

3G7 

369 

372 

39  1 

397 

41  S 

422 

406/S 

4 14 

4 15 

417/5 

38  1 /S 

389 

390 

392/S 

350/S 

359 

360 

362/S 

3 15 

3 f 5 

3 1 7 

317 

318 

318 

33  1 

324  325/S  336 


322/S  322 


343  349  350  379  380  381  404  405  406 

331  332  333  359  389  414 

360  361  362  390  391  392  415  4J6  417 


323  325  326  327 


DAILY  12  ORIGINAL  FAGS  $f 

« * OF  POOR  QUALITY 


ft- 


WYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

QANDQT 

REAL 

ARRAY 

284 

293 

0MEGA2 

RCNTRL 

REAL 

SIMPLE 

161 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

PHI 

QANDQT 

REAL 

ARRAY 

283 

292 

PH  IP 

QPOLES 

REAL 

ARRAY 

302 

PHIS 

QANDQT 

REAL 

array 

242 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

339 

PI  1BO 

RCNTRL 

REAL 

SIMPLE 

163 

P 12 

RCNTRL 

REAL 

SIMPLE 

164 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

31  1 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

RDF ARM 

real 

SIMPLE 

228 

PLEVS 

RCNTRL 

REAL 

ARRAY 

ISO 

PP 

q POLES 

REAL 

ARRAY 

297 

317/S 

PREACC 

QANDQT 

REAL 

ARRAY 

25  2 

270 

PRECON 

QANDQT 

REAL 

ARRAY 

253 

271 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSWIIN 

RCNTRL 

REAL 

SIMPLE 

168 

PSTD 

RCNTRL 

REAL 

SIMPLE 

165 

PTOP 

RCNTRL 

REAL 

SIMPLE 

169 

PZERO 

RCNTRL 

REAL 

SIMPLE 

18G 

QALT 

LCNTRL 

Logical 

SIMPLE 

93 

1 18 

QANDQT 

real 

UNKNOWN 

24  1 

27S 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 IS 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

OPOLES 

REAL 

UNKNOWN 

297 

29S 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

102 

127 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

1 26 

QS 

QANDQT 

REAL 

ARRAY 

24  1 

260 

270 

27  1 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

QU 

QANDQT 

REAL 

ARRAY 

270 

288 

RADE 

RCNTRL 

REAL 
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00205 

Q 

LOGICAL 

START 

C 

P 

REAL  MODEL 

. CONSTANTS 

00206 

COMMON 

/RDPARM/ 

ADLDP 

00207 

COMMON 

/RDPARM/ 

CONI 

00208 

COMMON 

/RDPARM/ 

CON  IDT 

00209 

COMMON 

/RDPARM/ 

C0N2 

00210 

COMMON 

/RDPARM/ 

C0N2DT 

00211 

COMMON 

/RDPARM/ 

C0N3 

00212 

COMMON 

/RDPARM/ 

CON3DT 

00213 

COMMON 

/RDPARM/ 

CON4 

00214 

COMMON 

/RDPARM/ 

CQN4DT 

00215 

COMMON 

/RDPARM/ 

CONS 

00216 

COMMON 

/RDPARM/ 

COSL 

{461 

00217 

COMMON 

/RDPARM/ 

COSLQN 

(72) 

002  IS 

COMMON 

/RDPARM/ 

CPD2 

00219 

COMMON 

/RDPARM/ 

DXP 

{ 46 ) 

00220 

COMMON 

/RDPARM/ 

Dxyp 

( 46) 

00221 

COMMON 

/RDPARM/ 

D VP 

( 46  ) 

00222 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

00223 

COMMON 

/RDPARM/ 

F IDT 

00224 

COMMON 

/RDPARM/ 

F2DT 

00225 

COMMON 

/RDPARM/ 

HTDT 

SCNTRL 

1 88 

SCNTRL 

T 89 

SCNTRL 

190 

SCNTRL 

191 

SCNTRL 

192 

SCNTRL 

193 

SCNTRL 

194 

SCNTRL 

195 

SCNTRL 

196 

SCNTRL 

197 

SCNTRL 

198 

SCNTRL 

199 

SCNTRL 

200 

SCNTRL 

201 

SCNTRL 

202 

SCNTRL 

203 

SCNTRL 

204 

SCNTRL 

205 

SCNTRL 

206 

SCNTRL 

207 

SCNTRL 

208 

SCNTRL 

209 

SCNTRL 

210 

SCNTRL 

21  1 

SCNTRL 

212 

SCNTRL 

213 

SCNTRL 

214 

SCNTRL 

215 

SCNTRL 

216 

SCNTRL 

217 

SCNTRL 

218 

q n 

SCNTRL 

219 

SCNTRL 

220 

1 2? 

SCNTRL 

221 

Q 

SCNTRL 

222 

SCNTRL 

223 

S 2 

SCNTRL 

224 

2 ^ 

SCNTRL 

225 

SCNTRL 

226 

SCNTRL 

227 

<o  3 

SCNTRL 

223 

ci  Sl* 

SCNTRL 

229 

> 

SCNTRL 

230 

SCNTRL 

231 

SCNTRL 

232 

**** 

SCNTRL 

233 

SCNTRL 

234 

SCNTRL 

235 

SCNTRL 

236 

SCNTRL 

237 

SCNTRL 

238 

SCNTRL 

239 

SCNTRL 

240 

SCNTRL 

241 

SCNTRL 

242 

SCNTRL 

243 

SCNTRL 

244 

SCNTRL 

245 

SCNTRL 

246 

SCNTRL 

247 

SCNTRL 

248 

SCNTRL 

249 

SCNTRL 

250 

SCNTRL 

25  1 

SCNTRL 

252 

SCNTRL 

253 

SCNTRL 

254 

SCNTRL 

255 

SCNTRL 

256 

SCNTRL 

257 

SCNTRL 

258 

DEFALT  4 


00226 

COMMON  /RDPARM/ 

H2DT 

3CNTPL  259 

00227 

COMMON  /RDPARM/ 

PKSTD 

SCNTRL  260 

0 0228 

COMMON  /RDPARM/ 

FKTOP 

SCNTRL  261 

00229 

COMMON  /RDP ARM/ 

RL AT  <46) 

SCNTRL  262 

00230 

COMMON  /RDPARM/ 

RLATD  (461 

SCNTRL  263 

00231 

COMMON  /RDPARM/ 

ROCPDT 

SCNTRL  264 

00232 

common  /RDPARM/ 

RQCP P t 

SCNTRL  265 

00233 

COMMON  /RDPARM/ 

SGNP  (2) 

SCNTRL  266 

00234 

COMMON  /RDPARM/ 

SINL  (46) 

SCNTRL  267 

00235 

COMMON  /RDPARM/ 

SINLON  (72) 

SCNTRL  268 

00236 

COMMON  /RDPARM/ 

THSTD 

SCNTRL  269 

00237 

COMMON  /RDPARM/ 

TMSTD2 

SCNTRL  270 

00  238 

COMMON  /RDPARM/ 

WSAVE  (159) 

5CNTRL  271 

00  239 

COMMON  /RDPARM/ 

DSIG  (9) 

SCNTRL  272 

00240 

COMMON  /RDPARM/ 

SIG  (9) 

SCNTRL  273 

C 

SCNTRL  274 

c 

* ► • 

5C0RDER  2 

c 

IDENTIFYING  LABELS 

OF  MODEL  HISTORY  RECORD  QUANTITIES 

SCORDER  3 

0024  1 

COMMON  /CORDER/ 

XORDSf 19)  , XORDU(  14  ) 

SCORDER  4 

00242 

CHARACTER'S  XQRDS,  XORDU 

SCORDER  5 

c 

* * * 

SQANDQT  2 

c 

GLOBAL  MODEL  SURFACE  FIELDS 

SQANDQT  3 

00243 

COMMON  / QANDQT/ 

Q5<  72 , 1 9 r 46 ) 

SQANDQT  4 

c 

SQANDQT  5 

00244 

DIMENSION 

PHISt 136B  , 1 ) 

SQANDQT  6 

00245 

DIMENSION 

SMITH  ( 1366,23) 

SQANDQT  7 

00246 

DIMENSION 

ALBEDO ( 1308 ( 1 ) 

SQANDQT  8 

00247 

dimension 

GTi 1368 . 1 ) 

SQANDQT  9 

00248 

DIMENSION 

GYM 1 368 f 1 > 

SQANDQT  10 

00249 

dimension 

TS ( 1 368 , 1 ) 

SQANDQT  1 1 

00250 

DIMENSION 

SH5 ( 1366, 1 ) 

SQANDQT  12 

0025  1 

DIMENSION 

PI72,  19,  n 

SQANDQT  13 

00252 

DIMENSION 

TM I N < 1368, 1 ) 

SQANDQT  14 

00253 

DIMENSION 

TMAX < 1368 , | ) 

SQANDQT  15 

00254 

DIMENSION 

PREACC ( 1368 , 1 ) 

SQANDQT  16 

00255 

DIMENSION 

PRECON  ('1368 , 1 ) 

SQANDQT  17 

00256 

DIMENSION 

HFLUX ( 1368, 1 ) 

SQANDQT  18 

00257 

DIMENSION 

EF  LU  X ( 1368, 1 ) 

SQANDQT  19 

00258 

DIMENSION 

FUS I ON ( 1366 ( 1 ) 

SQANDQT  20 

00259 

DIMENSION 

RADSWG ( 1368, 1 ) 

SQANDQT  21 

00260 

DIMENSION 

RADLWGf 1368, 1 ) 

SQANDQT  22 

00261 

DIMENSION 

ICLOUD ( 1368 , 1 ) 

SQANDQT  23 

c 

SQANDQT  24 

00262 

EQUIVALENCE 

( Q S < 1,1,1), PHIS! 1,1)) 

SQANDQT  25 

00263 

EQUIVALENCE 

(QS(  1 , 2,  1 j , SMTH  t 1 , 1 ) > 

SQANDQT  26 

0 0264 

EQUIVALENCE 

( Q5< 1,3,1) , ALBEDO! 1,1)) 

SQANDQT  27 

00265 

equivalence 

(QSM  ,4,  1 > ,GT(  1 . 1 ) ) 

SQANDQT  28 

00266 

EQUIVALENCE 

< QS (1,5,1), GW (1,11) 

SQANDQT  29 

00267 

equivalence 

<QS( 1 , 6, 1) ,TS( 1 , 1) ) 

SQANDQT  30 

00268 

equivalence 

(QSM  , 7,  1 > , 5HSI1  , 1 ) ) 

SOANDQT  31 

00269 

equivalence 

( QS  M,B,1),PM,1,1M 

SQANDQT  32 

00270 

equivalence 

t QS  (1,10,1)  ,TMINM  , 1 ) ) 

SQANDQT  33 

00271 

EQUIVALENCE 

( QS ( 1 , 1 1 , 1 ) , TMAX ( 1,1)) 

SQANDQT  34 

00272 

EQUIVALENCE 

105(1,12,1!, PREACC { 1,1)) 

SQANDQT  35 

00273 

EQUIVALENCE 

( QS( 1 , 13, 1 ) , PRECON ( 1 , 1 ) ) 

SQANDQT  36 

00274 

EQUIVALENCE 

(QSM,  14,  1)  , HFLUX  (1,11) 

SQANDQT  37 

00275 

EQUIVALENCE 

(05(1,15,1), EF  LUX (1,1)) 

SQANDQT  33 

00276 

EQUIVALENCE 

<QS(  1,16,1)  , FUS I ON { 1,1)) 

SQANDQT  39 

00277 

EQUIVALENCE 

IQSM,  17,1),  RADSWG  ( 1,1)) 

SQANDQT  40 

0027B 

EQUIVALENCE 

(QS( 1 , IS, 1) , RADLWG ( T , 1) ) 

SQANDQT  41 

00279 

EQUIVALENCE 

(QSM  , 19, 1)  , ICLOUD  ( 1,1)) 

SQANDQT  42 

c 

* * * 

SQANDQT  43 

c 

GLOBAL  MODEL  UPPER- 

■AIR  FIELDS 

SQANDQT  44 

00  260 

COMMON  /QANDQT / 

QU (72 . 9 , 14,46) 

SQANDQT  45 

c 

SQANDQT  46 

00281 

DIMENSION 

U(72,9, 14, 1) 

SOANDQT  47 

00282 

DIMENSION 

V f 7 2 , 9 , 14.1) 

SQANDQT  48 

00283 

DIMENSION 

1(72,9, 14, t> 

SQANDQT  49 

00284 

DIMENSION 

SH ( 72 , 9 , 14, t ) 

SQANDQ  T 50 

00285 

DIMENSION 

PHI (72,9,14,1 ) 

SQANDQT  51 

00286 

DIMENSION 

OMEGA (72, 126,1) 

SQANDQT  52 
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00287 

00283 

00239 

00290 

00291 

00292 

00293 

00294 
0 0295 

00296 

00297 
0 0298 


00299 

00300 
0030  1 


00306 

00307 
0 0308 

00309 

00310 


003  1 1 
003  12 
003  13 

00314 

00315 

00316 

00317 


DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


D I ABA  T ( 72  „ 126, 11 
RADSW (72, 126,1) 
RADLW<72, 126, 1 J 


, 1)  , U<  t , 

,i),vn, 

1 > ,Tt 1 , 1 
1 > ,SH< 1 , 


,PKr i i , 


i , n > 

■ , i ) > 
tin 
trii) 

.i*u) 


1.11.1)  .OMEGA (1,1,1)) 

1.12.1)  , 0 I ABAT  < 1,1,1) 

1.13.1) , RADSW  f 1,1,1)) 

1.14.1)  , R ADLW ( 1 , 1 . 1 > ) 


ONE-DIMENSIONAL  WORK  AREAS 


COMMON 

COMMON 

CHARACTERS 


CARDt 10) 
PK  < 72 , 9 J 
CARD 


DATA < 144  ) 
PT( 72 , 9 ) 


CA  T A < 144  ) 


characters  BLANK/’  '/ 

SET  DEFAULT  VALUES  FOR  XORDS 

DATA  XORDS  /SHPHIS  , SH5MTW  , BHALBEDO  , 8HGT 

8 8HGW  , SHTS  ,BHSH5  ,8HP 

& 8HP  2.8HTMIN  , 8HTMA  X ,SHPREACC 

8 BHPRECOM  .BHHFLUX  ,SHEFLUX  , 8HFUSI ON 

8 BHRADSWG  * SHR ADLWG  , BH I CLOUD  / 


SET  DEFAULT  VALUES  FOR  XORDS 


XORDU  /8HU 
8HT 


1 , BHU 
J , BHT 

a SHPHI  1 . SHPHI 

a BHRAOSW  , 8HR adlw 

C 

C DEBUG 
10000  CONTINUE 

C ****  CYBER  SCALAR  VERSION  04,001 

C CYBER  SCALAR  VERSION  04.000 

C ****  CYBER  SCALAR  VERSION  00 


2 , BMV 
2 . BHSH 
2, BHOMEGA 
/ 


1 . BHV 
1 , BHSH 
, BHD I ABA  T 


INPUT, IOQ 


SQANDQT  53 
SOANDQT  54 
SQANDQT  55 
SQANDQT  56 
SQANDQT  57 
SQANDQT  SB 
SQANDQT  59 
SQANDOT  60 
SQANDQT  61 
SQANDQT  62 
SQANDQT  63 
SQANDQT  64 
SQANDQT  65 
SQANDQT  66 
SWORK1D  2 
SWORK1D  3 
SWORK1D  4 
SVJORKTD  5 
SWORKTD  6 
SW0RK10  7 
5DEFALT  33 
SDEFALT  34 
5DEFALT  35 
SDEFALT  36 
SDEFALT  37 
SDEFALT  33 
SDEFALT  39 
SDEFALT  40 
SDEFALT  41 
SDEFALT  42 
SDEFALT  43 
SDEFALT  44 
SDEFALT  45 
SDEFALT  46 
SDEFALT  47 
SDEFALT  43 
SDEFALT  49 
SDEFALT  50 
SDEFALT  51 
SBEGDEB  2 
SBEGDEB  3 
SBEGDEB  4 
SBEGDEB  5 
SBEGDEB  5 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBEGDEB 


SET  DEFAULT  VALUES  FOR  CC 


JIC  = JOB 
JOB  = BLANK 

DO  10  K=1  t 10 
X LABEL  < K ) = BLANK 

10  CONTINUE 


SET  DEFAULT  VALUES  FOR  IC 


I ROD  = 0 
J04  - 0 
JOB  = O 
KLIALB  = 1 
KL  I GW  = 1 
KLISST  = 1 
MATIN  = 1 


SDEFALT  53 
SDEFALT  54 
SDEFALT  55 
SDEFALT  56 
SDEFALT  57 
SDEFALT  SB 
SDEFALT  59 
SDEFALT  GO 
SDEFALT  61 
SDEFALT  62 
SDEFALT  63 
SDEFALT  64 
SDEFALT  65 
SDEFALT  66 
SDEFALT  67 
SDEFALT  68 
SDEFALT  69 
SDEFALT  70 
SDEFALT  71 
SDEFALT  72 
SDEFALT  73 
SDEFALT  74 
SDEFALT  75 
SDEFALT  76 
SDEFALT  77 
SDEFALT  78 


DEFALT 


1 ••  •• 
• \ 


003  TS 
003  1 3 
00320 
0032,1 

00322 

00323 

00324 

00325 

00326 

00327 
0032a 
00323 
00330 
0033  t 

00332 

00333 

00334 

00335 

00336 

00337 


0033S 


00339 

00340 
0034  1 

00342 

00343 

00344 

00345 

00346 

00347 


00343 

00349 

00350 
0035  1 

00352 

00353 

00354 

00355 

00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 

00364 

00365 

00366 


r vY  atv 

\ 


MATSNX  = 0 
MAT SUN  = -1 

MLFltl  = 1 

DO  20  N = 2 , 12 
MLFfNl  = 0 
20  CONTINUE 

MROD  = 25 

ndalt  = o 

NDOUT  » 30000 
NDRSW  = 60000 
NKRSH  = “1 
NPPHY  = 3000 
NDT  - 43200 / IM 
NKMSO  = NHMS1 
NHMSE  - NHMST 
N5E0  = 1 
NDSHF  = 23000 
NSTEP  = 0 
NYMDO  = NYMD1 
NYMDE  = NYMD1 
C 

c * * *■-  * 

C ****  SET  DEFAULT  VALUES  FOR  LC 

C * » * * * 

c 

SN2FLG  = , FALSE. 

C 

C * 

Q ++  at  » » 

C ****  SET  DEFAULT  VALUES  FOR  RC 

C **** 

C 

GNU2  = 0. 

PSTD  = 1000. 

PIMEAN  = PMEANfNB) 

PSMAX  - 1200 

PSMIN  = 300. 

DO  30  L- 1 ( WLAYP 1 
SIGE(L)  “ FLOATIL-1 )/NLAY 
30  CONTINUE 

TSTO  = 2S0 * 

C 

c 

C 

C ****  SET  DEFAULT  VALUES  FOR  SMTH 

C **** 

Q + + + + + + + * + v + + ± + + + * + + + + + + a + * + + **  + + + + + +*  + + * + + + # 


DPI  = ACQS1-1 , > 

DLONG  * 2,*DPI/IM 
DNORM  = 2 , * JM/ IM 
1WAVE  = IM/ 2 

DO  60  r =1 , I WAVE 
SMTH ( I ,1)  - 1 - 

SMTH  ( I r JM14, 1 ) = 1. 

DATA  11}  = <B.*SINf I*OLONG)  - SI N ( I LONG*  2 . ) ) / { 6 . * DNORM ) 
60  CONTINUE 

DL  - DPI/tIM 
D = - . 5 * □ P I 

DO  70  J=21JM 
D = D * DL 
COSO  - COS(D) 

DO  70  1=1, I WAVE 

SMTH ( I , J ) - AMIN1 (COSJ/DATAfl) „ 1 . ) 

70  CONTINUE 

RETURN 


SDEFALT  79 
SOEFALT  SO 
SDEFALT  SI 
SDEFALT  B2 
SDEFALT  S3 
SDEFALT  84 
SDEFALT  85 
SDEFALT  86 
SDEFALT  87 
SDEFALT  88 
SDEFALT  S3 
SDEFALT  90 
SDEFALT  91 
SDEFALT  92 
SDEFALT  93 
SDEFALT  94 
SDEFALT  95 
SDEFALT  96 
SDEFALT  97 
SDEFALT  98 
SDEFALT  99 
SDEFALT 1 00 
SDEFALT 1 O I 
SDEFALT 102 
SDEFALT 1 03 
SDEFALT 1 04 
SDEFALT 1 05 
SDEFALT 106 
SDEFALT 1 07 
SDEFALT 1 08 
SDEFALT 1 09 
SDEFALT 1 10 
SDEFALT 1 1 1 
SDEFALT1  12 
SDEFALT 113 
SDEF  ALT  t 14 
SDEFALT  1 15 
SDEFALT 1 16 
SDEFALT1  17 
SDEFALT 1 1 B 
SDEFALT  1 19 
SDEF  AL  T 1 20 
SDEFALT1 2 1 
SOEFALT 1 22 
SDEPALT123 
SDEFALT 1 24 
SDEFALT 1 25 
SDEFALT 1 26 
SDEF  ALT  1 27 
SDEFALT 1 28 
SDEFALT 1 29 
SDEFALT130 
SDEFALT 1 3 1 
SDEFALT 132 
SDEFALT 133 
SDEFALT 1 34 
SDEFALT135 
SDEFALT 1 36 
SDEFALT 1 37 
SDEFALT 1 3B 
SDEFALT 139 
SDEFALT 140 
SDEFALT 1 4 1 
SDEFALT 142 
5DEFALT143 
SDEFALT 1 44 
SDEF  ALT  1 45 
SDEFALT 146 
SDEFALT 147 
SDEFALT  I 48 


o o 

73 

-O  g 

O g 
O > 
& r 

O 73 

C £ 
> D 
^ m 


END 


DEFALT  7 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


to 

3 10 

308 

toooo 

305 

20 

323 

321 

30 

346 

344 

60 

356 

352 

70 

364 

359 

362 

variable 

MAP 

--NAME 

BLOCK 

TYPE 

CLASS 

-REFERENCES 

A = 

ARGLI 

ADATE 

CCNTRL 

CHAR *8 

SIMPLE 

3 

16 

ADLDP 

R DP ARM 

REAL 

SIMPLE 

206 

! ALBEDO 

QANDQT 

REAL 

ARRAY 

246 

264 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

ATI  ME 

CCNTRL 

CHAR  *8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

| BLANK 

CHAR  *8 

SIMPLE 

302/1 

307 

309 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

IBS 

; ' CARD 

ft 

CHAR  + 8 

ARRAY 

299 

30  1 

CATA 

// 

REAL 

ARRAY 

299 

CC 

CCNTRL 

CHAR  *8 

ARRAY 

14 

15 

CCO 

CCNTRL 

CHAR  + 8 

SIMPLE 

2 

14 

15 

r CCNTRL 

REAL 

UNKNOWN 

2 

3 

4 

\ CCSPQ6 

CCNTRL 

CHAR  *8 

SIMPLE 

7 

20 

Jl  CCSP07 

CCNTRL 

CHAR *8 

SIMPLE 

8 

21 

\v  CCSP08 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

22 

a CONI 

RDPARM 

REAL 

SIMPLE 

207 

ft  CON IDT 

RDPARM 

REAL 

SIMPLE 

208 

, C0N2 

RDPARM 

REAL 

SIMPLE 

209 

J C0N2DT 

RDPARM 

REAL 

simple 

210 

l CON3 

RDPARM 

REAL 

SIMPLE 

2 1 1 

f C0N3DT 

RDPARM 

REAL 

SIMPLE 

212 

I CON4 

RDPARM 

REAL 

SIMPLE 

213 

1 1 CON4DT 

RDPARM 

REAL 

SIMPLE 

214 

\A  CONS 

RDPARM 

real 

SIMPLE 

215 

\ CORDER 

REAL 

UNKNOWN 

241 

§ i COSD 

RCNTRL 

REAL 

SIMPLE 

1 48 

[ COSd 

REAL 

SIMPLE 

361  /S 

363 

A COSL 

RDPARM 

REAL 

ARRAY 

216 

■?  1 COSLON 

RDPARM 

REAL 

ARRAY 

217 

\*  \ CP 

RCNTRL 

REAL 

SIMPLE 

149 

i-  CPD2 

RDPARM 

REAL 

SIMPLE 

218 

1 ; cqs 

CCNTRL 

real 

ARRAY 

12 

\ | CPU 

CCNTRL 

REAL 

ARRAY 

13 

1 D 

REAL 

SIMPLE 

358/5 

360/S 

360 

: , ; DATA 

// 

REAL 

ARRAY 

299 

355/S 

363 

1 DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

f ; DEC 

RCNTRL 

REAL 

SIMPLE 

151 

DEC MAX 

RCNTRL 

REAL 

SIMPLE 

152 

DEFALT 

SUBROUTINE 

1 

OIABAT 

OANDQT 

REAL 

ARRAY 

287 

296 

DIST 

RCNTRL 

REAL 

SIMPLE 

153 

DL 

REAL 

SIMPLE 

357/S 

360 

PLAT 

RCNTRL 

REAL 

SIMPLE 

154 

; DLON 

RCNTRL 

REAL 

SIMPLE 

155 

! DLDNG 

REAL 

SIMPLE 

349/5 

355 

355 

' DNORM 

REAL 

SIMPLE 

350/S 

355 

■l-  ; dpi 

REAL 

SIMPLE 

343  / S 

349 

357 

■ | DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

'■  ! DXP 

RDPARM 

REAL 

ARRAY 

219 

■ * DXYP 

RDPARM 

REAL 

ARRAY 

220 

k DYP 

RDPARM 

REAL 

ARRAY 

221 

. rf  ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

f-  EFLUX 

OANDQT 

REAL 

ARRAY 

257 

275 

r EPS 

RCNTRL 

REAL 

SIMPLE 

183 

i 


:sCTRL  OF  DO.  I =DATA  INIT,  R = READ , S = STORE . WsWRITE 
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* 


\ 

\ 


\ ' 


' 


* 


ti 

t,  i 

V E 
i ■ 

( 

V 

t 


EPSFAC 

RCMTRL 

REAL 

SIMPLE 

T 84 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDP ARM 

LOGICAL 

ARRAY 

200 

203 

FUSION 

QANDQT 

REAL 

ARRAY 

253 

276 

GNUt 

RCNTRL 

REAL 

SIMPLE 

T 58 

GNU2 

RCNTRL 

real 

SIMPLE 

159 

339/S 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

GT 

QANDQT 

REAL 

ARRAY 

247 

265 

GW 

QANDQT 

REAL 

ARRAY 

24S 

266 

H IDT 

RDPARM 

REAL 
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EQUIVALENCE  { QU  T 1 « 1 , 1 3 t 1 ) , RADSW ( 1 . 1 t 1 ) ) 

SQANDQT 

64 

00  296 

EQUIVALENCE  (QU<1,  1*14.1), RADLWC  t t 1 . 1)  > 

SQANDQT 

65 

c 

SQANDQT 

66 

c 
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SDEPEND 

32 

c 

DEBUG 

SBEGDEB 

2 

00297 

10000 

CONTINUE 

SB  EGDES 

3 

c 

-***  CYBER  SCALAR  VERSION  04.001  INPUT  r I QQ 

SBEGDEB 

4 

c 

CYBER  SCALAR  VERSION  04.000 

SBEGDEB 

5 

c 

****  CYBER  SCALAR  VERSION  00 

SBEGDEB 

6 

CS5SSSSSSS3SSSSSSS55SSS5-SSSSS5SSS5SSSSSSSSS5SS55SSSSSS5SSSSSSS5SSSSSSSSSSBEG0EB 

7 

00298 

IMD2  “ I M/2 

SDEPEND 

34 

00299 

IMD2P 1 = IMD2  + 1 

SDEPEND 

35 

00300 

JMD2  = fJM*1>/2 

SDEPEND 

36 

0030  t 

JMT2  = JM-2 

SDEPEND 

37 

00302 

JNP  = JM  + 1 

SDEPEND 

3B 

00303 

JSP  5 1 

SDEPEND 

39 

00304 

MSM  = 5 

SDEPEND 

40 

00305 

NDAY  = MODYMQf NYMD) 

SDEPEND 

4 1 

00306 

NLA  YM 1 = NLA Y - 1 

SDEPEND 

42 

00307 

NLA YP 1 = NLA  Y * 1 

SDEPEND 

43 

00308 

NVMD1  = NYMD 

SDEPEND 

44 

00309 

NHMS 1 = NHM5 

SDEPEND 

45 

003  10 

pr  = Acosf- t * > 

SDEPEND 

46 

003  t 1 

PI  180  = PI/ 180 . 

SDEPEND 

47 

003  1 2 

PI2  * ■ PI*2. 

SDEPEND 

48 

003  13 

DECMAX  = P I * { 23  *5/180.  ) 

SDEPEND 

49 

00314 

GNU  1 = 1.-2*  *GNU2 

SDEPEND 

50 

00315 

DLAT  = PI/ JM 

SDEPEND 

51 

003  16 

DLON  = PI2/IM 

SDEPEND 

52 

003  17 

FJEO  = ,5*fJSP  * JNP) 

SDEPEND 

53 

003TB 

PKSTD  - EKPBYK ( PSTD  J 

SDEPEND 

54 

00319 

ROCP  = RGAS/CP 

SDEPEND 

55 

00320 

ROCPPI  * ROCP  + 1 

SDEPEND 

56 

00321 

OMEGA2  =r  2 , f PI  2/SDA Y 

SDEPEND 

57 

00322 

TKSTD  = TSTD/PK5TD 

SDEPEND 

53 

00323 

DO  10  L = 1 f NLA  Y 

SDEPEND 

59 

0037.4 

IF  (SN2FLG)  SIGE(LM)  ' SI N { * 5 *P I /NLAY *L ) * *: 

SDEPEND 

60 

00325 

DSIGfL)  - 5IGE  1 L 1 J - SIGEfL) 

SDEPEND 

61 

00326 

SIG(L)  - , 5 * ( SI  GE  f L 1 ) * SIGE(U) 

SDEPEND 

62 

00327 

1 0 

CONTINUE 

5DEPEND 

63 

00323 

DO  20  1=1* IMD2 

SDEPEND 

64 

00329 

INDEX  Cl)  » I * IMD2 

SDEPEND 

65 

00330 

INDEX  U + IMD2)  = I 

SDEPEND 

56 

0033  1 

C.OSLON  ( I ) = -COS  { f I - 1 ) *DLON  } 

SDEPEND 

67 

00332 

COSLON ( I+IMD2)  = -COSLON1I) 

SDEPEND 

68 

00333 

SINLONfl)  = -SIMM  I - 1)  *DLON> 

SDEPEND 

69 

00334 

SINLONf I*IMD2>  = -SINLONf I) 

SDEPEND 

70 

00335 

20 

CONTINUE 

SDEPEND 

7 1 

00336 

DO  30  d = JSP  * JNP 

SDEPEND 

72 

00337 

I JUMP  1 J ) = 1 

SDEPEND 

73 

00338 

JC ( J ) = MOD  [ d - 1 * MSM ) + 1 

SDEPEND 

74 

00339 

Md<  d)  = 0 

SDEPEND 

75 

00340 

RLATfd)  = DLAT* ( J - FJEQ) 

SDEPEND 

76 

00341 

RLATDfJ)  = RLAT1 d) /PI  180 

SDEPEND 

77 

0034  2 

COSL(J)  = COS(RLAT(J)) 

SDEPEND 

78 

00343 

S INL ( J ) = SIN( RLAT(d) ) 

SDEPEND 

79 

00344 

DXPfd)  = RADE  *DLON*CQSL  < d ) 

SDEPEND 

SO 

00345 

DYP(d)  = RADE*  DLAT 

SDEPEND 

SI 

00346 

DXYP(J)  « T2**DXP{J) *DYPr J) 

SDEPEND 

82 

00347 

FCORLS(J)  = 0MEGA2*SINL i d ) 

SDEPEND 

S3 

00348 

FILTERTJ)  = .FALSE. 

SDEPEND 

84 

00349 

DO  25  1 = 1 , IMD2 

SDEPEND 

85 

00350 

IF  fJ.GT.JMD2)  SMTH 1 I ? d ) = SMTH f J , JM- J *2 ) 

SDEPEND 

86 
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0035  1 

FlLTERfd)  = FILTER1J)  - OR  * 5MTH  i 

0035  2 

25 

CONTINUE 

00353 

30 

CONTINUE 

00354 

IJUMPtJSPJ  « IM 

00355 

I JUMP ( dNP  > - IM 

00356 

Md  { dSP  ) = 1 

00357 

Md(JNP)  = 2 

00359 

JEM)  “ dSP 

00339 

JE(2)  = ONP 

003*10 

JP  < 1 , T ) = dSP  * 1 

003ft  1 

JP ( 2 „ 1)  = dSP  * 2 

003(52 

JPM.2)  =5  dNP  - 1 

00363 

dP  ( 2 « 2 1 - dNP  - 2 

00364 

5GNP<  1 ) = - T , 

00365 

SGNP  < 2 ) s 1 , 

00366 

ADLDP  = 12, *RADE*DLAT*DLON 

00367 

RAD  I M3  = 3, *RADE*IM 

00368 

CONI  = 4 . *COTAN ( . 5*DLAT  ) / RADI M3 

00369 

C0N2  = -COTAW<DLAT}/RADlM3 

00370 

COM3  * CONI 

0037  t 

C0N4  = -COM2 

00372 

C0N5  = 1 „ / 1 RADIM3*DLAT  1 

00373 

CFD2  - CP*, 5 

00374 

PKTOP  = PT0P**R0CPP1 

00375 

THSTD2  = THSTD  *2 , 

00376 

CALL  RPFTI  ( I Mi WSAVE ) 

00377 

RETURN 

00378 

END 
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REAL 
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ARRAY 
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SIMPLE 
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SIMPLE 
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SIMPLE 
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REAL 
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REAL 
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REAL 

SIMPLE 

21  1 

370/S 

C0N3DT 

RDPARM 

REAL 

SIMPLE 
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RDPARM 

REAL 

SIMPLE 
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REAL 

SIMPLE 
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REAL 

SIMPLE 
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REAL 

SIMPLE 
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REAL 

ARRAY 
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REAL 

ARRAY 
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RCNTRL 

REAL 
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REAL 
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ARRAY 
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DAYSPV 

RCNTRL 

REAL 

SIMPLE 
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DEC 

RCNTRL 

real 

SIMPLE 

15  T 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

313/S 

DEPEND 

subroutine 

1 

DI ABAT 

QANDQT 

REAL 

ARRAY 
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DIST 

RCNTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

315/S 

340 

345 

366 

368 
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DLON 

RCNTRL 

real 

SIMPLE 

1 55 

316/S 

33  1 

333 

344 

366 

DSIG 

RDPARM 

real 

ARRAY 

239 

325/S 

DT 

RCNTRL 

REAL 

SIMPLE 
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OXP 

RDPARM 

REAL 

ARRAY 

219 

344/S 

346 

DX  YP 

RDPARM 

REAL 

ARRAY 

220 

346/S 
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DYP 

RDPARM 

real 

ARRAY 

22  1 

345/S 
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RCNTRL 

REAL 

SIMPLE 

157 

- 

EF  LUX 

QANDQT 

REAL 

ARRAY 
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273 
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EPS 

RCNTRL 

REAL 

SIMPLE 

1 33 

2 S 

o ^ 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 
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r1 

F 1 DT 

RDPARM 

REAL 

S I MP  L E 

2 23 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

iO  “3 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

347/S 

C jp 

FILTER 

LDP ARM 

LOGICAL 

ARRAY 

200 

203 

348/5 

35  T fS 

35  1 

FJEQ 

REAL 

SIMPLE 

317/S 

340 

FUSION 

QANDQT 

REAL 

ARRAY 

256 

274 

P*  Sr*  J 

GNU1 

RCNTRL 

REAL 

SIMPLE 

158 

3 14/S 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

3 14 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

GT 

QANDQT 

REAL 

ARRAY 

245 

263 

GW 

QANDQT 

REAL 

ARRAY 

246 

264 

H I DT 

RDPARM 

REAL 

SIMPLE 

2 25 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEATI 

RCNTRL 

REAL 

SIMPLE 

182 

HEATW 

RCNTRL 

REAL 

SIMPLE 

181 

HFLUX 

QANDQT 

REAL 

ARRAY 

254 

272 

I 

INTEGER 

SIMPLE 

328/C 

329 

329 

330 

330 

331 

331 

332 

332 

333 

333 

334 

334 

349/C 

350 

350 

35  1 

IC 

ICNTRL 

INTEGER 

ARRAY 

90 

9 I 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

91 

I CLOUD 

QANDQT 

INTEGER 

ARRAY 

259 

277 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

3G 

37 

38 

39 

40 

41 

42 

43 

44 

45 
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47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIASAT 

ICNTRL 

integer 

UNKNOWN 

88 

I DP ARM 

INTEGER 

UNKNOWN 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

190 

I EF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

I F US  I ON 

ICNTRL 

INTEGER 

UNKNOWN 

83 

I HFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

81 

I I CLOUD 

ICNTRL 

integer 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

189 

337/S 

354/S 

355/S 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

298 

316 

354 

355 

367 

376 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

298/S 

299 

328 

329 

330 

33  2 

334 

349 

IMD2P 1 

ICNTRL 

TNTEGER 

SIMPLE 

28 

299/S 

INDEX 

IDPARM 

INTEGER 

ARRAY 

T9! 

329/S 

330/S 

TOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

I PRE ACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

unknown 

BO 

IQS 

ICNTRL 

INTEGER 

array 

75 

77 

78 

79 

80 

81 

B2 

B3 

84 

85 

86 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

88 

89 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

as 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

unknown 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDFARM 

LOGICAL 

SIMPLE 

20  1 

204 

UMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

J 

INTEGER 

SIMPLE 

336/C 

337 

33B 

338 

339 

340 

340 

34  1 
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342 
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|; 

343 

34  3 

350 

350 
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I DP ARM 

INTEGER 

ARRAY 

193 

336  /S 

’ 1 je 

I DP  ARM 

INTEGER 

ARRAY 

194 

35B/S 

JIC 

CCNTRL 

CHAR'S 

SIMPLE 

5 

16 

!;  JM 

I CNTKL 

INTEGER 

SIMPLE 

30 

300 

s JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

300/S 

i' 

JMT2 

icntrl 

INTEGER 

SIMPLE 

32 

301/5 

\ JNP 

rCNTRL 

INTEGER 

SIMPLE 

33 

302/S 

II  JQ4 

ICNTRL 

INTEGER 

SIMPLE 

34 

" JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

] JOB 

CCNTRL 

CHAR+S 

SIMPLE 

6 

19 

JP 

I DP ARM 

INTEGE  R 

ARRAY 

195 

360/S 

I JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

303/S 

i KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KUIGW 

ICNTRL 

INTEGER 

SIMPLE 

33 

s KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

J 

I 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

41 

7 

L 

integer 

SIMPLE 

323/C 

324 

r lc 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

? LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

1 43 

f.  LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

! 

103 

1 04 

; LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

LDP ARM 

INTEGER 

UNKNOWN 

200 

201 

LEFLU* 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

1 35 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

1 36 

LKFLUK 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

1 LOGBR 

ICNTRL 

integer 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 
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LCNTRL 

logical 

UNKNOWN 

107 

132 

•A  LP  RECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 OB 

133 

V LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 

105 

'i 

1 26 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

1 04 

1 15 

V 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

1 35 

V 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 
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142 

k 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

1 LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

i 1 LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

l matin 

ICNTRL 

INTEGER 

SIMPLE 

43 

fif  MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

\ MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

r V MJ 

IDPARM 

INTEGER 

ARRAY 
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339/S 
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ICNTRL 

INTEGER 

ARRAY 

46 

1 MRDD 

ICNTRL 

INTEGER 

SIMPLE 

47 
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ICNTRL 

INTEGER 

SIMPLE 

49 

304/S 
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INTEGER 

SIMPLE 

50 
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INTEGER 
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NDALT 
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INTEGER 
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INTEGER 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 

54 
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ICNTRL 
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SIMPLE 

55 
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INTEGER 

SIMPLE 
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ICNTRL 

INTEGER 

SIMPLE 

56 

NOT 
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INTEGER 

SIMPLE 

57 
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ICNTRL 

INTEGER 

SIMPLE 

56 
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INTEGER 

SIMPLE 
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INTEGER 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 

69 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 
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308/S 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 
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REAL 

ARRAY 
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REAL 

SIMPLE 
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321/S 
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real 

ARRAY 
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OANDQT 

real 

ARRAY 
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QANDQT 

REAL 

ARRAY 
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RCNTRL 

REAL 

SIMPLE 
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310/S 

RCNTRL 

REAL 

SIMPLE 
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3 11  /S 

RCNTRL 

real 

SIMPLE 

164 

312/S 

RCNTRL 

real 

SIMPLE 
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RDPARM 

REAL 

SIMPLE 
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3 18/S 

RDPARM 

REAL 

SIMPLE 
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X e .X. t 


00224 
00  225 

00225 
00227 
0022S 
00229 

1 00230 

00231 

00232 

J 00233 

j 00234 

i 00235 

[*•  i 00235 

I j 00237 

ft  ! 00238 

ft  i 00239 

00240 


00241 

00242 

00243 

00244 

00245 
00245 

00247 

00248 

00249 

00250 
00  25  1 

00252 

00253 

00254 

00255 
0025  6 

00257 

00258 
00253 

|t  00260 

00261 
00252 

00263 

00264 

00265 

00266 

00267 

00268 
00255 
00270 
0027  1 

00272 

00273 

00274 

00275 

00276 
00277 


00279 

00280 
00231 
00282 
00283 
00  284 

00285 

00286 


COMMON  /ROPARM/  F20T 
COMMON  / ROPARM/  HIQT 
COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PKSTD 
COMMON  /ROPARM/  PKTOP 
COMMON  /ROPARM/  RLAT  t 46 f 
COMMON  / RDPARM/  RLATD  f46J 
COMMON  /ROPARM/  ROCPOT 
COMMON  /RDPARM/  HOCPP 1 
COMMON  /RDPARM/  5GNP  12) 

COMMON  /RDPARM/  SINL  £46) 

COMMON  /RDPARM/  SINLON  (72) 

COMMON  /RDPARM/  TH5TD 
COMMON  /RDPARM/  THSTD2 
COMMON  /RDPARM/  WSAVE  (159) 

COMMON  /RDPARM/  D5IG  1 9 ) 

COMMON  /RDPARM/  SIG  (9) 

C 

c * * +■ 

C GLOBAL  MODEL  SURFACE  FIELDS 

COMMON  /QANOQT/  QS(72, 19,46) 

C 

DIMENSION  PHIS (1368, 1 ) 

DIMENSION  SMTHl 1368 , 23 > 

DIMENSION  ALBEDOM36B,  1 ) 

DIMENSION  GT( 1368 , 1 ) 

DIMENSION  GW ( 1368 , 1 ) 

DIMENSION  TS( 1368, t ) 

DIMENSION  SH5M3B8  , T J 

DIMENSION  P ( 72 , 1 9 * 1 ) 

DIMENSION  TMI N ( 1368, 1 ) 

D I MENS ION  TMAK ( 1368, 1 1 

DIMENSION  PREACCC 1368, 1 ) 

DIMENSION  PRECON ( 1368,1 1 

DIMENSION  HFLUX1 1368, 1 > 

DIMENSION  EFLUX ( 1368 , 1 ) 

DIMENSION  FUSION ( 1368, f ) 

DIMENSION  RADSWGt 1368 , 1 ) 

DIMENSION  RADLWGf 1368, 1 J 

DIMENSION  I CLOUD ( 1368, 1 ) 

C 

EQUIVALENCE  ( QS (1,1,1), PHISC 1,1)) 

EQUIVALENCE  (QSC 1,2,1) , SMTH (1 ,11) 

EQUIVALENCE  (Q5( 1,3,1) , ALBEDO ( 1 , 1 > ) 

EQUIVALENCE  (QSM  ,4,  1 ) (GTM  ,1  ) ) 

EQUIVALENCE  ( QS t 1 . 5 , T > , GW( 1 . 1 )) 

EQUIVALENCE  (QSf  1 ,6,1)  JS(KD) 

EQUIVALENCE  (QSC  f ,7. 1 I ,5H5f 1 , t ) > 

EQUIVALENCE  (QS( 1 ,8, U ,P (1  ,1 , 1 ) ) 

EQUIVALENCE  {05(1,10,11, TMIN( 1,1)) 

EQUIVALENCE  (QS(  1 , I 1 , 1 ) f TMAXM  , 1 ) ) 

EQUIVALENCE  (Q5< 1 , 12, U , PREACC { 1,1)) 

EQUIVALENCE  ( QS 1 1,13,1), PRECONI  1,1)) 

EQUIVALENCE  (QSM  . 14, 1 > ,HFLUX(  1 , 1 ) > 

EQUIVALENCE  £ QS  (1  , 15 , 1 ) ,EFLU)(  (1,13) 

EQUIVALENCE  |QS( T , 16, 1) , FUSION < 1,1)) 

EQUIVALENCE  ( Q5 f 1 , f 7 . 1 > ,RADSWG( 1,1)) 

EQUIVALENCE  (QSMJS.I),  RADLWG  ( 1 . 1 J ) 

EQUIVALENCE  (QSM  , 19,1  ) , ICLOUOt  t , 1 ) ) 

C * * * 

C GLOBAL  MODEL  UPPER-AIR  FIELDS 

COMMON  /QANOQT/  QU ( 72 , 9 t 1 4 , 46 ) 

C 

DIMENSION  U ( 72 , 9 , 14,1) 

DIMENSION  V ( 72 ,9,14,1) 

DIMENSION  T ( 72 , 0 , T4r  1) 

DIMENSION  SH (72,9, 14,  1 ) 

DIMENSION  PHI (72,9,14,1) 

DIMENSION  OMEGA (72, 126,1) 

DIMENSION  DI ABAT ( 72 ( 126, 1 ) 

DIMENSION  RAOSW  f 72 ,126,  1 ) 


SCNTRL 

2S7 

SCNTRL 

258 

SCNTRL 

259 

SCNTRL 

260 

SCNTRL 

26  1 

SCNTRL 

262 

SCNTRL 

263 

SCNTRL 

264 

SCNTRL 

255 

SCNTRL 

265 

SCNTRL 

267 

SCNTRL 

268 

SCNTRL 

269 

SCNTRL 

270 

SCNTRL 

271 

SCNTRL 

272 

SCNTRL 

273 

SCNTRL 

274 

5QANDQT 

2 

SQANDQT 

3 

SQANDQT 

4 

SQANDQT 

5 

SQANDQT 

6 

SQANDQT 

7 

SQANDQT 

8 

SQANDQT 

9 

SQANDQT 

10 

SQANDQT 

1 t 

SQANDQT 

12 

SQANDQT 

13 

O Q 

SQANDQT 

14 

SQANDQT 

15 

■n  33 

SQANDQT 

16 

"0  Q 

o -■ 

o $ 

SQANDQT 

17 

SQANDQT 

IB 

SQANDQT 

19 

SQANDQT 

20 

XJ  J** 

SQANDQT 

21 

SQANDQT 

22 

rO  "V 

SQANDQT 

23 

a x 

SQANDQT 

24 

2k  * £ < j 

SQANDQT 

25 

SQANDQT 

26 

1 1 ■ J 

— v 

SQANDQT 

27 

SQANDQT 

28 

■< 

SQANDQT 

29 

SQANDQT 

30 

SQANDQT 

3! 

SQANDQT 

32 

5QANDQT 

33 

SQANDQT 

34 

SQANDQT 

35 

SQANDQT 

36 

SQANDQT 

37 

SQANDQT 

38 

SQANDQT 

39 

SQANDQT 

40 

SQANDQT 

41 

SQANDQT 

42 

SQANDQT 

43 

SQANDQT 

44 

SQANDQT 

45 

SQANDQT 

46 

SQANDQT 

47 

SQANDQT 

4B 

SQANDQT 

49 

SQANDQT 

50 

SQANDQT 

51 

SQANDQT 

52 

SQANDQT 

53 

SQANDQT 

54 

\\ 


i 

■ > 
- * 

U 


r 

,t- 

f ! 


00287 

DIMENSION 

RADLW{72/I26r1 ) 

SQANDOT 

55 

C 

SQANDQT 

56 

0G2SB 

equivalence 

<QU< 1 , 1 , 1 , 1 

LUM.1,1, 

1 ) ) 

SQANDQT 

57 

00289 

EQUIVALENCE 

<QU( 1 , 1,3, 1 

I.VfU.I. 

1)  J 

SQANDQT 

58 

00290 

EQUIVALENCE 

< QUt  1 . 1,5,  t 
(QUf 1 T 1 .7, 1 

) . TM  , T , 1 , 

1 ) J 

SQANDQT 

59 

00291 

EQUIVALENCE 

) , SH ( 1,1,1 

. t ) > 

SQANDQT 

50 

00292 

EQUIVALENCE 

( QU (1,1.9, 1 

) , PHI { 1 , t , 

1,11! 

SOANDQT 

61 

00293 

EQUIVALENCE 

tout  1,  1 ,11, 

1 1, OMEGA  X t 

SQANDQT 

52 

00294 

EQUIVALENCE 

f QU ( 1,1,12, 

1 ) , D I ABAT t 

1.1,1)) 

SQANDQT 

63 

00295 

EQUIVALENCE 

fOU( 1.1,13, 

1 1 , RADSWf 1 

, i . t n 

SQANDQT 

64 

00296 

EQUIVALENCE 

t QU (1,1, 14. 

1 ) , RADLWt 1 

, i . n ) 

SQANDQT 

65 

C 

SOANDQT 

66 

c 

* *■  *■ 

SQPOLE5 

2 

c 

POLAR  MODEL  PROGNOSTIC  FIELDS 

SQPOLES 

3 

00297 

COMMON  f QPOL  ES/ 

PP ( 2 . 2 ) 

SQPOLES 

4 

00293 

COMMON  / QPQLES/ 

UP (9,2,2) 

SQPOLES 

5 

00299 

COMMON  /QF0LH5/ 

VP (9 , 2. 2) 

SQPOLES 

6 

00300 

COMMON  /QPQLES/ 

TP  f 9 , 2 , 2 J 

SQPOLES 

7 

0030  1 

COMMON  / QPOLES/ 

SHP (9,2,2) 

SQPOLES 

8 

00302 

COMMON  /QPOLES/ 

PHIPf9,2,2) 

SQPOLES 

9 

c 

SQPOLES 

10 

c 

SDIFFQ 

34 

c 

DEBUG 

SBEGDEB 

2 

00303 

10000  CONTINUE 

SBEGDEB 

3 

00304 

00305 


00306 

00307 
00303 

00309 

00310 
0031  t 
00312 


c 

c 

c 


CYBER  SCALAR  VERSION  04,001  INPUT, IOQ 
CYBER  SCALAR  VERSION  04.000 
CYBER  SCALAR  VERSION  00 


SBEGDEB 

SBEGDEB 

SBEGOEB 


CSSSSS5SSS5S£S$S$5SSSS$SSSSSSSSSSSSSSS$SSSSSS£SSSSSS£S$$SSSSSS$SSSSSSSSSSBEGDEB 


M a Mdtd) 


IF  H1.EQ.0)  GO  TO  50 


C 

C 

C 

C 

c 

c 


POLE  POINT 


PP(NI,M)  = PPfNI.M)  - PPfW2,M) 

DO  10  L=1  r NLA  V 

UP ( L * N1 , M)  - UPfL.N1.MI  - UP(LfN2,M) 

VP  < L , N 1 »M } = VP ( L , N 1 ,M>  - V P ( L , N 2 » M ) 
TPtL.Ni.M-)  = TP  ( L , N t , M ) - TP(LrN2,M> 

SH  P < L , N 1 f M ) = SHPtL,N1,M>  - SHPtL,N2,M) 
10  CONTINUE 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


10 

1 oooo 

50 


312 
303 
3 13 


307 

305 


SDIFFQ 

SDIFFQ 

SDEFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 

SDIFFQ 


4 

5 

6 
7 

38 

37 

38 
33 

40 

41 

42 

43 

44 

45 

46 

47 

48 
43 

50 

51 

52 


: J 

C 

* + * 

* * - * - SDIFFQ 

S3 

C 

+ +-  *- 

* 

****  SDIFFO 

54 

j 

c 

a>  *■  » 

*■ 

elsewhere 

***-  SDIFFQ 

55 

5 

c 

* * * 

SDI F FO 

56 

5 

c 

* * * * * SD I F F Q 

57 

5 

c 

SDIFFQ 

58 

{ * 

003  13 

50 

CONTINUE 

SDIFFQ 

59 

? 

00314 

DO  SO  I - J 

. IM 

SDIFFQ 

60 

j 1 

00315 

PtI  , N 1 ,J>  = Pf I , N 1 

,d)  - PfT  ,N2.J) 

SDIFFQ 

61 

003  1 6 

60 

CONTINUE 

SDIFFQ 

62 

1 • 

003  1 7 

DO  70  L = 1 

, NLA  Y 

SDIFFQ 

63 

00318 

DO  70  I - 1 

, IM 

SDIFFQ 

64 

\ \ 

003  19 

U( I ,L ,M1 . d ) - U(I, 

L , N 1 , d ) - U ( I , L , N2  , J ) 

SDIFFQ 

65 

00320 

V f I , L , N t , d ) = V<  I , 

L.N1..J)  - V ( I , L , N2  . J ) 

SDIFFQ 

66 

1 

0 03  21 

TtlpL.NI ,J)  * T(I. 

L,N1,dt  * T { I , L , N2 , J ) 

SDIFFQ 

67 

00322 

5H  f I , L , N 1 . J ) = SHCX.L.NI.J)  - SH(I,LtN2,J) 

SDIFFQ 

68 

00323 

70 

CONTINUE 

SDIFFQ 

69 

5 

00324 

RETURN 

SDIFFQ 

70 

4 

1 

00325 

END 

SDIFFQ 

71 

ORIGINAL  PAGE  18 

DIFFQ  6 OF  POOR  QUALITY 


60 

3 IS 

3 M 

70 

323 

317 

3 18 

VARIABLE 

MAP 

- -NAME  - - 

BLOCK 

TYPE 

CLASS 

-REFERENCES 

ADATE 

CCNTRL 

CHARTS 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

ALBEDO 

QANDQT 

REAL 

ARRAY 

244 

262 

APHEL 

flCNTRL 

REAL 

SIMPLE 

146 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

4 

1 7 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

1S5 

CC 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

CCO 

CCNTRL 

CHARTS 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

CCSP05 

CCNTRL 

CHAR  *8 

S IMPLE 

1 3 
7 

20 

CCSP07 

CCNTRL 

CHAR-B 

SIMPLE 

8 

21 

CCSPOS 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

. ! CON  1 DT 

R DP ARM 

REAL 

SIMPLE 

20a 

COM2 

RDPARM 

REAL 

SIMPLE 

209 

CON2DT 

RDPARM 

REAL 

SIMPLE 

210 

C0N3 

RDPARM 

REAL 

SIMPLE 

21  1 

CON3DT 

RDPARM 

REAL 

SIMPLE 

212 

C0N4 

RDPARM 

REAL 

SIMPLE 

213 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

214 

' CONS 

RDPARM 

REAL 

SIMPLE 

215 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

V COSL 

COSLON 

RDPARM 

REAL 

ARRAY 

216 

RDPARM 

REAL 

ARRAY 

217 

* CP 

RCNTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

218 

If  CQS 

CCNTRL 

REAL 

ARRAY 

12 

1 CQU 

CCNTRL 

REAL 

ARRAY 

13 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

0 dec 

RCNTRL 

REAL 

SIMPLE 

151 

\ DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

l\  diabat 

oandqt 

REAL 

ARRAY 

285 

294 

* DIFFQ 

SUBROUTINE 

t 

i D I ST 

RCNTRL 

REAL 

SIMPLE 

153 

% DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

\\  DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIPflPLE 

156 

. DXP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

j DYP 

RDPARM 

REAL 

ARRAY 

221 

' ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

t EFLUX 

QANDQT 

REAL 

ARRAY 

255 

273 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

! EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

F 1 DT 

RDPARM 

REAL 

SIMPLE 

223 

; F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

200 

203 

FUSION 

QANDQT 

REAL 

ARRAY 

256 

274 

GNUT 

RCNTRL 

REAL 

srMPLE 

158 

. GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

[ GT 

QANDQT 

REAL 

ARRAY 

245 

263 

GW 

QANDQT 

REAL 

ARRAY 

246 

254 

H 1 DT 

RDPARM 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEAT  I 

RCNTRL 

REAL 

SIMPLE 

132 

HEATW 

RCNTRL 

REAL 

SIMPLE 

181 

HFLUX 

QANDQT 

REAL 

ARRAY 

254 

272 

I 

INTEGER 

SIMPLE 

314/C 

□ 15 

32  1 

321 

m 


315 
32  t 


C- CTRL  OF  DO,  I =DATA  INIT.  REREAD.  S=5TORE,  W=WRITE 


5 6 7 S 9 10  11  12 


o 

3 T 5 318/C  319  319  319  320  320  320  H 

322  322  322  3 
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; . 

IC 

ICNTRL 

INTEGER 

ARRAY 

90 

9 t 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

ICLOUD 

QANDOT 

INTEGER 

ARRAY 

259 

277 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

36 

37 

i 

I1 

47 

4S 

1* 

53 

59 

li 

69 

70 

f ' [ 

IC5P53 

ICNTRL 

INTEGER 

SIMPLE 

65 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

68 

i : 

I D I AH AT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

189 

190 

I DSP 02 

I DP  ARM 

INTEGER 

SIMPLE 

190 

| [ 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

B2 

i 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

83 

IHFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

81 

\ ' 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

1 

I JUMP 

I DP  ARM 

INTEGER 

ARRAY 

189 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

3 14 

V 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

t ; 

IMD2P  t 

ICNTRL 

INTEGER 

SIMPLE 

2a 

J 

INDEX 

I DP ARM 

INTEGER 

ARRAY 

191 

?; 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOV/N 

79 

j : 

IPREGON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

! ! ' 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSV/G 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

I DP  ARM 

INTEGER 

SIMPLE 

192 

; i 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

201 

204 

{ 

ITMAX 

ICNTRL 

integer 

UNKNOWN 

78 

-fr 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

J 

INTEGER 

SIMPLE 

1 

304 

% 

32  1 

32  1 

: V 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

; v 

JE 

I DP ARM 

INTEGER 

ARRAY 

194 

• » ‘ 

dIC 

CCNTRL 

CHAR  *8 

SIMPLE 

5 

IB 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

;i  ! 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

L { 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

\\  r 

dNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

JO  4 

ICNTRL 

INTEGER 

SIMPLE 

34 

? * 

JOB 

ICNTRL 

INTEGER 

SIMPLE 

35 

ii 

JOB 

CCNTRL 

charts 

SIMPLE 

6 

19 

OP 

IDPARM 

INTEGER 

ARRAY 

195 

h> 

JSP 

ICNTRL 

integer 

SIMPLE 

36 

KL I ALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

i 

KLIGW 

ICNTRL 

integer 

SIMPLE 

30 

i ■ 

i 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

. 1 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

I 1 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

41 

, 

L 

integer 

SIMPLE 

307/C 

308 

31  1 

31  1 

’ 1 

321 

322 

: ' 

LC 

LCNTRL 

LOGICAL 

ARRAY 

M3 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

32 

143 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

103 

104 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

LDPARM 

INTEGER 

UNKNOWN 

200 

20  1 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

110 

135 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

lhflux 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

i 

LICLOUD 

LCNTRL 

LOGICAL 

unknown 

1 14 

139 

LOGBR 

ICNTRL 

integer 

SIMPLE 

42 

\v 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

i f 

t 

i - 

r 


. .fr* 

u 

hH 

JO 


27 

28 

29 

30 

31 

32 

33 

34 

35 

38 

39 

40 

41 

42 

43 

44 

45 

46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

60 

6 1 

62 

63 

64 

65 

66 

67 

68 

71 

72 

73 

74 

75 

76 

191 

192 

1 93 

194 

195 

196 

197 

198 

199 

318 


78  79  SO  81  S 2 B3  B4  85  85 

SB  89 


315  315  315  319  319  319  320  320  320 

321  322  322  322 


30B 

308 

309 

309 

309 

310 

310 

310 

311 

317/C 

322 

319 

322 

3 19 

319 

320 

320 

320 

321 

321 

144 

94 

95 

96 

97 

98 

99 

too 

lOI 

102 

202 
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LPRECON 

lcntrl 

LOGICAL 

UNKNOWN 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

LRADSWG 

LCNTRL 

logical 

UNKNOWN 

L TWA  X 

LCNTRL 

logical 

UNKNOWN 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

M 

INTEGER 

SIMPLE 

MATIN 

ICNTRL 

INTEGER 
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COMMON  /CCNTRL/ 

COU  ( 10 ) 

SCNTRL 

16 

c 

r 

SCNTRL 

17 

00014 

EQUIVALENCE 

(CCO ,cc (in 

SCNTRL 

IS 

00015 

character's 

CCO,  CC  f 200 ) 

SCNTRL 

T B 

000  16 

CHARACTER'S 

ADATE 

SCNTRL 

20 

000  17 

CHARACTERS 

ATIME 

SCNTRL 

21 

OOO  IS 

CHARACTER  *8 

JIC 

SCNTRL 

22 

000T9 

CHARACTERS 

JOB 

SCNTRL 

23 

00020 

CHARACTER'S 

CCSP06 

SCNTRL 

24 

00021 

CHARACTER'S 

CCSP07 

SCNTRL 

25 

00022 

CHARACTER'S 

CCSPOS 

SCNTRL 

26 

00023 

CHARACTER'S 

VER 

SCNTRL 

27 

00024 

CHARACTER'S 

XLABEL 

SCNTRL 

2B 

c 

SCNTRL 

23 

c 
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SCNTRL 

TDI 

30 

00025 

V# 

COMMON  / ICNTRL/ 

ICO 

SCNTRL 

O 1 

32 

00026 

COMMON  /ICNTRL/ 

IM 

SCNTRL 

33 

00027 

COMMON  /ICNTRL/ 

IMD2 

SCNTRL 

34 

00028 

COMMON  /ICNTRL/ 

I MD2P 1 

SCNTRL 

35 

0 0029 

COMMON  /ICNTRL/ 

NDRSW 

SCNTRL 

35 

00030 

COMMON  /ICNTRL/ 

JPrf 

SCNTRL 

37 

0003  T 

COMMON  /ICNTRL/ 

JMD2 

SCNTRL 

38 

00032 

COMMON  /ICNTRL/ 

JMT2 

SCNTRL 

39 

00033 

COMMON  /ICNTRL/ 

JNP 

SCNTRL 

40 

00034 

COMMON  /ICNTRL/ 

J04 

SCNTRL 

4 1 

00035 

COMMON  /ICNTRL/ 

JOS 

SCNTRL 

42 

00036 

COMPTON  /ICNTRL/ 

JSP 

SCNTRL 

43 

a 
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00037 

00038 

00039 

00040 

0004  1 

00042 

00043 

00044 

00045 

00046 
Q0047 
0 0 043 

00049 

00050 

0005  t 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00  061 
00062 

00063 

00064 

00065 
00056 

00067 

00068 

00069 

00070 
0007  1 

00072 

00073 

00074 

00075 

00076 

00077 
00073 

00079 

00080 
OOOBT 

00032 

00033 
00084 
00035 
00086 

00087 

00088 
00039 

00090 

00091 


00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 
00101 


I v f /v  ( 
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c 


COMMON 

/ 1 CNTRL / 

KLIALB 

COMMON 

/ I CNTRL / 

KLIGW 

COMMON 

/ I CNTRL/ 

KLrSST 

COMMON 

/ I CNTRL/ 

KS 

COMMON 

/ I CNTRL / 

KU 

COMMON 

/ I CNTRL / 

LOG8R 

COMMON 

/ 1 CNTRL / 

MATIN 

COMMON 

/ I CNTRL / 

MAT SNA 

COMMON 

/ I CNTRL / 

MATSUN 

COMMON 

/ICNTRL/ 

MLF  M2) 

COMMON 

/ I CNTRL/ 

MROD 

COMMON 

/ICNTRL/ 

NKRSH 

COMMON 

/ICNTRL/ 

MSM 

COMMON 

/ICNTRL/ 

NB 

COMMON 

/ICNTRL/ 

ND 

COMMON 

/ICNTRL/ 

NDALT 

COMMON 

/ICNTRL/ 

NDAY 

COMMON 

/ICNTRL/ 

NDOUT 

COMMON 

/ICNTRL/ 

NDPHY 

COMMON 

/ICNTRL/ 

NDSHF 

COMMON 

/ICNTRL/ 

NOT 

COMMON 

/ICNTRL/ 

NHPAS 

COMMON 

/ICNTRL/ 

NHMSE 

COMPAQ  N 

/ICNTRL/ 

NHPASO 

COMMON 

/ICNTRL/ 

NLA  Y 

COMMON 

/ICNTRL/ 

NLA  YM 1 

COMMON 

/ICNTRL/ 

NLA  YP 1 

COMMON 

/ICNTRL/ 

NSOAY 

COMMON 

/ICNTRL/ 

NSEQ 

COMMON 

/ICNTRL/ 

ICSP53 

COMMON 

/ICNTRL/ 

NSTEP 

COMMON 

/ICNTRL/ 

rCSP55 

cdmmon 

/ICNTRL/ 

NYMD 

COMMON 

/ICNTRL/ 

NYMOE 

COMMON 

/ICNTRL/ 

NYMDO 

COMMON 

/ICNTRL/ 

NZINI T 

COMMON 

/ICNTRL/ 

NMLEV 

COMMON 

/ICNTRL/ 

ndHog 

COMMON 

/ICNTRL/ 

IQS  (30) 

COMMON 

/ICNTRL/ 

IQU  (10) 

EQUIVALENCE 

(ITMIN 

, IQS  ( 

i ) ) 

EQUIVALENCE 

( I TPAA  X 

rIQS( 

2)  ) 

EQUIVALENCE 

( IP RE ACC 

f IQS( 

3)  ) 

EQUIVALENCE 

f I PRECON 

, IQ5( 

4)  ) 

EQUIVALENCE 

(INFLUX 

. IQS1 

5 ) ) 

EQUIVALENCE 

< I EF  LUX 

, I QS  ( 

6)  ) 

equivalence 

( X FUSION 

,IOSf 

7 > ) 

equivalence 

( IRADSWG 

. IQS( 

3)  ) 

equivalence 

( IRADLWG 

♦ IQS  ( 

9>  ) 

EQUIVALENCE 

( I I CLOUD 

. I QS( 10) ) 

equivalence 

(IOMEGA 

.IOU< 

1 ) ) 

equivalence 

< IDIABAT 

, IQU( 

2)  ) 

equivalence 

( IRADSW 

, roui 

3)  ) 

EQUIVALENCE 

(ICO.ICM)) 

INTEGER 

ICO,  I C ( 200 ) 

LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY 

COMMON  /LCNTRL / LCo’ 

COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  QBEG 
COMMON  /LCNTRL/  QDAY 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMPAON  /LCNTRL/  QPH Y 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  5N2FLG 
COMMON  /LCNTRL/  QRSW 


SCNTRL  44 
SCNTRL  45 
SCNTRL  46 
SCNTRL  47 
SCNTRL  48 
SCNTRL  49 
SCNTRL  50 
SCNTRL  51 
SCNTRL  52 
SCNTRL  53 
SCNTRL  54 
SCNTRL  55 
SCNTRL  56 
SCNTRL  57 
SCNTRL  S3 
SCNTRL  59 
SCNTRL  60 
SCNTRL  61 
SCNTRL  62 
SCNTRL  63 
SCNTRL  64 
SCNTRL  65 
SCNTRL  66 
SCNTRL  67 
SCNTRL  68 
SCNTRL  39 
SCNTRL  70 
SCNTRL  71 
SCNTRL  72 
SCNTRL  73 
SCNTRL  74 
SCNTRL  76 
SCNTRL  76 
SCNTRL  77 
SCNTRL  73 
SCNTRL  79 
SCNTRL  SO 
SCNTRL  81 
SCNTRL  82 
SCNTRL  83 
SCNTRL  84 
SCNTRL  35 
SCNTRL  86 
SCNTRL  87 
SCNTRL  88 
SCNTRL  39 
SCNTRL  90 
SCNTRL  91 
SCNTRL  92 
SCNTRL  93 
SCNTRL  94 
SCNTRL  95 
SCNTRL  96 
SCNTRL  97 
SCNTRL  98 
SCNTRL  99 
SCNTRL  100 
SCNTRL  101 
SCNTRL  T 02 

RECORD  SCNTRL  103 

===*=-  SCNTRL  104 

SCNTRL  105 
SCNTRL  106 
SCNTRL  107 
SCNTRL  108 
SCNTRL  109 
SCNTRL  110 
SCNTRL  111 
SCNTRL  112 
SCNTRL  113 
SCNTRL  f 14 
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pi 
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P3 
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00  1 02 

COMMON  /LCNTRL/ 

QRSH 

SCNTRL 

1 15 

00  103 

COMMON  / LCNTRL / 

LQS ( 30 ) 

5CNTRL 

1 16 

00104 

COMMON  /LCNTRL/ 

Lqu { 10> 

SCNTRL 

1 17 

C 

SCNTRL 

1 18 

00  1 05 

EQUIVALENCE 

(LTMIN 

< LQSt 

1 > ) 

SCNTRL 

1 19 

00106 

EQUIVALENCE 

(LTMAX 

> LQS  ( 

2>  ) 

SCNTRL 

120 

00107 

EQUIVALENCE 

1 LFREACC 

* LQS( 

3)  > 

SCNTRL 

121 

00108 

EQUIVALENCE 

< LPRECON 

,LQS< 

4M 

SCNTRL 

122 

00  1 09 

EQUIVALENCE 

< LHFLUX 

, LQS  ( 

5)  ) 

SCNTRL 

123 

0011  o 

EQUIVALENCE 

< LHFLUX 

. LQS  ( 

6)  ) 

SCNTRL 

124 

00111 

EQUIVALENCE 

(LFUSION 

i LQS  ( 

7)  } 

SCNTRL 

125 

00112 

EQUIVALENCE 

(LRAD5WG 

i LQSt 

S > > 

SCNTRL 

126 

00  113 

EQUIVALENCE 

(LRADLWG 

, LQS( 

9>  ) 

SCNTRL 

1 27 

00114 

EQUIVALENCE 

(LICLOUD 

. LQS ( 10) > 

SCNTRL 

1 28 

c 

SCNTRL 

129 

00  t 15 

EQUIVALENCE 

1 LOMEGA 

* LQU  ( 

1 ) > 

SCNTRL 

130 

00116 

EQUIVALENCE 

< LDIABAT 

,lqu< 

2)  ) 

SCNTRL 

131 

00117 

EQUIVALENCE 

< LRADSW 

* LQU  1 

3 J ) 

SCNTRL 

132 

c 

SCNTRL 

132 

00  118 

LOGICAL 

QALT 

SCNTRL 

134 

00  119 

LOGICAL 

QBEG 

SCNTRL 

135 

00120 

LOGICAL 

QOAY 

SCNTRL 

136 

00121 

LOGICAL 

QEND 

SCNTRL 

137 

00  122 

LOGICAL 

QOUT 

SCNTRL 

138 

00123 

LOGICAL 

QPHY 

SCNTRL 

139 

00124 

LOGICAL 

QSHF 

SCNTRL 

140 

00125 

logical 

SN2FLG 

SCNTRL 

141 

00  126 

LOGICAL 

QRSW 

SCNTRL 

142 

00127 

LOGICAL 

QRSH 

SCNTRL 

143 

c 

SCNTRL 

144 

00  1 28 

LOGICAL 

LQS 

SCNTRL 

145 

00  1 23 

LOGICAL 

LQU 

SCNTRL 

146 

00  1 30 

LOGICAL 

LTMIN 

SCNTRL 

147 

00131 

logical 

LTMAX 

SCNTRL 

14S 

00  132 

logical 

LFREACC 

SCNTRL 

149 

00133 

logical 

LPRECON 

SCNTRL 

150 

00  1 34 

LOGICAL 

LHFLUX 

SCNTRL 

151 

00135 

logical 

LEFLUX 

SCNTRL 

152 

00135 

LOGICAL 

LFUSION 

SCNTRL 

153 

00137 

LOGICAL 

LRADSWG 

SCNTRL 

154 

00  t 3 B 

LOGICAL 

LRADLWG 

SCNTRL 

t 55 

00139 

LOGICAL 

LICLOUD 

SCNTRL 

156 

c 

SCNTRL 

157 

00140 

LOGICAL 

LOMEGA 

SCNTRL 

158 

00141 

logical 

LDIABAT 

SCNTRL 

159 

00142 

LOGICAL 

LRADSW 

SCNTRL 

160 

c 

SCNTRL 

161 

00  143 

EQUIVALENCE 

< LCO , LC 1 1 ) ) 

SCNTRL 

162 

00  144 

LOGICAL 

LCD,  LC ( 200  > 

SCNTRL 

163 

c 

SCNTRL 

164 

c 
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SCNTRL 

165 

c 

SCNTRL 

166 

00  145 

COMMON  /RCNTRL / 

RCO 

SCNTRL 

167 

00146 

COMMON  /RCNTRL/ 

APHEL 

SCNTRL 

1 68 

00  147 

COMMON  /RCNTRL/ 

BETA 

SCNTRL 

169 

00148 

COMMON  /RCNTRL/ 

COSD 

SCNTRL 

170 

00  149 

COMMON  /RCNTRL/ 

CP 

SCNTRL 

171 

00150 

COMMON  /RCNTRL/ 

DAYSPY 

SCNTRL 

172 

0015  1 

COMMON  /RCNTRL/ 

DEC 

SCNTRL 

173 

00  152 

COMMON  /RCNTRL/ 

DECMAX 

SCNTRL 

174 

00  153 

COMMON  /RCNTRL/ 

D I ST 

SCNTRL 

175 

00  154 

COMMON  /RCNTRL/ 

DLAT 

SCNTRL 

176 

00  155 

COMMON  /RCNTRL/ 

DLON 

SCNTRL 

177 

00156 

COMMON  /RCNTRL/ 

DT 

SCNTRL 

178 

00  157 

COMMON  /RCNTRL/ 

ECCN 

SCNTRL 

1 79 

00  158 

COMMON  /RCNTRL/ 

GNU  1 

SCNTRL 

180 

00  159 

COMMON  /RCNTRL/ 

GNU2 

SCNTRL 

18  1 

00160 

COMMON  /RCNTRL/ 

GRAV 

SCNTRL 

1 B 2 

00  161 

COMMON  /RCNTRL/ 

OMEGA2 

SCNTRL 

183 

00162 

COMMON  /RCNTRL/ 

PI 

SCNTRL 

184 

00163 

COMMON  /RCNTRL/ 

PI  180 

SCNTRL 

185 

CD 

C=1 

O 

a 
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■U  ' 

00164 

common 

/RCNTRL/ 

PI  2 

001G5 

COMMON 

/RCNTRL/ 

PSTD 

00166 

COMMON 

/RCNTRL/ 

PI  mean 

00  t 67 

COMMON 

/RCNTRL/ 

PSMAX 

00  163 

COMMON 

/RCNTRL/ 

PSMIN 

00169 

COMMON 

/RCNTRL/ 

ptop 

00170 

COMMON 

/RCNTRL/ 

RADE 

0 0 171 

COMMON 

/RCNTRL/ 

RGAS 

00172 

COMMON 

/RCNTRL/ 

ROCP 

00  1 73 

COMMON 

/RCNTRL/ 

R5DIST 

00  174 

COMMON 

/RCNTRL/ 

SDAY 

00  176 

COMMON 

/RCNTRL/ 

SEASON 

00  176 

COMMON 

/RCNTRL/ 

SIGE 

1 25  1 

00177 

COMMON 

/RCNTRL/ 

SIND 

00  178 

COMMON 

/RCNTRL/ 

SOLS 

00179 

COMMON 

/RCNTRL/ 

T5TD 

00  180 

COMMON 

/RCNTRL/ 

PLEVS 

(25) 

ooiat 

COMMON 

/RCNTRL/ 

HEATW 

00182 

COMMON 

/RCNTRL/ 

HEATI 

00183 

COMMON 

/RCNTRL/ 

EPS 

00  T 84 

COMMON 

/RCNTRL/ 

EPSFAC 

00185 

COMMON 

/RCNTRL/ 

CALTOd 

00186 

c 

COMMON 

/RCNTRL/ 

PZERO 

00  187 

EQUIVALENCE 

( RCO , RC ( 1 >) 

00188 

Q 

REAL 

RCO , RC { 200 ) 

C 

INTEGER  MODEL  CONSTANTS 

c 

£~ss  = s:±2  — : 

3 ZS  S 3 3 

00189 

COMMON 

/I  DP ARM/ 

I JUMP 

(46) 

00190 

COMMON 

/ IDFARM/ 

IDSP02 

00191 

COMMON 

/ 1 DPARM/ 

I NDEX 

(72) 

00182 

COMMON 

/I DPARM/ 

I ROD 

00193 

COMMON 

/ IDP ARM/ 

JC 

(46) 

00  194 

COMMON 

/ I DPARM/ 

JE 

(2? 

00  1 95 

COMMON 

/ I DPARM/ 

UP 

12.2) 

00196 

COMMON 

/ID FARM/ 

KSTEP 

00  197 

COMMON 

/ 1 DPARM/ 

Md 

146) 

00198 

COMMON 

/IDPARM/ 

NHMS1 

00193 

Q 

COMMON 

/ 1 DPARM/ 

NYMD  1 

c 

LOGICAL  MODEL  CONSTANTS 

c 

~ = ^-=  c 2 r:  s a 

ts  - = ;=  = s a S : 

;sa  = s 

00200 

COMMON 

/LDPARM/ 

FILTER 

<4S? 

0020  1 

COMMON 

/ LDP ARM/ 

ITAPE 

00202 

COMMON 

/LDPARM/ 

START 

00203 

G 

LOGICAL 

FILTER 

00204 

LOGICAL 

ITAPE 

00205 

i-l 

LOGICAL 

START 

u 

c 

REAL  MODEL 

► CONSTANTS 

c 

t=52s=s;r; 

; = =.  = SS  = 33S 

: — 

00206 

COMMON 

/RDP4RM/ 

ADLDP 

00207 

COMMON 

/RDPARM/ 

CONI 

00208 

COMMON 

/RDPARM/ 

CON  T DT 

00209 

COMMON 

/RDPARM/ 

CON2 

00210 

COMMON 

/RDPARM/ 

CON2DT 

0021  1 

COMMON 

/RDPARM/ 

C0N3 

00212 

COMMON 

/RDPARM/ 

C0N3DT 

002  13 

COMMON 

/RDPARM/ 

C0N4 

00214 

COMMON 

/RDPARM/ 

CON4DT 

00215 

COMMON 

/RDPARM/ 

CONS 

002  1 6 

COMMON 

/RDPARM/ 

COSL 

(46) 

002  17 

COMMON 

/RDPARM/ 

COSLON 

(72) 

002  IS 

COMMON 

/RDPARM/ 

CPD2 

00219 

COMMON 

/RDPARM/ 

DXP 

(46) 

00220 

COMMON 

/RDPARM/ 

DXYP 

(46) 

0022  1 

COMMON 

/RDPARM/ 

DYP 

(46) 

00222 

COMMON 

/RDPARM' 

FCORLS 

(46) 

00223 

COMMON 

/RDPAF 

P TDT 

SCMTRL 

186 

SCNTRL 

187 

scntrl 

188 

SCNTRL 

189 

SCNTRL 

1 90 

SCNTRL 

191 

SCNTRL 

182 

SCNTRL 

193 

SCNTRL 

194 

SCNTRL 

185 

SCNTRL 

196 

SCNTRL 

197 

SCNTRL 

198 

scntrl 

199 

SCNTRL 

200 

SCNTRL 

20  1 

SCNTRL 

202 

SCNTRL 

203 

scntrl 

204 

SCNTRL 

205 

SCNTRL 

206 

SCNTRL 

207 

SCNTRL 

208 

SCNTRL 

209 

SCNTRL 

210 

SCNTRL 

21  1 

SCNTRL 

212 

o o 

SCNTRL 

213 

-n  ;a 

SCNTRL 

214 

SCNTRL 

215 

^3  a? 

SCNTRL 

216 

o 2 

SCNTRL 

217 

O & 

SCNTRL 

218 

x r* 

SCNTRL 

219 

scntrl 

220 

lO 

SCNTRL 

221 

c 

SCNTRL 

222 

SCNTRL 

223 

SCNTRL 

224 

* fc-4  J 

•-* 

SCNTRL 

225 

H ft* 

SCNTRL 

226 

Jbia 

SCNTRL 

227 

SCNTRL 

228 

SCNTRL 

229 

SCNTRL 

230 

SCNTRL 

23  1 

SCNTRL 

232 

SCNTRL 

233 

SCNTRL 

234 

SCNTRL 

235 

SCNTRL 

236 

SCNTRL 

237 

SCNTRL 

23B 

SCNTRL 

233 

SCNTRL 

240 

SCNTRL 

241 

SCNTRL 

24  2 

5CNTRL 

243 

SCNTRL 

244 

SCNTRL 

245 

SCNTRL 

245 

SCNTRL 

247 

SCNTRL 

248 

SCNTRL 

249 

scntrl 

250 

SCNTRL 

251 

SCNTRL 

252 

scntrl 

253 

scntrl 

254 

SCNTRL 

255 

SCNTRL 

256 

GEOHT  4 


00224 

00225 
00225 
00227 
0022B 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 
00233 

00239 

00240 


0024  1 

00242 

00243 

00244 

00245 
00245 

00247 

00248 

00249 

00250 

0025  1 

00252 

00253 

00254 

00255 
00255 

00257 

00258 

00259 

00260 
0026; 
00262 

00263 

00264 

00265 
002SS 
00267 
00263 

00269 

00270 
0027  1 
00272 

00273 

00274 

00275 

00276 
00277 


00278 

00279 

00230 

00231 

00232 
0 0233 

00284 

00285 
00  286 


COMMON  /RDPARM/ 
COMMON  /RDPARM/ 

F2DT 

SCNTRL  257 

H1DT 

SCNTRL  258 

COMMON  /RDR ARM/ 

H2DT 

SCNTRL  259 

COMMON  /RDPARM / 

PKSTD 

SCNTRL  260 

COMMON  /RDPARM/ 

P KTOP 

SCNTRL  26  T 

COMMON  /RDPARM/ 

RLAT  (461 

SCNTRL  262 

COMMON  /RDPARM/ 

RLATD  (46) 

SCNTRL  263 

COMMON  /RDPARM/ 

ROCPDT 

SCNTRL  264 

COMMON  /RDPARM/ 

ROCPP 1 

SCNTRL  265 

COMMON  /RDPARM/ 

SGNP  (2) 

SCNTRL  266 

COMMON  /RDPARM/ 

SINL  (46) 

SCNTRL  267 

COMMON  /RDPARM/ 

SINLON  (72) 

SCNTRL  268 

COMMON  /RDPARM/ 

thstd 

SCNTRL  269 

COMMON  /RDPARM/ 

THST02 

SCNTRL  270 

COMMON  /RDPARM/ 

WSAVE  ( 159  > 

SCNTRL  271 

COMMON  /RDPARM/ 

DSIG  (91 

SCNTRL  272 

COMMON  /RDPARM/ 

SIG  I9» 

SCNTRL  273 
SCNTRL  274 

*■  r * 

SQANDQT  2 

GLOBAL  MODEL  SURFACE  FIEL05 

SQANDQT  3 

COMMON  / QANDQT / 

QS(72  t 19 . 46 ) 

SQANDQT  4 
SQANDQT  5 

DIMENSION 

PH I S ( 1368 , 1 J 

SQANDQT  6 

DIMENSION 

SMTH ( 1363,23) 

SQANDQT  7 

DIMENSION 

ALBEDO ( 1 368 . 1 > 

SQANDQT  8 

DIMENSION 

GTf  t 368 , 1 > 

SQANDQT  9 

DIMENSION 

GVH 1363, 1 > 

SQANDQT  10 

DIMENSION 

TSf  1368  , t ) 

SQANDQT  11 

DIMENSION 

SHSf 1363 . 1 ) 

SQANDQT  12 

DIMENSION 

P ( 7 2 , 19,1) 
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DIMENSION 
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DIMENSION 
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SIMPLE 
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REAL 
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RCNTRL 

REAL 

SIMPLE 
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SIMPLE 
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REAL 

SIMPLE 
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REAL 

SIMPLE 
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SIMPLE 
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REAL 
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SIMPLE 
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SIMPLE 
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SIMPLE 
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SIMPLE 
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SIMPLE 
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RDPARM 

REAL 

SIMPLE 
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RDPARM 

REAL 

SIMPLE 
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RDPARM 

REAL 

SIMPLE 
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CQN3DT 

RDPARM 

REAL 

SIMPLE 
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C0N4 

RDPARM 

REAL 

SIMPLE 
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REAL 

SIMPLE 

214 

CONS 

RDPARM 

REAL 

SIMPLE 
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CONV 
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REAL 

ARRAY 

31  1 

COSD 

RCNTRL 

REAL 

SIMPLE 
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COSL 
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REAL 

ARRAY 
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REAL 

ARRAY 
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REAL 

SIMPLE 
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RDPARM 

REAL 

SIMPLE 
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CCNTRL 

REAL 

ARRAY 

12 

CGU 

CCNTRL 

real 

ARRAY 

13 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 
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RCNTRL 

REAL 

SIMPLE 
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RCNTRL 

REAL 

SIMPLE 
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DIABAT 
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REAL 

ARRAY 
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SGEOHT 

SGEOHT 
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REAL 
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RDPARM 

REAL 

ARRAY 
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RCNTRL 

REAL 

SIMPLE 
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RDPARM 

REAL 

ARRAY 
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RDPARM 

REAL 

ARRAY 
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RDPARM 

REAL 

ARRAY 
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RCNTRL 

REAL 

SIMPLE 
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EF  LUX 

OANDQT 

REAL 

ARRAY 
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EPS 

RCNTRL 

REAL 

SIMPLE 
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RCNTRL 

REAL 

SIMPLE 
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REAL 

SIMPLE 
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RDPARM 

REAL 

SIMPLE 
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REAL 

ARRAY 
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ARRAY 
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FUSION 
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REAL 

ARRAY 
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1 
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RCNTRL 

REAL 

SIMPLE 
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RCNTRL 

REAL 

SIMPLE 
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RCNTRL 

REAL 

SIMPLE 
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GT 

QANDQT 

REAL 

ARRAY 
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263 

GW 

QANDQT 

REAL 

ARRAY 
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RDPARM 

REAL 

SIMPLE 
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RDPARM 

REAL 

SIMPLE 
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RCNTRL 

REAL 

SIMPLE 
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HEAT  V/ 

RCNTRL 

REAL 

SIMPLE 
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QANDQT 

REAL 

ARRAY 
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SIMPLE 
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ICNTRL 

INTEGER 

ARRAY 
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INTEGER 

SIMPLE 
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INTEGER 

ARRAY 
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INTEGER 
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25 

26 

27 

36 

37 

38 

47 

48 

49 

58 

59 

60 

69 
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integer 

SIMPLE 
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ICNTRL 

INTEGER 

SIMPLE 
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ICNTRL 

INTEGER 
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INTEGER 
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INTEGER 
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INTEGER 
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INTEGER 
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INTEGER 
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ICNTRL 

INTEGER 
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INTEGER 
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INTEGER 
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INTEGER 
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ICNTRL 

INTEGER 
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89 
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ICNTRL 

INTEGER 
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84 

IROD 

IDPARM 

INTEGER 

SIMPLE 
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LDPARM 
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SIMPLE 
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ICNTRL 

INTEGER 

UNKNOWN 
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ITMIN 

ICNTRL 

INTEGER 
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77 

J 

INTEGER 
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ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOB 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCN7RL 
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SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

35 

K 

INTEGER 

SIMPLE 

3 16/S 

327 

328 

329 

347 

347 

348 

348 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KL  I GW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

integer 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

simple 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 
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L 

INTEGER 

SIMPLE 
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324 

324 

325 

325 

325 
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328 

328 

329 

329 
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360 

360 

361 
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364 
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365 

367 

36S 

36S 
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377 

377 
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LC 

LCNTRL 

LOGICAL 

ARRAY 
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1 44 

LC0 

LCNTRL 

LOGICAL 

SIMPLE 

92 

M3 

1 44 

LCNTRL 

INTEGER 

unknown 

92 

93 

94 

95 

96 

97 

98 

99 

103 

1 04 

ldiabat 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

14  1 

LDPARM 

INTEGER 

UNKNOWN 

200 

20  1 

202 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

t 10 

135 

L FUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

LOGS  R 

ICNTRL 

INTEGER 

SIMPLE 

42 

L OMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

115 

140 

LP  I 

INTEGER 

SIMPLE 

340/S 

34  1 

34  1 

376/S 

377 

377 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

L PRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 OS 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

1 03 

105 

1 06 

107 

1 OB 

1 09 

110 

1 1 1 

128 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

104 

1 15 

1 16 

1 17 

129 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

138 

LRAD5W 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

112 

137 

LTMAX 

LCNTRL 

LOGICAL 

unknown 

106 

131 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

LX 

INTEGER 

SIMPLE 

338/C 

339 

374/  C 

375 

M 

INTEGER 

SIMPLE 

315/S 

317 

322 

324 

325 

326 

328 

337 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MAT5NX 

ICNTRL 

INTEGER 

SIMPLE 

44 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MJ 

IDPARM 

INTEGER 

ARRAY 

197 

315 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

N 

INTEGER 

SIMPLE 

1 

322 

324 

325 

326 

328 

337 

342 

NB 

358 

360 

361 

362 

364 

373 

378 

ICNTRL 

INTEGER 

SIMPLE 

50 

No 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NOOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

ND5HF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

NHMS0 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMS1 

rDPARM 

INTEGER 

SIMPLE 

1 98 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

363 


326 

332 

347 

362 

35B 


1 00 


t 12 


342 


346 


s 

O 

pa 


K* 

O 


354  365 


326  327 
333  339 
348  348 
362  3 63 
369  375 


101  102 


1 13 


346 


1 14 


sg 


‘O 

o 

o 


o 

* -a* 


<o 

t* 

F- 


* j 


i !■  ? 

£v 


34S  352 


NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

6 1 

32  1 

336 

336 

337 

339 

344 

352 

357 

372 

373 

375 

NLAYWM 

ICNTRL 

INTEGER 

SIMPLE 

62 

338 

374 

NLA  YN 

INTEGER 

SIMPLE 

352/S 

NLAYP1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLE  V 

ICNTRL 

INTEGER 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

199 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINI T 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

QANDQT 

REAL 

ARRAY 

234 

293 

OMEGA2 

rcntrl 

REAL 

SIMPLE 

1ST 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

358 

360 

362 

364 

PHI 

QANDQT 

REAL 

ARRAY 

283 

292 

346./  S 

373/S 

378/S 

FHIBAR 

REAL 

SIMPLE 

3 18/S 

329/S 

329 

333/S 

333 

336 

354/S 

365/S 

365 

369/S 

372 

PHIL 

REAL 

SIMPLE 

336 /S 

337 

341/S 

34  1 

342 

372/5 

373 

377/S 

377 

378 

PHIM 

QMSAVE 

REAL 

ARRAY 

308 

PHIP 

QPOLES 

REAL 

ARRAY 

302 

337/5 

342/S 

34G 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

316 

354 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  ISO 

RCNTRL 

REAL 

SIMPLE 

163 

PI2 

RCNTRL 

REAL 

SIMPLE 

164 

PI MEAN 

RCNTRL 

REAL 

SIMPLE 

1 66 

PIT 

QMSAVE 

REAL 

ARRAY 

310 

P K 

// 

REAL 

ARRAY 

313 

324/S 

325 

326 

332 

332 

336 

34  1 

34  1 

360/S 

362 

368 

368 

372 

377 

377 

PK  1 

REAL 

SIMPLE 

319/S 

324 

330/S 

35S/S 

360 

366  / S 

PK  2 

REAL 

SIMPLE 

323/S 

324 

330 

359/S 

360 

366 

PKOt 

REAL 

SIMPLE 

320/S 

333 

334/S 

35G/S 

369 

370/S 

PKD2 

REAL 

SIMPLE 

332/S 

333 

334 

336 

36B/5 

369 

370 

372 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

336 

372 

PKTOP 

RDPARM 

REAL 

SIMPLE 

228 

PL2 

REAL 

SIMPLE 

322/S 

323 

323 

358.'  S 

359 

359 

PLEVS 

RCNTRL 

REAL 

ARRAY 

ISO 

PM 

QMSAVE 

REAL 

ARRAY 

303 

PP 

QPOLES 

REAL 

ARRAY 

297 

322 

324 

326 

328 

PREACC 

QANDq  T 

REAL 

ARRAY 

25  2 

27  0 

PRECON 

QANDQT 

REAL 

ARRAY 

2S3 

27  1 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

P5MJN 

RCNTRL 

REAL 

SIMPLE 

168 

PSTD 

RCNTRL 

REAL 

SIMPLE 

1 65 

PTOP 

RCNTRL 

REAL 

SIMPLE 

169 

319 

3 T 9 

322 

326 

355 

355 

358 

362 

PV 

QMSAVE 

REAL 

ARRAY 

309 

PZERO 

RCNTRL 

REAL 

SIMPLE 

186 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 18 

QANDQT 

REAL 

UNKNOWN 

241 

27B 

OBEG 

lcntrl 

LOGICAL 

SIMPLE 

94 

T 19 

QDAY 

LCNTRL 

logical 

SIMPLE 

95 

120 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

96 

t 2 1 

QMSAVE 

REAL 

UNKNOWN 

303 

304 

305 

306 

307 

308 

309 

310 

3 IT 

312 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

96 

123 

QPOLES 

REAL 

UNKNOWN 

297 

298 

299 

300 

301 

302 

QRSH 

LCNTRL 

logical 

SIMPLE 

102 

127 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

126 

QS 

QANDQT 

REAL 

ARRAY 

241 

260 

26  1 

262 

263 

264 

265 

266 

267 

26B 

270 

27  1 

272 

273 

274 

275 

276 

277 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

QU 

QANDQT 

REAL 

ARRAY 

278 

288 

289 

290 

291 

292 

293 

294 

295 

296 

RADE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

REAL 

ARRAY 

287 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

258 

276 

RADSW 

QANDQT 

REAL 

ARRAY 

286 

295 

RADSWG 

QANDQT 

REAL 

ARRAY 

257 

2^5 

372 


353 


36  t 


269 


ORIGINAL  PASS  19 

OF  POOR  QUALITY  GEOHT 


a 

M 

o 

s 


RC 

RCNTRL 

REAL 

array 

T 87 

1 88 

RCO 

RCNTRL 

REAL 

SIMPLE 

1 45 

187 

IBB 

to 

RCNTRL 

REAL 

UNKNOWN 

145 

146 

147 

1 40 

149 

150 

151 

152 

1 S3 

154 

155 

156 

157 

158 

159 

160 

16  1 

162 

1 63 

1 64 

165 

166 

167 

168 

169 

1 70 

1 7 1 

172 

173 

1 74 

1 75 

176 

1 77 

178 

179 

180 

181 

182 

1 83 

184 

185 

186 

RDP ARM 

REAL 

UNKNOWN 

206 

207 

203 

209 

2 t 0 

21  1 

2 1 2 

213 

214 

215 

216 

2 17 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

RGAS 

RCNTRL 

REAL 

SIMPLE 

1 7 1 

326 

362 

RL  AT 

RDP ARM 

REAL 

ARRAY 

229 

RLATD 

RDP A RM 

REAL 

ARRAY 

230 

ROCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDP A RM 

REAL 

SIMPLE 

231 

ROCP  P 1 

RDP ARM 

REAL 

SIMPLE 

232 

3 24 

360 

RSDIST 

RCNTRL 

real 

SIMPLE 

173 

SD 

QMSAVE 

REAL 

ARRAY 

31  1 

n 

SDAY 

RCNTRL 

REAL 

SIMPLE 

174 

w u 

Npl  ftu 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

“ g 

SGNP 

RDP A RM 

REAL 

ARRAY 

233 

m S 

SH 

QANDQT 

REAL 

ARRAY 

282 

29  1 

u u/ 

SHM 

QMSAVE 

REAL 

ARRAY 

307 

5KP 

QPOLES 

REAL 

ARRAY 

301 

2 

SKS 

QANDQT 

real 

ARRAY 

248 

266 

to  f* 

SIG 

RDP ARM 

real 

ARRAY 

24  0 

326 

326 

362 

362 

StGE 

RCNTRL 

REAL 

ARRAY 

176 

322 

332 

358 

368 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

c:  > 

SINL 

RDP ARM 

REAL 

ARRAY 

234 

2?  £f  j 

SINLON 

rdparm 

REAL 

ARRAY 

235 

r*"  £rD 

SMTH 

QANDQT 

REAL 

ARRAY 

243 

26  1 

SN2FLG 

lcntrl 

LOGICAL 

SIMPLE 

1 00 

1 25 

5,  T 

SOLS 

RCNTRL 

REAL 

SIMPLE 

173 

START 

LDPARM 

LOGICAL 

SIMPLE 

202 

205 

T 

QANDQT 

REAL 

ARRAY 

2B1 

290 

361 

TERM 

REAL 

SIMPLE 

326/S 

327 

328 

362/S 

363 

364 

TERMT 

QMSAVE 

REAL 

ARRAY 

312 

328/S 

329 

34S/S 

348 

364/S 

365 

TERMW 

QMSAVE 

REAL 

ARRAY 

312 

327/S 

347/S 

347 

363/S 

TH 

// 

REAL 

ARRAY 

313 

325/S 

327 

328 

333 

336 

341 

341 

36  1/S 

363 

364 

369 

372 

377 

377 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

327 

363 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

336 

34  1 

372 

377 

TM 

QMSAVE 

real 

ARRAY 

306 

TMAX 

QANDQT 

REAL 

ARRAY 

25  t 

269 

TWIN 

QANDQT 

REAL 

ARRAY 

250 

268 

TP 

QPOLES 

REAL 

ARRAY 

300 

325 

TS 

QANDQT 

REAL 

ARRAY 

247 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

t 79 

U 

QANDQT 

REAL 

ARRAY 

279 

288 

UM 

QMSAVE 

. REAL 

ARRAY 

304 

UP 

QPOLES 

REAL 

ARRAY 

298 

V 

QANDqT 

REAL 

ARRAY 

280 

289 

VER 

CCNTRL 

CHAR'S 

SIMPLE 

10 

23 

VM 

QMSAVE 

real 

ARRAY 

305 

VP 

QPOLES 

REAL 

ARRAY 

233 

W5AVE 

RDPARM 

REAL 

ARRAY 

23B 

X LABEL 

CCNTRL 

CHAR'S 

array 

1 1 

24 
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00001 


c* 

c 

c 
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FUNCTION  INCYMD  (NYMD) 


PURPOSE 

INCREMENTS  THE  YEAR -MONTH-DAY  BY  ONE  DAY 
OR  COMPUTES  NUMBER  OF  DAYS  IN  THE  YEAR  (JULIAN  DAY) 


SINCYMD 

•SINCYMD 

SINCYMD 

SINCYMD 

SINCYMD 


STATEMENT  LABEL  MAP 


C 

CALLED  BY  ONLY 

SINCYMD 

7 

* t 

c 

SINCYMD 

a 

! * 

c 

USAGE 

SINCYMD 

9 

S [ 

c 

SINCYMD 

10 

' ' ’v 

c 

ARGUMENTS  DESCRIPTION 

SINCYMD 

1 1 

J J 

c 

. NYMD  CURRENT  DATE  IN  YYMMDD  FORMAT 

SINCYMD 

12 

c 

INCYMD  CURRENT  DATE  PLUS  ONE  DAY  IN  YYMMDD  FORMAT 

SINCYMD 

13 

c 

MODYMD  CURRENT  JULIAN  DAY 

SINCYMD 

14 

c 

SINCYMD 

15 

; 

c 

subprograms  needed 

SINCYMD 

16 

c 

NAME  DESCRIPTION 

SINCYMD 

17 

i 

3 

c 

NONE 

SINCYMD 

IB 

£ 

c 

SINCYMD 

19 

3 

c 

RECORD  OF  MODIFICATIONS 

SINCYMD 

20 

3 l 

c 

EASED  ON  OLD  VERSION  S. 

SINCYMD 

2 1 

f j 

c 

SINCYMD 

22 

c 

7DATE  7 ? PROGRAMMER  7 ^DESCRIPTION  OF  MOD  I F I CAT  I ONS*7 

SINCYMD 

23 

c 

05/04/83  RAMESH  THIS  PART  AND  COMMENTS 

SINCYMD 

24 

j ; 

c 

SINCYMD 

25 

: , 

c 

REMARKS: 

SINCYMD 

2G 

c 

( TJ  ENTRY  MODYMD 

SINCYMD 

27 

c 

f 2)  ^MACHINE  DEPENDENT  FEATURES*  REFERENCES*  ERROR  RETURNS « ETC. 

7 SINCYMD 

28 

| , 

c 

SINCYMD 

29 

c * 

* 5 I NCYMD 

3 0 

9* 

M/A-COM  SIGMA  DATA  INC*  NASA  - 

G S F C 

* SINCYMD 

3 1 

< 

c * 

*SI NCYMD 

32 

00002 

INTEGER  NDPMt  1 2 ) /3  1 . 2B  *31 , 30 ,31 , 30*3  J , 3 1 , 30  *31  *30 , 31 / 

SINCYMD 

33 

00003 

LOGICAL  LEAP 

SINCYMD 

34 

4 

00004 

DATA  NYOO/ISOO/ 

ST NCYMD 

35 

00005 

LEAP  f N Y } = MOD  f NY  * 4 ) . EQ  . 0 .AND.  (NY . NE  * 0 .OR.  MOOTNYOO, 

400) . EO, 0) 

SINCYMD 

36 

c 

SINCYMD 

37 

■ft  ■ 

00006 

NY  = NYMD/ 10000 

SINCYMD 

38 

> ! 

00007 

NM  * MOD (NYMD, 10000)/ 100 

SINCYMD 

39 

I1'  * i 

00008 

ND  = MOO ( NYMD* 100 t 

SINCYMD 

40 

f U : 

c 

SINCYMD 

4 I 

tf 

00009 

ND  = ND  + 1 

SINCYMD 

42 

ij ' 

ooo  to 

IF  (ND. LE .NDPM(NM) » GO  TO  20 

SINCYMD 

43 

i i 

0001  t 

IF  (ND.E0.29  .AND.  NM.EQ.2  .AND.  LEAP ( N Y ) 1 GO 

TO  20 

SINCYMD 

44 

00012 

ND  “ 1 

SINCYMD 

45 

iv 

00013 

NM  = NM  * 1 

SINCYMD 

46 

00014 

IF  (NM.LE .12)  GO  TO  20 

SINCYMD 

47 

•,  i 

00015 

NM  = 1 

SINCYMD 

48 

i T 

00016 

NY  - NY  + 1 

SINCYMD 

49 

!]' 

c 

SINCYMD 

50 

000  1 7 

20  CONTINUE 

SINCYMD 

5 1 

, 

000  18 

INCYMD  * NY- 10000  * NM*100  * ND 

SINCYMD 

52 

i 

000  19 

RETURN 

SINCYMD 

53 

? • 

c 

SINCYMD 

54 

* 

00020 

ENTRY  MODYMD  (NYMD) 

SINCYMD 

55 

i 1 

00021 

NY  “ NYMD / 1 OOO 0 

SINCYMD 

56 

00022 

NM  = MOD f NYMD * 10000 )/ 100 

SINCYMD 

57 

00023 

ND  = MOD (NYMD, 100) 

SINCYMD 

58 

0007.4 

c 

SINCYMD 

59 

40  CONTINUE 

SINCYMD 

60 

j 

00025 

IF  (NM. LE . 1 ) GO  TO  60 

SINCYMD 

61 

E 

00026 

NM  = NM  - 1 

SINCYMD 

62 

| 

00027 

ND  = ND  + NDPM(NM) 

SINCYMD 

63 

k 

00  028 

IF  (NM.EQ.2  .AND.  LEAP(NYJ)  ND  = ND  * 1 

SINCYMD 

64 

Hi 

00029 

GO  TO  40 

SINCYMD 

65 

a ! 

c 

SINCYMD 

66 

fj  | 

00030 

60  CONTINUE 

SINCYMD 

67 

j ; 

00031 

MODYMD  = ND 

SINCYMD 

6B 

L f 

0 0032 

RETURN 

SINCYMD 

69 

$ 

00033 

END 

SINCYMD 

70 
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SUBROUTINE  INITSD 


PURPOSE 

INITIALIZE  MODEL  GLOBAL  DIAGNOSTIC  ARRAYS. 
CALLED  BY  MAIN  f GWSGCM ) ONLY 


USAGE 


ARGUMENTS  DESCRIPTION 
NONE 


DIAGNOSTIC 

1 

2 

3 

4 

5 

6 

7-15 

IB 

17-25 

26-34 

35 

36-44 

45 

46 

47-50 


DESCRIPTION 

MININUM  DAILY  SURFACE  TEMPERATURE 
MAXIMUN  DAILY  SURFACE  TEMPERATURE 
TOTAL  ACCUMULATED  PRECIPITATION 
CONVECTIVE  PRECIPITATION 
SENSIBLE  HEAT  FLUX 
EVAPORATIVE  FLUX 

SOLAR  RADIATION  (9  SIGMA  LEVELS) 
SOLAR  RADIATION  AT  GROUND 
DIABATJC  HEATING  <9  SIGMA  LEVELS) 
VERTICAL  VELOCITY  <9  SIGMA  LEVELS) 
HEAT  STORAGE  IN  FREEZING  AT  GROUND 
LONG  WAVE  RADIATION  (9  SIGMA  LEVELS) 
LONG  WAVE  RADIATION  AT  GROUND 
CLOUD  FLAGS 
SPARE 


subprograms  needed 

NAME  DESCRIPTION 

NONE 


RECORD  OF  MODIFICATIONS 
BASED  ON  OLD  VERSION  3 , 


7 DATE? 
05/ 19/B3 


^programmer-? 

RAMESH 


^DESCRIPTION  OF  MODIFICATIONS'? 
THIS  PART  AND  COMMENTS 


REMARKS: 

( 1)  7MACHINE  DEPENDENT  FEATURES*  REFERENCES,  ERROR  RETURNS  r ETC 


SINITSD 
♦-SINITSD 
SINITSD 
SINITSD 
SINITSD 
SINITSD 
SINITSD 
SINITSD 
SINITSD  10 
SINITSD  T 1 
SINITSD  12 
SINITSD  13 
SINITSD  14 
SINITSD  15 
SINITSD  16 
SINITSD  17 
SINITSD  IB 
SINITSD  19 
SINITSD  20 
SINITSD  21 
SINITSD  22 
SINITSD  23 
SINITSD  24 
SINITSD  25 
SINITSD  26 
SINITSD  27 
SINITSD  28 
SINITSD  23 
SINITSD  30 
5INITSD  31 
SINITSD  32 
SINITSD  33 
SINITSD  34 
SINITSD  35 
SINITSD  36 
SINITSD  37 
SINITSD  33 
SINITSD  39 
SINITSD  40 
7SINITSD  41 
SINITSD  42 


c+> 

* ‘SINITSD 

43 

c * 

M/A  - COM  S 

IGMA  DATA  INC.  NASA  - GSFC 

♦SINITSD 

44 

£**  + ***■  **+***-*»*-»>i*-****r****ir**i»--*»*»»***'*#*»*****»*'»A-»»****»-****»*  *-  + + * * 

* -SINITSD 

45 

C 

SCNTRL 

2 

c 

CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

3 

c 

= - = = = = = = - = = ^ = ^ = ^ 

SCNTRL 

4 

00002 

COMMON  /CCNTRL / 

cco 

SCNTRL 

5 

00003 

COMMON  /CCNTRL/ 

ADATE 

SCNTRL 

6 

00004 

COMMON  /CCNTRL/ 

ATIME 

SCNTRL 

7 

00005 

COMMON  /CCNTRL/ 

die 

SCNTRL 

8 

00006 

COMMON  /CCNTRL/ 

JOB 

SCNTRL 

9 

00007 

COMMON  /CCNTRL/ 

CCSP06 
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EQUIVALENCE  (QSU  ,6,  1)  ,TS(1  ,1  M 

EQUIVALENCE  (QS( I ,7, 1 ) , SHS ( 1 , 1 ) ) 

EQUIVALENCE  t QS ( 1 . 8 , 1 ) , P (1 , 1 , 1 ) ) 

EQUIVALENCE  ( QSf 1.10,1) ,TMINC 1,1)) 

EQUIVALENCE  ( QS ( 1 , 1 T , 1 ) , TMAX (1 , 1) ) 

EQUIVALENCE  (QSf 1 , 12, 1 ) , PREACC < 1,1)) 

EQUIVALENCE  ( QS (1,13,1) ,PREUON( 1,1)) 

EQUIVALENCE  (QS(  1 , 14 t 1 ) , HFLUX ( 1 tT) ) 

EQUIVALENCE  ( QSf  1 T IS  , 1 ) , EFLUX(  1,1)) 

EQUIVALENCE  ( QS  M , 1 6 , 1 ) , FUSION ( 1 . 1 ) J 


SCNTRL  242 
SCNTRL  243 
SCNTRL  244 
SCNTRL  245 
SCNTRL  246 
SCNTRL  247 
SCNTRL  24B 
SCNTRL  249 
SCNTRL  250 
SCNTRL  251 
SCNTRL  252 
SCNTRL  253 
SCNTRL  254 
SCNTRL  255 
SCNTRL  256 
SCNTRL  257 
SCNTRL  258 
SCNTRL  259 
SCNTRL  260 
SCNTRL  261 
SCNTRL  262 
SCNTRL  263 
SCNTRL  264 
5CNTRL  265 
SCNTRL  266 
SCNTRL  267 
SCNTRL  268 
SCNTRL  269 
SCNTRL  270 
SCNTRL  271 
SCNTRL  272 
SCNTRL  273 
SCNTRL  274 
SQANDQT  2 
SQANDQT  3 
SQANDQT  4 
SOANDQT  5 
SQANDQT  6 
SQANDQT  7 
SQANDQT  8 
SQANDQT  9 
SQANDQT  10 
SQANDQT  1 1 
SQANDQT  12 
SQANDQT  13 
SQANDQT  14 
SQANDQT  15 
SQANDQT  16 
SQANDQT  17 
SQANDQT  18 
SQANDQT  19 
SQANDQT  20 
SQANDQT  21 
SQANDQT  22 
SQANDQT  23 
SQANDQT  24 
SQANDQT  25 
SQANDQT  26 
SQANDQT  27 
SQANDQT  28 
SQANDQT  29 
SQANDQT  30 
SQANDQT  31 
SQANDQT  32 
SOANDQT  33 
SQANDQT  34 
SQANDQT  35 
SQANDQT  36 
SQANDQT  37 
SQANDQT  38 
SQANDQT  39 


INITSD  5 


ITtt  KT 


1 ’ -M, 


00275 

00275 

00277 


00279 
002B0 
0028  t 
00  282 
0 0 283 

00284 

00285 

00286 

00287 

00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( QS< 1 * 17* 1 ) , RAD5WG ( 1 , 
{ QS (1,18,1)  , RADLWG ( 1 , 
<QS< 1 , 19, 1 ) , I CLOUD ( 1 , 


00298 

00299 

00300 
0030  t 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 

00310 
003  1 1 

00312 

00313 

00314 
003  15 
00316 


GLOBAL  MODEL  UPPER-AIR  FIELDS 

COMMON  / QANDQT / QU ( 72 . 9 , 1 4 , 46 ) 


DIMENSION 

DIMENSION 

dimension 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


U(72, 9 , 1 4 , t > 

V ( 72  ^ 9 ,14.1) 
T(72, 9 , 14, 1 > 

SH (72,9,14,1) 

PHI (72,9, 14,1? 
OMEGA  172,  126,1) 
01 ABAT ( 72 ,126,1) 
RADSW172, 126,1) 
RADLWf 72, 126, 1 ) 

f QUM  , 1 , 1 , 1)  ,U{  1 


EQUIVALENCE  ( QUM  , 1 , 1 , f ) ,Uf  1 

EQUIVALENCE  ( QU ( t , 1 , 3 , 1 ) , V <1  , 1 , 1 . T ) 

EQUIVALENCE  t QU t 1 , 1 , 5 , 1 ) r T ( 1 t 1 , I , U 

EQUIVALENCE  ( QU  t 1 , 1 , 7 , 1)  , SH f 1 , 1 , 1 , 1 

EQUIVALENCE  { QU  t 1 , 1 . 9 , 1 J , PHI  { 1 , I , 1 , 

EQUIVALENCE  { QU M , 1 , 1 1 , 1 ) , OMEGA ( 1 , 1 

EQUIVALENCE  t QU { 1 . 1 , 1 2 . 1 ) , D I ABAT ( 1 , 

EQUIVALENCE  ( QU  ( 1,1,13,1) ,RADSW( 1 , 1 

EQUIVALENCE  < QUM  , 1 , 14 . 1 > . RADLWM  , 1 

C 

C + + * 

C DEBUG 
10000  CONTINUE 

c **'  + CYBER  SCALAR  VERSION  04,001 

C *+++  CYBER  SCALAR  VERSION  04,000 

C ++++  CYBER  SCALAR  VERSION  00 


1 ) ) 

T > ) 
t ) ) 

. M ) 
t , n ) 

, i , n > 


C DEBUG  5BEGDEB  2 

10000  CONTINUE  SEEGDEB  3 

C + * ' * CYBER  SCALAR  VERSION  04,001  INPUT, I0Q  SBEGDEB  4 

C *+++  CYBER  SCALAR  VERSION  04,000  SBEGDEB  5 

C ++■*+  CYBER  SCALAR  VERSION  00  SBEGDEB  6 

C£££SSS5S££S$5SSS£SS£SSS£SSSS$SSSSSS$£SSS£S$S$£$£SS£S£SS££S5S$5SSS£SS£SS5BEGDEB  7 
DO  20  d=  1 , JNP  SINITSD  50 

DO  20  1=1, IM  SINITSD  51 


SQANDQT  40 
SQANDOT  41 
SQANDQT  42 
SQANDQT  43 
SQANDQT  44 
SQANDOT  45 
SQANDQT  46 
SQANDQT  47 
SQANDQT  4S 
SQANDQT  49 
SQANDQT  50 
SQANDQT  51 
SQANDQT  52 
SQANDQT  53 
SQANDQT  54 
SQANDQT  55 
SQANDQT  56 
SQANDQT  57 
SQANDQT  58 
SQANDQT  59 
SQANDQT  GO 
SQANDQT  G 1 
SQANDQT  G2 
SQANDQT  S3 
SQANDQT  64 
SQANDQT  65 
SQANDQT  G6 
SINITSD  48 
SBEGDEB  2 
SEEGDEB  3 
SBEGDEB  4 
SBEGDEB  5 
SBEGDEB  G 


IF  < QDA Y ) 

IF  (QDAY)  TMAX ( I t J ) = C 

PREACCtI , J ) = 0 . 

PRECON { I , d ) - O. 

HFLUXfI.d)  = 0, 

E F LUX  f I , J)  = 0* 

F USI ON ( I , J ) = Q, 

I CLOUD  I I , J ) = 0. 

RADSWG  t I t J ) = 0. 

DO  10  L = 1 , NL AY 
RADSW  C I , L , d ) = 0, 

DIABATtI tL, J)  = 0. 

OMEGA  { I , L , J ) = O, 

CONTINUE 
CONTINUE 
RETURN 


TMIN ( I , J ) 


SINITSD  52 
SINITSD  53 
SINITSD  54 
SINITSD  55 
SINITSD  5S 
SINITSD  57 
SINITSD  58 
SINITSD  59 
SINITSD  60 
SINITSD  61 
SINITSD  62 
SINITSD  63 
SINITSD  64 
SINITSD  65 
SINIT5D  6G 
SINITSD  67 
SINITSD  68 


STATEMENT  LABEL  MAP 

--LABEL DEFINED- --REFERENCES 

10  313  309 

10000  297 

20  314  298 


VARIABLE  MAP 


NAME 

- - -BLOCK 

• — TYPE 

--CLASS 

REFERENCES 

ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

3 

16 

ADLDP 

R DP ARM 

REAL 

SIMPLE 

206 

ALBEDO 

QANDQT 

REAL 

ARRAY 

244 

262 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

ATXME 

CCNTRL 

CHAR  +8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

185 

A=ARGLIST,  C=CTRL  OF  DO,  I =DATA  INIT,  R- READ , S“STORE , W=WRITE 
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; fEi!”- 1 


\ 1 

i 


i 


cc 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

cco 

CCWTRL 

CHARTS 

SIMPLE 

2 

1 4 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

4 

CCSPOS 

CCNTRL 

CHAR -a 

SIMPLE 

20 

CGSP07 

CCWTRL 

CHAR+S 

SIMPLE 

a 

21 

CCSPOS 

CCNTRL 

CHARTS 

SIMPLE 

9 

22 

CONT 

RDPARM 

REAL 

SIMPLE 

207 

COW  3 DT 

RDPARM 

REAL 

SIMPLE 

206 

CDN2 

RDPARM 

REAL 

SIMPLE 

209 

COW2DT 

RDPARM 

REAL 

SIMPLE 

210 

COW3 

RDPARM 

REAL 

SIMPLE 

21  1 

CON3DT 

RDPARM 

REAL 

SIMPLE 

212 

CON4 

RDPARM 

REAL 

SIMPLE 

213 

C0N40T 

RDPARM 

REAL 

SIMPLE 

214 

cows 

RDPARM 

REAL 

SIMPLE 

215 

COSO 

RCNTRL 

real 

SIMPLE 

148 

COSL 

RDPARM 

REAL 

ARRAY 

2 1 6 

COSLON 

RDPARM 

REAL 

ARRAY 

217 

CP 

RCWTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

218 

COS 

CCNTRL 

REAL 

ARRAY 

12 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

days py 

RCWTRL 

REAL 

SIMPLE 

150 

DEC 

RCNTRL 

REAL 

SIMPLE 

IS  1 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DIABAT 

OANDQT 

REAL 

array 

2SS 

294 

31  1 /S 

DIST 

RCWTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCWTRL 

REAL 

SIMPLE 

15E 

DXP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

221 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

EFLUX 

QANDOT 

REAL 

ARRAY 

255 

273 

305/S 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

EPSFAC 

RCWTRL 

REAL 

SIMPLE 

184 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F20T 

RDPARM 

REAL 

SIMPLE 

224 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

200 

203 

FUSION 

QANDq  T 

real 

ARRAY 

256 

274 

306/S 

GN£M 

RCWTRL 

real 

SIMPLE 

158 

GWU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAY 

RCNTRL 

REAL 

simple 

160 

GT 

QANDQ T 

REAL 

ARRAY 

245 

263 

GW 

QAWDQT 

REAL 

ARRAY 

246 

264 

H t DT 

RDPARM 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

KEATI 

RCNTRL 

REAL 

simple 

182 

HEATW 

RCNTRL 

REAL 

SIMPLE 

181 

HF  LUX 

QANDQT 

REAL 

ARRAY 

254 

272 

304/S 

I 

INTEGER 

SIMPLE 

299/C 

300 

301 

3 i 1 

312 

IC 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

91 

I CLOUD 

QANDQT 

INTEGER 

ARRAY 

259 

277 

307/S 

ICWTRL 

INTEGER 

UNKNOWN 

25 

26 

27 

36 

37 

38 

47 

48 

49 

58 

59 

60 

69 

70 

71 

ICSPS3 

rcNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

integer 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

189 

190 

191 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

190 

IEFLUX 

ICWTRL 

INTEGER 

UNKNOWN 

82 

5 6 7 S 9 10  11  12 


302 

303 

304 

305 

28 

29 

30 

31 

39 

40 

41 

42 

50 

5 t 

52 

63 

61 

62 

63 

64 

72 

73 

74 

75 

192 

193 

194 

195 

306 

307 

308 

310 

32 

33 

34 

35 

43 

44 

45 

46 

54 

55 

56 

57 

65 

65 

67 

68 

76 

196 

197 

19S 

199 

3 

W 

H 

cc 

o 


ifusion 

ICNTRL 

INTEGER 

UNKNOWN 

83 

IHFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

81 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

85 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

189 

IM 

ICNTRL 

INTEGER 

SIMPLE 

25 

299 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAY 

191 

INIT5D 

SUBROUTINE 

1 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPRHACC 

ICNTRL 

integer 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

1Q5 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

I QU 

ICNTRL 

INTEGER 

ARRAY 

76 

S7 

SB 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRAD5WG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

20  1 

204 

UMAX 

ICNTRL 

INTEGER 

UNKNOWN 

7B 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

J 

INTEGER 

SIMPLE 

298/C 

300 

301 

311 

312 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

JIG 

CCNTRL 

CKAR*3 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

298 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHARTS 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KL  I ALE? 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

integer 

simple 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

K5 

ICNTRL 

INTEGER 

SIMPLE 

40 

K5TEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

41 

L 

INTEGER 

SIMPLE 

309/C 

310 

31  1 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

logical 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

103 

104 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

116 

141 

LDPARM 

INTEGER 

UNKNOWN 

200 

20  1 

202 

LEfLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

no 

135 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 4 

139 

LOG8R 

ICNTRL 

INTEGER 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

115 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 03 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 

105 

106 

128 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

104 

1 15 

116 

LRADLWO 

LCNTRL 

LOGICAL 

UNKNOWN 

113 

138 

LRAD5W 

LCNTRL 

LOGICAL 

UNKNOWN 

117 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

t 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

MAT5UN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MJ 

IDPARM 

INTEGER 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

79  80  a 1 82  83  84  85  SB 

89 


302  303  304  305  306  307  308  3t0 


312 

95  9B  97  98  99  100  101  102 


107  10S  109  110  111  112  113  114 

117  129 


URIGINAL  PAGE  SS 
SD  8 OF  POOR  QUALITY 


M5M 

ICNTRL 

INTEGER 

MB 

ICNTRL 

INTEGER 

NO 

ICNTRL 

INTEGER 

NDALT 

ICNTRL 

INTEGER 

NDAV 

ICNTRL 

integer 

NDHOG 

ICNTRL 

INTEGER 

NDOUT 

ICNTRL 

INTEGER 

NDPHY 

ICNTRL 

INTEGER 

NDRSW 

ICNTRL 

integer 

NDSHF 

ICNTRL 

integer 

NDT 

ICNTRL 

INTEGER 

NHMS 

ICNTRL 

INTEGER 

NHMSO 

ICNTRL 

INTEGER 

NHM51 

IDPARM 

INTEGER 

NHMSE 

ICNTRL 

INTEGER 

NKRSH 

ICNTRL 

INTEGER 

nlay 

ICNTRL 

INTEGER 

NLA  YM 1 

ICNTRL 

INTEGER 

NLA YP 1 

ICNTRL 

INTEGER 

NMLEV 

ICNTRL 

INTEGER 

NSOAY 

ICNTRL 

INTEGER 

NSEQ 

ICNTRL 

INTEGER 

NSTEP 

ICNTRL 

INTEGER 

NYMD 

ICNTRL 

INTEGER 

NYMDO 

ICNTRL 

INTEGER 

NYMD  1 

IDPARM 

INTEGER 

NYMDE 

ICNTRL 

INTEGER 

NZINI T 

ICNTRL 

INTEGER 

OMEGA 

QANDQT 

REAL 

OMEGA 2 

RCNTRL 

REAL 

P 

qandqt 

real 

PHI 

QANDQT 

REAL 

PHIS 

QANDQT 

REAL 

PI 

RCNTRL 

REAL 

PI  ISO 

RCNTRL 

REAL 

P I 2 

RCNTRL 

REAL 

PIMEAN 

RCNTRL 

REAL 

PKSTD 

RDP ARM 

REAL 

PKTOP 

RDPARM 

real 

FLEVS 

RCNTRL 

REAL 

PREACC 

QANDQT 

REAL 

PRECON 

QANDQT 

REAL 

PSMAX 

RCNTRL 

REAL 

PSMIN 

RCNTRL 

REAL 

PSTD 

RCNTRL 

real 

PTOP 

RCNTRL 

REAL 

PZERO 

RCNTRL 

REAL 

QALT 

LCNTRL 

LOGICAL 

0.ANDQ7 

REAL 

QBEG 

LCNTRL 

LOGICAL 

QDAY 

LCNTRL 

LOGICAL 

QENO 

LCNTRL 

LOGICAL 

QOUT 

LCNTRL 

LOGICAL 

QPHY 

LCNTRL 

LOGICAL 

QR5H 

LCNTRL 

LOGICAL 

QRSW 

LCNTRL 

LOGICAL 

QS 

QANDQT 

REAL 

QSHF 

LCNTRL 

LOGICAL 

QU 

QANDQT 

REAL 

RACE 

RCNTRL 

REAL 

RADLW 

QANDQT 

REAL 

RADLWG 

QANDQT 

REAL 

RADSW 

QANDQT 

REAL 

RAD5WG 

QANDQT 

REAL 

RC 

RCNTRL 

REAL 

RCO 

RCNTRL 

REAL 

RCNTRL 

REAL 

SIMPLE 

49 

SIMPLE 

50 

SIMPLE 

51 

SIMPLE 

52 

SIMPLE 

53 

SIMPLE 

74 

SIMPLE 

54 

SIMPLE 

55 

SIMPLE 

29 

SIMPLE 

56 

SIMPLE 

57 

SIMPLE 

58 

SIMPLE 

60 

SIMPLE 

1 98 

SIMPLE 

59 

SIMPLE 

48 

SIMPLE 

6 1 

309 

SIMPLE 

62 

SIMPLE 

63 

SIMPLE 

73 

SIMPLE 

64 

SIMPLE 

65 

SIMPLE 

67 

SIMPLE 

69 

SIMPLE 

7 1 

SIMPLE 

199 

SIMPLE 

70 

SIMPLE 

72 

ARRAY 

2a4 

293 

SIMPLE 

161 

ARRAY 

249 

267 

ARRAY 

283 

292 

ARRAY 

242 

260 

SIMPLE 

162 

SIMPLE 

163 

SIMPLE 

164 

SIMPLE 

166 

SIMPLE 

227 

SIMPLE 

228 

ARRAY 

180 

ARRAY 

252 

270 

ARRAY 

25  3 

27  1 

SIMPLE 

167 

SIMPLE 

168 

SIMPLE 

165 

SIMPLE 

169 

SIMPLE 

186 

SIMPLE 

93 

1 18 

UNKNOWN 

24  1 

278 

SIMPLE 

94 

1 1 9 

SIMPLE 

95 

t 20 

SIMPLE 

96 

121 

SIMPLE 

97 

1 22 

SIMPLE 

98 

123 

SIMPLE 

102 

127 

SIMPLE 

101 

126 

ARRAY 

24  1 

260 

270 

271 

SIMPLE 

99 

124 

ARRAY 

278 

288 

simple 

170 

array 

287 

296 

ARRAY 

258 

276 

ARRAY 

286 

295 

ARRAY 

257 

275 

ARRAY 

187 

1B8 

SIMPLE 

145 

187 

UNKNOWN 

145 

146 

156 

157 

167 

168 

312/S 


302/S 

303/S 


300  301 


261 

262 

263 

264 

265 

266 

267 

268 

269 

272 

273 

274 

275 

27G 

277 

2B9 

290 

29  1 

292 

293 

294 

295 

296 

3 t 0/S 
30S/S 


1S8 


147 

14S 

149 

150 

151 

152 

153 

154 

155 

15B 

159 

160 

161 

162 

163 

164 

165 

166 

169 

170 

171 

172 

173 

174 

175 

176 

177 

M 


525 


M 

H3 


CO 

D 
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RDPARM 

REAL 

178 

179 

ISO 

1ST 

UNKNOWN 

206 

207 

208 

209 

217 

2 18 

219 

220 

228 

229 

230 

231 

RGAS 

239 

240 

RCNTRL 

REAL 

SIMPLE 

17  1 

R L AT 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

RDCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

23  1 

ROCPP1 

RDP ARflfl 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

real 

SIMPLE 

173 

SDAY 

RCNTRL 

REAL 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

SH 

OANDQT 

REAL 

ARRAY 

282 

29  1 

SH5 

QANDQT 

REAL 

ARRAY 

248 

266 

SIG 

RDPARM 

REAL 

ARRAY 

240 

51 GE 

RCNTRL 

real 

ARRAY 

1 76 

srwc 

RCNTRL 

REAL 

SIMPLE 

177 

SINL 

RDPARM 

REAL 

ARRAY 

234 

SINLCN 

RDPARM 

real 

ARRAY 

235 

SMTH 

QANDQT 

REAL 

ARRAY 

243 

261 

5W2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

too 

1 25 

SOLS 

RCNTRL 

REAL 

SIMPLE 

178 

START 

LDPARM 

LOGICAL 

SIMPLE 

202 

205 

T 

QANDQT 

REAL 

ARRAY 

28  1 

290 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

TMAX 

OANDQT 

REAL 

ARRAY 

25  1 

269 

30  1 /5 

TMIN 

QANDQT 

REAL 

ARRAY 

250 

258 

300/S 

TS 

QANDQT 

REAL 

ARRAY 

247 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

179 

U 

QANDQT 

REAL 

ARRA  Y 

279 

288 

V 

QANDQT 

REAL 

ARRAY 

280 

289 

VER 

CCNTRL 

CHAR  *8 

SIMPLE 

10 

23 

WSAVE 

RDPARM 

REAL 

ARRAY 

238 

X LABE  L 

CCNTRL 

CHAR-8 

ARRAY 

1 T 

24 

182  183 
210  211 
221  222 
232  233 


184 

212 

223 

234 


185 

213 

224 

235 


186 
2 14 
225 
236 


215 

226 

237 


215 

227 

238 


M 

2J 

M 

H 

CO 

o 


ORIGINAL  PAGE  85 
OF  POOR  QUALITY 


00001 


SUBROUTINE  INPUT  i+) 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

o 

c* 

c* 

c 

c 

c 


PURPOSE 

TO  READ  MODEL  CONTROL  NAMELIST  AND  MODEL  INITIAL  CONDITIONS 
AND  SET  DEPENDENT  PARAMETERS. 

CALLED  BY  MAIN  ( GW5GCM ) ONLY 


USAGE 

ARGUMENTS 


I/O  DDNAME 
5 
1 1 
12 


DESCRIPTION 
I/O  ERROR  RETURN 

DESCRIPTION 

CARO-IMAGE  DATA  INCLUDING  INPUT2  NAMELIST  (EXXXXNL) 
REWINDABLE  COPY  OF  CARD-IMAGE  DATA  FROM  UNIT  5 * TEMPNL ) 
MODEL  INITIAL  OR  RESTART  CONDITIONS  IEXXXXRSU 


SUBPROGRAMS  NEEDED 

NAME  DESCRIPTION 

IOQ  READS  INITIAL  CONDITIONS  FOR  THIS  FORECAST  SEGMENT 

DEFALT  DEFAULT  PARAMETERS  I F INITIAL  START 

DEPEND  CALCULATE  DEPENDENT  VARIABLES 

POL  I N P COPIES  POLE  VALUS  FROM  GLOBAL  MODEL  ARRAY 

RECORD  OF  MODIFICATIONS 

BASED  ON  OLD  VERSION  8. 


’DATE’ 
05/ 17/83 


’PROGRAMMER ’ 
RAMESH 


’DESCRIPTION  OF  MODIFICATIONS’ 
THIS  PART  AND  COMMENTS 


REMARKS: 

< 1i  ’MACHINE  DEPENDENT  FEATURES,  REFERENCES  , ERROR  RETURNS, 


M / A 


COM  SIGMA  DATA  I NC 


NASA  - GSFC 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00002 

COMMON 

/ CCNTRL / 

cco 

00003 

COMMON 

/ CCNTRL / 

A DATE 

00004 

COMMON 

/CCNTRL/ 

ATIME 

00005 

COMMON 

/CCNTRL/ 

JIC 

00005 

COMMON 

/CCNTRL/ 

JOB 

00007 

COMMON 

/CCNTRL/ 

CC5P0G 

00008 

COMMON 

/CCNTRL/ 

CCSP07 

00009 

COMMON 

/CCNTRL/ 

CC5P08 

oooia 

COMMON 

/CCNTRL / 

VEF 

0001  1 

COMMON 

/CCNTRL/ 

KLABEL  <10  ) 

000  12 

COMMON 

/CCNTRL/ 

CQS  130) 

000  13 

COMMON 

/CCNTRL/ 

CPU  MO) 

000  14 

EQUIVALENCE 

1CC0  ,CC  f 1 ) ) 

00015 

CHARACTERS 

CCO,  CC  f 20  0 

00016 

CHARACTER '8 

ADATE 

00017 

CHARACTER  *8 

ATIME 

00018 

CHARACTERS 

JIC 

00019 

characters 

JOB 

00020 

CHARACTERS 

CCSP06 

00021 

CHARACTER  S 

CCSP07 

00022 

characters 

CCSP03 

00023 

CHARACTER  S 

VER 

00024 

CHAR AC  TER  S 

xlabel 

U 

c 

INTEGER  MODEL  PARAMETERS  SAVED 

00025 

Is 

COMMON 

/ICNTRL/ 

ICO 

00026 

COMMON 

/ICNTRL/ 

IM 

00027 

COMMON 

/ I CNTRL/ 

IMD2 

00028 

COMMON 

/ICNTRL/ 

IMD2P1 

SINRUT  2 
SINPUT  3 
SINPUT  4 
SINPUT  5 
SINPUT  6 
SINPUT  7 
SINPUT  8 
SINPUT  9 
SINPUT  10 
SINPUT  It 
SINPUT  12 
SINPUT  13 
SINPUT  14 
SINPUT  15 
SINPUT  T 6 
SINPUT  17 
SINPUT  IS 
SINPUT  19 
SINPUT  20 
SINPUT  21 
SINPUT  22 
SINPUT  23 
SrNPUT  24 
SINPUT  25 
SINPUT  26 
SINPUT  27 
SINPUT  28 
SINPUT  29 
SINPUT  30 
SINPUT  31 
SINPUT  32 
SINPUT  33 
ETC. ’SINPUT  34 
SINPUT  35 
SINPUT  36 
♦SINPUT  37 
SINPUT  38 
5CNTRL  2 
SCNTRL  3 
SCNTRL  4 
5CNTRL  5 
SCNTRL  6 
SCNTRL  7 
SCNTRL  S 
SCNTRL  9 
SCNTRL  10 
SCNTRL  1 I 
SCNTRL  12 
SCNTRL  13 
SCNTRL  14 
SCNTRL  15 
SCNTRL  16 
5CNTRL  17 
SCNTRL  18 
SCNTRL  19 
SCNTRL  20 
SCNTRL  21 
SCNTRL  22 
SCNTRL  23 
SCNTRL  24 
SCNTRL  25 
SCNTRL  26 
SCNTRL  27 
SCNTRL  28 
SCNTRL  29 

HISTORY  RECORD  SCNTRL  30 

= r = = = SCNTRL  31 

SCNTRL  32 
SCNTRL  33 
SCNTRL  34 
SCNTRL  35 


H 

22 

a 

i-3 


ORIGINAL  RAGg  gf 
OF  POOR  QUALITY 


00029 

COMMON 

/ I CNTRL / 

NDRSW 

SCNTRL 

36 

00030 

COMMON 

/ I CNTHL / 

JM 

SCNTRL 

37 

00031 

COMMON 

/ I CNTRL / 

dPrfD2 

SCNTRL 

33 

00032 

COMMON 

/ ICNTRL / 

JMT2 

SCNTRL 

39 

00033 

COMMON 

/ICNTRL / 

JWF 

SCNTRL 

40 

00034 

COMMON 

/ICNTRL/ 

JG4 

SCNTRL 

4 1 

00035 

COMMON 

/ICNTRL/ 

JOS 

SCNTRL 

42 

00026 

COMMON 

/ICNTRL/ 

J5P 

SCNTRL 

43 

00037 

COMP/SON 

/ICNTRL/ 

K L I ALB 

SCNTRL 

44 

0003S 

COMMON 

/ICNTRL/ 

KL  I GW 

SCNTRL 

45 

00039 

COMMON 

/ICNTRL/ 

KLISST 

SCNTRL 

46 

00040 

COMMON 

/ICNTRL/ 

KS 

SCNTRL 

47 

0004  1 

COMMON 

/ICNTRL/ 

KU 

SCNTRL 

46 

00042 

COMMON 

/ICNTRL/ 

LOGS  R 

SCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

MATIN 

SCNTRL 

50 

Q0044 

COMMON 

/ICNTRL/ 

MATSNX 

SCNTRL 

51 

0004  5 

COMMON 

/ICNTRL/ 

MATSUN 

SCNTRL 

52 

00046 

COMMON 

/ICNTRL/ 

MLF  M2) 

SCNTRL 

53 

00047 

COP4MON 

/ICNTRL/ 

MROD 

SCNTRL 

54 

00048 

COMMON 

/ICNTRL/ 

NKR5H 

SCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

MSPfl 

SCNTRL 

56 

00050 

COMMON 

/ICNTRL/ 

NB 

SCNTRL 

57 

0005  1 

COMMON 

/ICNTRL/ 

ND 

SCNTRL 

58 

00052 

COMMON 

/ICNTRL/ 

NDALT 

SCNTRL 

59 

00053 

COMMON 

/ICNTRL/ 

NDAY 

SCNTRL 

60 

00054 

COMMON 

/ICNTRL/ 

NOOUT 

SCNTRL 

61 

00055 

COMMON 

/ICNTRL/ 

NDPHY 

SCNTRL 

62 

00056 

COMMON 

/ICNTRL/ 

NDSHF 

SCNTRL 

63 

00057 

COMMON 

/ICNTRL/ 

NDT 

SCNTRL 

64 

00058 

COMMON 

/ICNTRL/ 

NHMS 

SCNTRL 

65 

00059 

COMMON 

/ICNTRL/ 

NHMSE 

SCNTRL 

66 

00060 

COMMON 

/ICNTRL/ 

NHMSO 

SCNTRL 

67 

00061 

COMMON 

/ICNTRL/ 

NLAY 

SCNTRL 

68 

00062 

COMMON 

/ICNTRL/ 

NLA YM  t 

SCNTRL 

69 

00053 

COP/SMON 

/ICNTRL/ 

NLA YP 1 

SCNTRL 

70 

00064 

COMMON 

/ICNTRL/ 

NSDAY 

SCNTRL 

71 

00065 

COMMON 

/ICNTRL/ 

N5EQ 

SCNTRL 

72 

00066 

COMPTON 

/ICNTRL/ 

ICSP53 

SCNTRL 

73 

00067 

COMMON 

/ICNTRL/ 

NSTEP 

SCNTRL 

74 

00068 

COMMON 

/ICNTRL/ 

ICSP55 

SCNTRL 

75 

00069 

COMMON 

/ICNTRL/ 

NYMD 

SCNTRL 

76 

00070 

COMMON 

/ICNTRL/ 

NYMDE 

SCNTRL 

77 

0007  1 

COMMON 

/ICNTRL/ 

NYMDQ 

SCNTRL 

78 

00072 

COMMON 

/ICNTRL/ 

N2INIT 

SCNTRL 

79 

00073 

COMMON 

/ICNTRL/ 

NMLEV 

SCNTRL 

80 

00074 

COMMON 

/ICNTRL/ 

NDHOG 

SCNTRL 

81 

00075 

COMMON 

/ICNTRL/ 

IQS  (30) 

SCNTRL 

32 

00076 

COMMON 

/ICNTRL/ 

IQU  (10) 

SCNTRL 

83 

C 

SCNTRL 

84 

00077 

EQUIVALENCE 

( r TMI N 

, I QS  ( 

1 ) ) 

SCNTRL 

85 

00078 

EQUIVALENCE 

(ITMAX 

. I QS  ( 

2)  ) 

SCNTRL 

86 

00079 

EQUIVALENCE 

( IPREACC 

,IQS( 

3)  ) 

SCNTRL 

87 

00080 

EQUIVALENCE 

( IPRECON 

, IQS( 

4)  ) 

SCNTRL 

88 

00031 

EQUIVALENCE 

( I HFLUX 

, 10S< 

5)  ) 

SCNTRL 

89 

00082 

equivalence 

( IEFLUX 

, I QS  { 

6>  ) 

SCNTRL 

90 

00033 

EQUIVALENCE 

{ IFUSION 

,IOS( 

7)  ) 

SCNTRL 

91 

00034 

EQUIVALENCE 

( IRADSV/G 

, I QS  t 

8)  ) 

SCNTRL 

92 

00085 

equivalence 

( iradlwg 

, I QS  ( 

9)  ) 

SCNTRL 

93 

00086 

equivalence 

( I I CLOUD 

* I QS  ( 10 ) ) 

SCNTRL 

94 

c 

SCNTRL 

95 

0Q087 

equivalence 

( IOMEGA 

r IQU( 

1 > > 

SCNTRL 

95 

00088 

EQUIVALENCE 

< IDIABAT 

, IQIM 

21  ) 

SCNTRL 

97 

00089 

EQUIVALENCE 

( IRAD5W 

r IQU< 

3}  ) 

SCNTRL 

98 

c 

SCNTRL 

99 

00090 

EQUIVALENCE 

( ICO , IC ( 1 ) ) 

SCNTRL 

TOO 

00091 

INTEGER 

ICO,  ICCZOO) 

SCNTRL 

101 

c 

SCNTRL 

102 

c 

LOGICAL  MODEL  PARAMETERS  SAVED  ON 

HISTORY  RECORD 

SCNTRL 

103 

c 

SCNTRL 

104 

00092' 

COMMON 

/ LCNTRL / 

LCO 

SCNTRL 

105 

00093 

COMMON 

/LCNTRL/ 

QALT 

SCNTRL 

106 

00034 

COMMON  / LCNTRL / 

QBEG 

5CNTRL 

107 

00095 

COMMON  /LCNTRL/ 

QDAY 

SCNTRL 

1 OB 

00095 

COMMON  /LCNTRL/ 

QEND 

SCNTRL 

109 

00097 

COMMON  /LCNTRL/ 

QOUT 

SCNTRL 

1 10 

00098 

COMMON  /LCNTRL/ 

QPHY 

SCNTRL 

t 1 1 

00099 

COMMON  /LCNTRL/ 

QSHF 

SCNTRL 

1 12 

00100 

COMMON  /LCNTRL/ 

SN2FLG 

SCNTRL 

1 13 

0010  1 

COMMON  /LCNTRL/ 

0R5W 

SCNTRL 

1 14 

00  102 

COMMON  /LCNTRL/ 

QRSH 

SCNTRL 

1 15 

00  103 

COMMON  /LCNTRL/ 

LQSOO) 

SCNTRL 

1 16 

00104 

COMMON  /LCNTRL/ 

LQU (TO) 

SCNTRL 

1 17 

C 

SCNTRL 

t 18 

001  05 

EQUIVALENCE 

(LTMIN 

LQS  1 

1 J ) 

SCNTRL 

I 19 

00  105 

EQUIVALENCE 

(LIMA/ 

, LQS  ( 

2)  ) 

SCNTRL 

120 

00107 

EQUIVALENCE 

{LPREACC 

, LQS  ( 

3)  > 

SCNTRL 

121 

00103 

EQUIVALENCE 

(LFRECQN 

. LQS ( 

4)  ) 

SCNTRL 

122 

00109 

EQUIVALENCE 

< LHP  LUX 

r LQS  ( 

5)  > 

SCNTRL 

1 23 

00110 

equivalence 

< LEF  LUX 

, LQS  [ 

6)  ) 

SCNTRL 

124 

00111 

EQUIVALENCE 

(LFUSION 

, LQS  ( 

7)  ) 

SCNTRL 

125 

00112 

EQUIVALENCE 

( LRADSWG 

r L QS  ( 

8>  ) 

SCNTRL 

126 

00113 

EQUIVALENCE 

< LRADLWG 

i LQS  £ 

3)  ) 

SCNTRL 

1 27 

00  1 14 

EQUIVALENCE 

(LICLOUD 

, LQS  { 

10)  ) 

SCNTRL 

1 23 

C 

SCNTRL 

1 29 

00115 

EQUIVALENCE 

f LOMEGA 

r LQU  ( 

1 > ) 

SCNTRL 

130 

00116 

EQUIVALENCE 

UDIABAT 

1 LQU  { 

2)  ) 

SCNTRL 

131 

00  1 17 

EQUIVALENCE 

( LRADSW 

* LQU  ( 

3)  ) 

SCNTRL 

132 

c 

SCNTRL 

T 33 

00  118 

LOGICAL 

QALT 

SCNTRL 

134 

00119 

LOGICAL 

QBEG 

SCNTRL 

135 

00120 

LOGICAL 

QDAY 

SCNTRL 

136 

00121 

LOGICAL 

QEND 

SCNTRL 

137 

00122 

LOGICAL 

QOUT 

SCNTRL 

138 

00123 

LOGICAL 

QPHY 

SCNTRL 

139 

00124 

LOGICAL 

QSHF 

SCNTRL 

140 

00125 

LOGICAL 

SN2FLG 

SCNTRL 

141 

00  1 25 

LOGICAL 

QRSW 

SCNTRL 

142 

00  T 27 

LOGICAL 

QRSH 

SCNTRL 

143 

c 

SCNTRL 

T 44 

00123 

LOGICAL 

LQS 

SCNTRL 

145 

00  129 

LOGICAL 

LQU 

SCNTRL 

146 

00130 

LOGICAL 

LTMIN 

SCNTRL 

147 

00  13  1 

LOGICAL 

LTMAX 

SCNTRL 

148 

00132 

LOGICAL 

LPREACC 

SCNTRL 

149 

00133 

LOGICAL 

LPRECON 

SCNTRL 

150 

00134 

LOGICAL 

LHFLUX 

SCNTRL 

15  1 

00135 

LOGICAL 

LEFLUX 

SCNTRL 

152 

00  135 

LOGICAL 

LFUSION 

SCNTRL 

153 

00137 

LOGICAL 

LRADSWG 

SCNTRL 

154 

00138 

logical 

LRADLWG 

SCNTRL 

155 

00139 

LOGICAL 

LICLOUD 

SCNTRL 

156 

c 

SCNTRL 

157 

00140 

LOGICAL 

LOMEGA 

SCNTRL 

15S 

00  141 

LOGICAL 

LDIABAT 

SCNTRL 

159 

00142 

LOGICAL 

LRADSW 

SCNTRL 

160 

c 

SCNTRL 

161 

00143 

EQUIVALENCE 

<LCO,LC( 1 } > 

SCNTRL 

162 

00144 

LOGICAL 

LCO  , LC  f 200 ) 

SCNTRL 

163 

c 

SCNTRL 

164 

c 

REAL  MODEL  PARAMETERS  SAVED 

ON  HISTORY  RECORD 

SCNTRL 

165 

C 

r = = = = ^ = = = = r = = = 

: - s ss = — s = a 

= — = — — 

““■=““=“33“-=“ 

SCNTRL 

166 

00145 

COMMON  /RCNTRL/ 

RCO 

SCNTRL 

167 

00146 

COMMON  /RCNTRL/ 

APHEL 

SCNTRL 

168 

00147 

COMMON  /RCNTRL/ 

BETA 

SCNTRL 

1 69 

00148 

COMMON  /RCNTRL/ 

COSD 

SCNTRL 

170 

00149 

COMMON  /RCNTRL/ 

CP 

SCNTRL 

171 

ootso 

COMMON  /RCNTRL/ 

DAYSPY 

SCNTRL 

172 

00151 

COMMON  /RCNTRL/ 

DEC 

SCNTRL 

173 

001 52 

COMMON  /RCNTRL/ 

DECMAX 

SCNTRL 

174 

00153 

COMMON  /RCNTRL/ 

DIST 

SCNTRL 

175 

00  154 

COMMON  /RCNTRL/ 

DLAT 

SCNTRL 

175 

00155 

COMMON  /RCNTRL/ 

DLON 

SCNTRL 

177 

M 

§ 

a 

H 


LO 


ORlGf^AL  P&^s? 

OF  POOR  QUALfTY 


.1.: 


v v rU-r 


00  156 

COMMON 

/RCNTRL / 

DT 

SCNTRL  17B 

00157 

COMMON 

/RCNTRL/ 

ECCN 

SCNTRL  179 

00150 

COMMON 

/ RCNTRL/ 

GNU  1 

SCNTRL  180 

00159 

COMMON 

/RCNTRL/ 

GNU2 

SCNTRL  1 B 1 

00160 

COMMON 

/RCNTRL/ 

GRAV 

SCNTRL  182 

[ 

00  161 

COMMON 

/RCNTRL/ 

OMEGA 2 

SCNTRL  183 

t 

00162 

COMMON 

/RCNTRL/ 

PI 

SCNTRL  184 

4 

i 001G3 

COMMON 

/RCNTRL/ 

PI  180 

SCNTRL  185 

* 

00  164 

COMMON 

/RCNTRL/ 

PI  2 

SCNTRL  IBS 

00155 

COMMON 

/RCNTRL/ 

PSTD 

SCNTRL  187 

! 00 1 56 

COMMON 

/RCNTRL/ 

PIMEAN 

SCNTRL  188 

i 00167 

COMMON 

/RCNTRL/ 

PSMAX 

SCNTRL  189 

00168 

COMMON 

/RCNTRL/ 

PSMIN 

SCNTRL  190 

00169 

COMMON 

/RCNTRL/ 

PTOP 

SCNTRL  191 

a 

00  170 

COMMON 

/RCNTRL/ 

RADE 

SCNTRL  192 

a 

00171 

COMMON 

/RCNTRL/ 

RGAS 

SCNTRL  193 

a 

00172 

COMMON 

/RCNTRL/ 

ROCP 

SCNTRL  194 

i 

00173 

COMMON 

/RCNTRL/ 

RSDIST 

SCNTRL  195 

j 

00174 

COMMON 

/RCNTRL/ 

SDAY 

SCNTRL  196 

t 

00  1 75 

COMMON 

/RCNTRL/ 

SEASON 

5CNTRL  197 

3 

00176 

COMMON 

/RCNTRL/ 

5IGE 

125  1 

SCNTRL  T9B 

: 

00177 

COMMON 

/RCNTRL/ 

SIND 

SCNTRL  199 

00178 

COMMON 

/RCNTRL/ 

SOLS 

SCNTRL  200 

00179 

COMMON 

/RCNTRL/ 

TSTD 

SCNTRL  201 

\ 

00180 

COMPTON 

/RCNTRL/ 

PLEVS 

125) 

SCNTRL  202 

00131 

COMMON 

/RCNTRL/ 

HEATW 

SCNTRL  203 

001S2 

COMMON 

/RCNTRL/ 

HE  A T I 

SCNTRL  204 

001  83 

COMMON 

/RCNTRL/ 

EPS 

SCNTRL  205 

00184 

COMMON 

/RCNTRL/ 

EPSFAC 

SCNTRL  206 

[' 

00185 

COMMON 

/RCNTRL/ 

CA  L TO J 

SCNTRL  207 

- 

0018G 

COMMON 

/RCNTRL/ 

PZERO 

SCNTRL  208 

j 

1 

C 

SCNTRL  209 

ft  00187 

EQUIVALENCE 

( RCO , RC  ( 1 > ) 

SCNTRL  210 

! 00188 

REAL 

RCO . RC ( 200 ) 

SCNTRL  211 

l ; 

C 

SCNTRL  212 

ft  [ 

c 

INTEGER  MODEL  CONSTANTS 

SCNTRL  213 

> i 

c 

= = ■=  = 

SCNTRL  214 

i 00189 

common 

/IDPARM/ 

I JUMP 

146) 

SCNTRL  215 

|k- 

U 00190 

common 

/IDPARM/ 

ID5P02 

SCNTRL  216 

|: 

P 00191 

COMMON 

/IDPARM/ 

INDEX 

(72  J 

SCNTRL  217 

[ 

1 00192 

COMMON 

/ IDPARM/ 

I ROD 

SCNTRL  218 

1 

00  193 

COMMON 

/IDPARM/ 

JC 

{ 46J 

SCNTRL  219 

J 

if  00194 

COMMON 

/IDPARM/ 

JE 

( 2 > 

SCNTRL  220 
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INTEGER 

ARRAY 

191 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IOQ 

SUBROUTINE 

1 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

BO 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

79 

ao 

81 

82 

S3 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

88 

89 

IRADLWG 

ICNTRL 

INTEGER 

unknown 

85 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I REGS 

INTEGER 

SIMPLE 

30  1/S 

IRECU 

INTEGER 

SIMPLE 

302/S 

325 

329 

338 

342 

IROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDPARM 

logical 

SIMPLE 

201 

204 

UMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

J 

INTEGER 

SIMPLE 

1 

307 

320 

32S 

3 25 

333 

338 

338 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

JIC 

CCNTRL 

CHAR  *8 

SIMPLE 

5 

IS 

Jd 

INTEGER 

SIMPLE 

315/C 

328/C 

329 

329 

34  1/C 

342 

342 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

300 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMPT 

INTEGER 

SIMPLE 

300/S 

315 

32B 

34  1 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHARTS 

SIMPLE 

5 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

X 

INTEGER 

SIMPLE 

322 

322/C 

322/C 

335 

335/C 

335 /C 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KOP 

INTEGER 

SIMPLE 

1 

303 

KOP  1 

INTEGER 

SIMPLE 

303/S 

304 

K5 

ICNTRL 

INTEGER 

SIMPLE 

40 

30  1 

K5TEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

41 

302 

322 

335 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

322/R 

335 /W 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

95 

96 

57 

98 

99 

103 

104 

LD I ABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

116 

141 

LDPARM 

INTEGER 

UNKNOWN 

200 

20  1 

202 

LEFtUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

135 

LFUS10N 

LCNTRL 

LOGICAL 

UNKNOWN 

lit 

136 

LHFLUX 

LCNTRL 

logical 

UNKNOWN 

109 

134 

L ICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

114 

139 

LOG8R 

ICNTRL 

INTEGER 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

133 

55 

66 


197 


84 


100 


56 

67 


i sa 


85 


T 0 1 


57 

68 


1 99 


86 


102 


ORIGINAL  PAGE  S3 

IOQ  10  OF  POOR  QUALITY 


' ' s 


I'"**  • ‘ \ M '' 

• .t  ......  ' 


LOS 

LCNTRL 

LOGICAL 

ARRAY 

103 
I 28 

105 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

1 04 

1 15 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

133 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

LU 

INTEGER 

SIMPLE 

1 

309 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MJ 

I DP  ARM 

INTEGER 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MRGD 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

NB- 

ICNTRL 

INTEGER 

SIMPLE 

50 

ND 

ICNTRL 

INTEGER 

SIMPLE 

51 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

integer 

SIMPLE 

29 

NOSHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NHMS. 

ICNTRL 

integer 

SIMPLE 

58 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMST 

I DP ARM 

INTEGER 

SIMPLE 

198 

nhmse 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

4S 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

61 

302 

NLAYMt 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLAYP1 

ICNTRL 

INTEGER 

SIMPLE 

63 

MMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

55 

NSTEF 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

integer 

SIMPLE 

69 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

1 99 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

omega 

QANDQT 

REAL 

ARRAY 

236 

205 

OMEGA2 

RCNTRL 

real 

SIMPLE 

161 

P 

QANDQT 

REAL 

ARRAY 

25  1 

269 

PHI 

QANDQT 

REAL 

ARRAY 

285 

294 

PHIS 

QANDQT 

REAL 

ARRAY 

244 

262 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  tso 

RCNTRL 

REAL 

SIMPLE 

163 

P I 2 

RCNTRL 

REAL 

SIMPLE 

164 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

RDPARM 

REAL 

SIMPLE 

22S 

PLEVS 

RCNTRL 

REAL 

ARRAY 

ISO 

PREACC 

QANDQT 

REAL 

ARRAY 

254 

272 

PRECON 

QANDQT 

REAL 

ARRAY 

255 

273 

P5MAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

168 

P5TD 

RCNTRL 

REAL 

SIMPLE 

165 

PTOP 

RCNTRL 

REAL 

SIMPLE 

169 

PZERO* 

RCNTRL 

REAL 

SIMPLE 

136 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

33 

118 

QANDQT 

REAL 

UNKNOWN 

243 

2S0 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

34 

1 19 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

36 

1 2 1 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

38 

123 

QRSH 

LCNTRL 

LOGTCAL 

SIMPLE 

1 02 

127 
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QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

126 

PS 

QANDOt 

REAL 

ARRAY 

243 

262 

QSHF 

272 
342 /Yf 

273 

LCNTRL 

LOGICAL 

SIMPLE 

39 

1 24 

QU 

QANDQT 

REAL 

ARRAY 

230 

290 

RADE 

329/R 

338/W 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

qandqt 

REAL 

ARRAY 

289 

238 

RADLWG 

QANDQT 

REAL 

ARRAY 

260 

278 

RADSW 

QANDQT 

REAL 

ARRAY 

288 

237 

RADSWG 

QANDQT 

REAL 

ARRAY 

259 

277 

RC 

RCNTRL 

REAL 

ARRAY 

T 87 

188 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

RCNTRL 

REAL 

UNKNOWN 

145 

14S 

156 

157 

167 

168 

178 

173 

RDPARM 

REAL 

UNKNOWN 

206 

207 

2 17 

218 

22B 

223 

RGAS 

239 

240 

RCNTRL 

REAL 

SIMPLE 

171 

R LA  T 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

ROCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

231 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

t 73 

SDAY 

RCNTRL 

REAL 

SIMPLE 

1 74 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

SN 

QANDQT 

REAL 

ARRAY 

284 

293 

SHS 

QANDQT 

REAL 

ARRAY 

250 

268 

SIG 

RDPARM 

REAL 

ARRAY 

240 

5:1  GE 

RCNTRL 

REAL 

ARRAY 

176 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

SINL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

real 

array 

235 

SMTH 

QANDQT 

REAL 

ARRAY 

245 

263 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

1 00 

125 

SOLS 

RCNTRL 

REAL 

SIMPLE 

178 

START 

LDPARM 

LOGICAL 

SIMPLE 

202 

205 

T 

QANDQT 

REAL 

ARRAY 

283 

292 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

TMAH 

QANDQT 

REAL 

ARRAY 

253 

271 

TWIN 

QANDQT 

REAL 

ARRAY 

252 

270 

TS 

QANDQT 

HEAL 

ARRAY 

249 

267 

TSTD 

RCNTRL 

REAL 

SIMPLE 

173 

U 

QANDQT 

REAL 

ARRAY 

28  1 

230 

V 

QANDQT 

REAL 

ARRAY 

282 

29  t 

VSR 

CCNTRL 

CHARTS 

SIMPLE 

10 

23 

wsave 

RDPARM 

REAL 

ARRAY 

238 

KLABEL 

CCNTRL 

CHARTS 

ARRAY 

1 1 

24 

XORDS 

CORDER 

CHARTS 

ARRAY 

24  1 

242 

XORDU 

CORDER 

charts 

ARRAY 

24  1 

24  2 

263 

264 

265 

256 

267 

268 

269 

270 

271 

274 

275 

276 

277 

278 

273 

325/R 

329/R 

338 

291 

342/W 

292 

293 

234 

295 

296 

297 

298 

325 

322/  R 
188 

335/W 

147 

148 

149 

158 

159 

160 

169 

170 

17  1 

180 

181 

T 82 

208 

209 

210 

219 

220 

22  1 

230 

23  1 

232 

150 

151 

152 

161 

162 

163 

172 

173 

174 
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184 

185 

21  1 

212 

2 13 

222 

223 

224 

233 

234 

235 

153 

154 

155 

164 

165 

166 

175 

176 

177 
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215 
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237 
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00002 

00003 

00004 

00005 

oooos 

00007 

oooos 

00009 

00010 
000  1 1 
00012 

00013 

00014 

00015 
000  15 
000  17 
000  18 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 
00027 
0002B 

00029 

00030 
0003  1 

00032 

00033 

00034 

00035 

00036 

00037 


SUBROUTINE  L I NKHO < LLA Y . NF LW , IDAY , LATD . JNP , X BS I 
RADIATION  AND  SOURCE  TERM  FIELDS 


00040 

00041 

00042 

00043 


SSSE ( 72  , 10) 
HUE  < 72 , 1 0 ) 

CVQ (72,9) 


5WI L { 72  t 9 ) 


COMMON  /RADCOM/  A5( 72,9) , RE<72,10> 

COMMON  /RADCOM/  PL<72,9),  PLE172.T0) 

COMMON  /RADCOM/  PLK172,'9),  PLKE(IO) 

COMPTON  /RADCOM/  TU72.9),  TLE172.10) 

COMMON  /RADCOM/  TG(72>  rTH<72,9) 

COMMON  /RADCOM/  SHL(72,9>,  SHLE(72,10> 

COMMON  /RADCOM/  SHG<72>,  CLOUD  172, 12) 

COMMON  /RADCOM/  SHSAT(72,9),  GAM(72,9> 

COMMON  /RADCOM/  RH<72,9) 

COMMON  /RADCOM/  SSS<72,9>,  SSSE ( 72  , 10) 

COMMON  /RADCOM/  HH(72,9),  HHE<72,10) 

COMPJION  /RADCOM/  HHS{72.9) 

COMPJION  /RADCOM/  CVT(72,9),  CVq(72,9) 

COMMON  /RADCOM/  CXDEC9) 

COMMON  /RADCOM/  SWALE  (72,10)  , SWIU72.9) 

COMMON  /RADCOM/  AL(72,10) 

COMMON  /RADCOM/  TAUL(72,10),  OZALEf72,tO) 

COPJ1MON  /RADCOM/  T0PABS172) 

COMMON  /RADCOM/  RN(9>,  TN ( 9 ) , SRS19),  STNT9) 

COMMON  /RADCOM/  TC0NDC9),  TPENE  < 9 } 

COMPJION  /RADCOM/  TLOWL.TMIDL,  NLAYOZ 
COMMON  /RADCOM/  FK(5>,  XKt5),  NF  K 

COMMON  /RADCOM/  OL  JAN  f 19 ) , OLAPRM9),  OLdULMg),  OLOCT(19> 
COMMON  /RADCOM/  OCM22(23),  OCM30(23).  OCM3B(23>,  0CM4S123) 
COMPJION  /RADCOM/  PROCM(23),  OCMXX(23),  NOZ,  TOTOZ14),  CDATE  I 
COMMON  /RADCOM/  C2H172),  WET<72),  EVAP , PREP (72),  WI(72) 
COMMON  /RADCOM/  COSZ(72),  SO,  RADTRM  172).  CXL 
COMMON  /RADCOM/  SG(72) . SP172I 
COMMON  /RADCOM/  RSURF172),  RCLOUD ( 72 ) r JALB 
COMMON  /RADCOM/  LAND  < 72 ) , OCEAN172),  ICE172) 

COMMON  /RADCOM/  SNOW172),  MIXWK72),  FROST  (72) 

LOGICAL  LAND,  OCEAN,  ICE,  SNOW,  MI XWI , FROST 

DIMENSION  T03  ( 13, 19>  ,TIH  19)  ,TI2(19) 

DIMENSION  TOI ( 1 9 t 5 I ,T02f I9r5)  ,TR03(  19,19,5) 


DIMENSION  DP ( 19) 
DIMENSION  G ( 2 ) , 

1 APRI  f 5 ) f BPR I (5 ) * X 
DIMENSION  BG (10), 

1 TINF C 19 , 1 0) , IUP (9) 
DIMENSION 


CTINF ( 19,2) , CTRAN5 { 19,13,2),  Ct 10) ,CTIN< 1 
X t 10)  , CNUCUB  ( 10  ) ,D£LNU<  10  ) 

CM(  19)  , BB1 ( 1 0)  , SSI { 1 0 ) , W T R I N F * 19, 

) 

CAPPSI  t 37 ,10)  , CONI  f 37  ) , SMO  , 1 


SLINKHO  2 
SRADCOM  2 
SRADCOM  3 
SRADCOM  4 
SRADCOM  5 
SRADCOM  6 
SRADCOM  7 
SRADCOM  8 
SRADCOM  3 
SRADCOM  10 
SRADCOM  11 
5RADCOM  12 
SRADCOM  13 
SRADCOM  14 
SRADCOM  15 
SRADCOM  16 
SRADCOM  17 
SRADCOM  18 
SRADCOM  13 
SRADCOM  20 
SRADCOM  21 
SRADCOM  22 
SRADCOM  23 
SRADCOM  24 
SRADCOM  25 
SRADCOM  26 
SRADCOM  27 
SRADCOM  28 
SRADCOM  29 
SRADCOM  30 
SRADCOM  31 
SRADCOM  32 
SRADCOM  33 
SRADCDM  34 
SRADCOM  35 
SRADCOM  36 
SL1NKHO  4 
SLINKHO  5 
SLINKHO  6 
SLINKHO  7 
SLINKHO  S 
SLINKHO  0 
SLINKHO  10 
SLINKHO  11 


1 TRAD ( 2 1)  , R f 19 

, 19, 11) 

,P137> 

PHI  ( 37  > 

, W<  37  ) 

* VAR ( 19  > . SLINKHO 

12 

2 

BB1 21 , 

1 1 ) , SSI  2 1 , 1 

1 ) , CAP  137,101, 

T( 37 1 , 01 37 1 SLINKHO 

13 

c 

SLINKHO 

14 

c 

DATA 

SLINKHO 

15 

c 

S 

K , 

Kd  , 

PH, 

AVI  , 

NLE  , 

TTT  , 

SURFL, 

BB  , 

PLE , TINF, SLINKHO 

1 6 

c 

S 

L , 

KK. 

PM. 

CMI  , 

PDG, 

CAP  1 , 

SURFU , 

BG, 

SSI.  TRAD. SLINKHO 

17 

c 

5 

M * 

LA, 

Q 1 , 

DPI  , 

PDP  , 

CAP2. 

TERM  1 . 

CM, 

Til,  TR03, SLINKHO 

ia 

c 

S 

N , 

LL  , 

Q2, 

DP2 , 

PDQ, 

CMI  1 , 

TERM2, 

DP  r 

TI 2,  CTINF , SLINKHO 

19 

c 

S 

AG, 

L2, 

TS, 

III  , 

PDT , 

NLE  V t 

TRAD  1 , 

PL  , 

TOI  , CA  PPST .SLINKHO 

20 

c 

s 

AV  . 

L3  , 

TT, 

ddd, 

SSB, 

PHI  I , 

IdTEST, 

S5, 

T02. CTRANS , SLINKHO 

21 

c 

s 

CG, 

NF, 

Tt, 

dMI  , 

SSD, 

TERM, 

P , 

ESI, 

TO  3 , V/TRT  NF  , SLINKHO 

22 

c 

s 

II  , 

NK, 

T2  , 

KKK* 

SUM, 

CONTI , 

Q, 

CAP, 

VAR,  R, SLINKHO 

23 

c 

$ 

I J , 

NN, 

XX, 

LAY, 

TRB  , 

C0NT2 , 

s, 

IUP  , 

CONI,  SLINKHO 

24 

c 

s 

dd  , 

PD, 

YY, 

NFL  , 

TRD  , 

LLLAY , 

T, 

PHI  , 

CTIN  SLINKHO 

25 

c 

s 

/9232 

*200000000/ 

SLINKHO 

26 

C 

SLINKHO 

27 

DATA 

APRI 

/o.  , 

9*08,15.1 

.13. 469 , 2 1 *235/  SLINKHO 

28 

DATA 

BPR  I 

/o*  , 

-38. 

1,-54* 1,- 

120.  * - 

74.94/  SLINKHO 

29 

DATA 

G 

/27. 

15.21  * 

76/ 

SLINKHO 

30 

DATA  C / 1 100. , 217*0319 , 18 ,46318, 1 *49369, , 086965 , 

1 * 0 14317, 1 .8675,51 *31344,350,0512,26.79471/ 

DATA  X / 20 1 . 418,474.771 , 633.025,834,446, 1050 . 25, 

1 1438*7, 1334.34.2014* 18,2301 .92,2733.53/ 

DATA  CNUCUB  / 1 02 . 65B , 1 344 , 47 , 3 1 86 . 9 , 7299  * 53  * 

1 t 4553 . 3 , 37 4 12.  ,77542.8, 102858.  , 153240*  ,256609./ 

DATA  DELNU  /2B0 . , 1 00 . , 1 20 . , 1 60 . , 1 40 . , 400 . , 1 50 , , 

1 100. ,300. ,300, / 


SLINKHO  31 
SLINKHO  32 
SLINKHO  33 
SLINKHO  34 
SLINKHO  35 
SLINKHO  36 
SLINKHO  37 
SLINKHO  38 


T3  O 

O g 

O % 

7d  r- 

»0  2 

a.  > 

> S 

r-  ra 


LINKHO  1 


00047 

0004S 


00049 

00050 
0005  1 

00052 

00053 

00054 

00055 

00056 

00057 
0D05S 

00059 

00060 
OOOSt 
00062 

00063 

00064 

00065 

00066 
00067 
0006B 

00069 

00070 
0007  1 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
OOOS  t 
OOOB2 
OOOS3 
00084 
QOOSS 
OQOS6 

00087 

00088 
00089 
00030 

00091 

00092 

00093 

00094 

00095 

00096 

00097 
00095 

00099 

00100 
00101 
00  i oz 

00103 

00  1 04 

00105 

00106 
00107 
00105 

00109 

00110 

001  1 1 
001  t 2 
001  13 
00  114 


DATA  GRNDP  , P 1 ,P2 , XV , NFF/ 1 0 13E6 , 1 ,E3 ,5  *E3 . 5 .89527 ,10/ 

DATA  KURT/O/ 

C 

C CALL  ERRSET< 207. 256,  - 1 . 1 , O, 209) 

C 

L A V = LL A V”  1 
NF=5 

NFLW=NFF 
NFL  =NFLW+ 1 
LA -LAV- 1 
LLLAVnLLAV^ 1 
WLEV=LLAY*4+1 
NLE=NLEV-2 
L 2 = LLA  Y *"2+  1 
LL=L2* 1 
L3  = LL  * 1 
K = 0 

DO  2555  1 = 1 , LLA  V 

I F ( 5HL { IBB , I ) . EO . 0,)  SHL f I BB  , t ) = 1 . E -8 

PL  l IBB  , I ) =PL  ( IBB  t X } * 1-.  E3 
PLE ( IBB,  I )=PLE  < IBB, I )*  1 . E3 
IF  (CLOUDdBB,  I ) . GT  . O.)  K = I 

2555  I UP  f I ) — K 

I F { SHG  (IBB)  . E Q , 0.)  SHG ( I 8B ) = 1 . E-8 
PLEf IBB.LLLAY) = PLEf IBB. LLLAV) M , E3 
. DP  1 ” P 2 - P 1 
DP2=PLEf  I BB  t 1 ) *-P2 
CALL  SrPATMfTI f T2 , lUA Y , LATD } 

DO  2324  J=1 , LLA V 

dd=2*d 

Id  = 4 'd 

DP( Jd-1  »=-f PLEf IBB,  JJ-PLfJBB, J)  > /2  . 

DPI  dd  ) = - f RL ( IBB  , d ) - PLE  t IBB  , d*  1 M /2  . 

PI  I J-3)=PLE(IBB, J) 

P ( Id-2) =PLE( IBB, J) +DP < dd- J ) 

Pf Id-1 ) =PL (IBB , d) 

P(IJ)  -PL ( I BB , J ) +DP ( Jd ) 

PHI (Id-1 ) =P ( I J- 1 } /GRNDP 
PHr  < Id- 2) = P{ Id- 2) /GRNDP 
PHI (Id-3)=P(Id-3) /GR HOP 
PHI ( Id  ) = Pf Id  > /GRNDP 
2324  CONTINUE 

P(NLEV)  =PLEUBH  ,LLLAY> 

PHI (NLEVJ  =P (NLEV) /GRNDP 
I F < KURT  .EQ,  1 ) GO  TO  9000 
DO  20  N-1 ► 2 
DO  20  1=3,21 

READ (55 ,10)  CTINFf 1-2 ,N>  , CT I N ( I -2 , N ) , f CTRANS ( d -2 , I - 2 , N I , d =3 , I) 
10  FORMAT ( 13F6.4) 

20  CONTINUE 

DO  BO  N=T  ,2 
DO  SO  1=1  , L 2 
DO  SO  d=1 ,1 

80  CTRANS (I , d , N ) = CTRANS ( J , I , N ) 

DO  5 N= 1 ,5 

READ (55 ,9) (T01 (I ,N) ,1=1 , L2  ) 

READ  f 55 , 9 ) < T02 f I . N ) f I = 1 . L2 ) 

DO  7 1=1, L2 

7 READ (55,9) { TR03 < I , J , N)  ,d=1 * L2  ) 

9 FORMAT ( 10F8.S) 

5 CONTINUE 
9000  KURT=1 

CALL  03  I NT f TO  1 , T02 , TR03 . T I 1 , TI 2 , T03 . JALB ) 

C0NT1=EXP( 1745./T1*XY) 

CQNT2=EXP( 1745./T2-KY) 

TS-TLE'f  IBB,LLLAY) 

DO  5354  1 = 1 t3 
T ( I ) = TL ( I BB , 1 ) 

5354  CONTINUE 

DO  11  I = 1 f LAY 

IF f SHL ( IBB , 1+1 ) ,LE . 1 ,E-B.OR f SHL f I BB , I ) . LE . 1 . E -8 ) GO  TO  7777 
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OOl  IS 

PDQ  = SHU (IBB. I 1 / SHL ( I B8 , I4 1 > 

SLINKHOI 10 

00116 

GO  TO  777S 

SLINKHOI 1 1 

00117 

7777 

PDQ  = 1 . 

SLINKHOH2 

00118 

7778 

CONTINUE 

SLINKHOI 13 

00113 

PDT=  TL( IBB, 1+  U -TL1 IBB, I ) 

SLINKHOI 14 

00120 

PDP  = ALOG  ( PL  ( IBBJI/PLUBB.IMM 

SLINKHOI 15 

00121 

PD=PDT/PDP 

SLINKHOI 16 

00  122 

L*(2-J)MLA-I> 

SLINKHOI 17 

00  123 

I P ( L .LE.  0)  GO  TO  12 

SLINKHOI IS 

00  124 

M=2 

SLINKHOI 19 

OO  1 25 

IF  tl  . EQ . 1)  M=3 

SLINKH0120 

00126 

DO  13  K-1.M 

SLINKH0121 

00  1 27 

IF  t ] , EQ.  1 ) GO  TO  14 

5LINKHQ122 

00  1 23 

JJ=NLE^K 

SLINKH0123 

00  129 

PDG= ALOG  ( P ( J J J /P  (NLEVM 

SLINKHOI 24 

00130 

AV-ALOGt  P(NLE)/P(NLEV)  ) 

SLINKH0125 

00131 

T<  dd  J = TS- ( T5-TL (IBB, LLAY 1 J -POG/AV 

SLINKHQ126 

00  132 

PDG=PDG/AV 

SL1NKH0127 

00133 

IF fSHG(IBB> .LE. 1 ,E-B>GO  TO  1256 

SLINKHQ12S 

00134 

0(  JJ)  -:SHG(  IBB)  * ( SHL(  IBB,  LLAY  5 / SHG  1 IBB)  > **PDG 

SLINKHOI 29 

00135 

GO  TO  15 

SL1NKHQ130 

00136 

14 

JJ=4-K 

SLINKH0131 

00137 

PD G= ALOG (PfdJ)/PLI IBB.I+1 1 } /PDP 

SLINKH0132 

00138 

IF  r SHL ( I BB  r I ) ,LE. 1 . E-8 ) GO  TO  1256 

SLINKH0133 

00139 

Of dj  > =SHL (IBB, I * 1 ) *PDQ**PDG 

SLINKH0134 

00140 

IF (SHL ( IBB , I +1  > . LE . 1 . £-8 ) Q < dd) =SHL( IBB , t ) 

SLINKHOI 35 

0014  1 

15 

CONTINUE 

SLINKH0136 

00142 

TT  = < T l dd  ) -.260  , )M,E-3 

SLINKH0137 

00143 

TTT  = TT  * TT 

SL3NKH013B 

00144 

CONTf dd)=E^P< 1745. /Tf JJ) -XY) 

SLINKH0139 

00145 

I F ( Q { dd ) .LE,  ,000011  GO  TO  1256 

SLINKHO140 

o o 

00146 

CONTfdd) =CONT<dd) *Q( Jd) *PHt (dd) *01 dd) 

SLINKH0141 

00147 

GO  TO  1257 

SLINKHOI 42 

00148 

1256 

CONTINUE 

SL3NKH0143 

,f>t  (Tl 

00149 

CONTf dd) =0* 

SL INKH0144 

21  a 

00150 

Qf  dd 1-0  , 

SLINKH0145 

00151 

DO  1333  N= 1 , NFLW 

SLINKH0146 

O 5? 

00152 

1233 

CAP ( dd , N>  =0 . 

SLINKH0T47 

;s  r* 

00153 

GO  TO  IB 

SLINKH014B 

00154 

1257 

CONTINUE 

5LINKH0149 

lO  ~Q 

00155 

DO  19  N=1 , NFLW 

SLINKH0150 

c > 

00  156 

CAPPSIfdd.N  ) = 1. 

SLINKH0151 

00  157 

IFfW  . GT . Nr)  GO  TO  5859 

SLINKH0152 

r-  rtl 

00  158 

CAPPSI(dd,N>=EXPtAPRI<N>+TT+BFRI(N)*TTT) 

SLINKH0153 

> i * 

00159 

5859 

CONTINUE 

SLINKH0154 

n7T3 

00  160 

CAP ( JJ  tN) =0(dd) * CAPPS I C JJf N) *PHI (dd) 

SL I NKHO 1 55 

-< 

00  161 

19 

CONTINUE 

5LINKHQ156 

00  162 

IB 

CONTINUE 

SL I NKHO 1 57 

00  163 

13 

CONTINUE 

SL I NKHO 1 53 

00164 

12 

Kd “4* 1-1 

SL  I NKHO 1 59 

00  165 

DO  It  K = 1 ,4 

SLINKH016D 

00166 

d J=  Kd  + K 

SL 1 NKHO 1 6 1 

00167 

PDG=ALOG( P { dd  ) /PL  ( IBB  , 1 + 1-1  ) 

SLINKH0162 

OOIGB 

T ( dd ) =TL (109,1*1) -PDG*PD 

SL I NKHOI 63 

00169 

I F {-SHL  ( IBB  , X ) .LE. 1 . £-3 . AND , SHL { IBB , I + 1) , LE . 1 . E-S ) GO  TO  4300 

SLINKHOI 64 

00170 

IFfSHLUBB,  I)  .LE.  >. E-8. AND.  K .EQ.  1)  GO  TO  4300 

SLINKHOI 65 

00171 

IF  (SHLfIBB, 1+1) ,LE. 1 .E-B.AND.K  , GT . 2)  GO  TO  4300 

SLINKH016G 

00172 

I F { SHL (IBB, I + t J .LE.  1 .E-B.AND.K  .LE.  2)  GO  TO  4302 

SL1NKH0167 

00173 

PDG  = PDG/ PDP 

SLINKHOI 68 

00174 

Q < dd ) -SHL < I BB , I + 1 > * PDO * * PDG 

SL I NKHO 1 69 

00  t 75 

GO  TO  4301 

5LINKHO170 

00176 

4302 

Q fdd>=Q( dd— 1 ) 

SL I NKHO 171 

00177 

430  1 

CONTINUE 

SL I NKHOI 72 

00173 

TT  = < T ( dd ) - 260 , ) * 1 . E-3 

SLINKHOJ73 

00179 

TTT  = TT*  TT 

SL I NKHO 174 

00  ISO 

CONT(dd)-EXP ( 1745, /Tfdd) -XY) 

SL I NKHO 1 75 

0018  1 

CONTf dd) =CONT(dd) *Q( dd) *PHI (dd)*Q(dd> 

SL I NKHO 176 

00  182 

DO  21  N= 1 , NFLW 

SL I NKHO 1 77 

00183 

CAPP5I (dd . N ) = 1 , 

SL I NKHOI 78 

00184 

I F ( N .GT,  NF)  GO  TO  5S5B 

SL I NKHOI 79 

00135 

CAPPSI  < dd,N) =EXP( APR  I < N ) *TT  + BPR I (N) *TTT) 

SLI NKHOI SO 
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00  191 

00192 

00193 

00194 
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0024  1 
00  242 
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00244 
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00246 

00247 

00248 

00249 

00250 

00251 
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5858  CONTINUE 

CAP  (Jd,N)-Q(JiJl*CAPPSI  < dd  ,N)  *PHI  f dd> 

21  CONTINUE 
GO  TO  1 1 
4300  Q { JU ) = 0 . 

CONTI dd >=0, 

DO  2333  N- 1 ,NFLW 
2333  CAPf Jd,N)=0. 

1 1 CONTINUE 
TRAD  1 = T 1 
TRADt 1 ) =T2 
TRAD  t 2 ) =T ( 1 ) 

DO  30  I =3 , NLE  V , 2 
K = U + 1 >/2+l 
30  TRAD  f K } = -T  f I ) 

TRAD  tL3) =TS-2, -TLf IBB r LLAV) 

DO  1000  N= 1 >NFLW 
DO  1100  1=  1 , L3 
XX=X ( N> / TRAD { I ) 

YY=EXP( XX>- 1 , 

SB (I , N ) “CNUCUB ( N > / Y Y 

SS ( I f N ) = BB ( I fN> -X#*  < YY+1 - ) / < YY  * TRAD ( I ) ) 

1100  CONTINUE 

BGfN)=CNUCUB<N1/(EXP{KfN)/TG( IBB) )-T . ) 

X X = X ( N ) / TRAD  1 
YY=EXP(XX)- 1 . 

BB1 (N)=CNUCUB(N)/YY 

SSI <W>=BB1  <N?*XX*< YY+1  . ) / f Y Y *TRAD 1 ) 

1000  CONTINUE 

cm  f n=o. 

DO  108  J=2,L2 
L =d/2 
JJ-2* J- 1 

CMf  d J = CM f d-  1 ) * f CONTt  Jd  ) +4  . *CONT  f dd-  1 ) *CONT(JJ-2>  )+DPf  J-1) 

1 / 3 , / 9BO . 

108  CONTINUE 
Q1=PU  > 

0 2 = Q f 1 } 

DO  301  N=f  1 , NF  LW 
DO  301  1=1 ,L2 

DO  301  d=1  * I 
R ( I , J , H)  a 1 , 

301  R( d, I ,N) = 1 , 

DO  100  N-1.NFLW 
NN=N*-4 

NK-N-3 
CG-0  . 

IF(N  . EQ  * 5 .OR.  N . EQ  , G)  CG=G  ( NN ) 

VARM)  =0-0 
DO  200  d=2,L2 
L = d/2 
dd=2* J- 1 

VAR(d)  =VAR 1 d - 1 > + ( CAP ( dd  , N ) +4  , * CAP ( dd - T , N ) ^CAP ( dd - 2 ♦ N 1 

IDP(d-t)  / 2940 , 
dMl=d-1 

DO  300  1=2, JM t 

M-  ( f 1/2  ) *2- I > M(I/2>*2~I>M  1 d/2>  *2-d)  * ( (d/2)  *2- J > 

I F ( M . EQ - O)  GO  TO  300 
PM= VAR { J ) -VAR{ I ) 

AV= ( CM  f d } -CM  f I ) ) 

PD  = CG  * AV  + SQR  T (C(N>*PM) 

I F { PD  . GT . 9,)  GO  TO  2B9G 

R< I rd,N)*uXP(-PD) 

IFCN.LT-  4 .OR,  N . GT . 6)  GO  TO  25 
IF ( N , EQ . 6 ) GO  TO  26 
R{I,d,NJiRfI ,d ,N) -CTRANSt I , d ,NK ) 

GO  TO  25 

26  R f I ,d rN) *Rf I ,d, N)*T03(I td) 

GO  TO  25 
2896  CONTINUE 

R(I,d,N)»0. 
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00255 

25 

RCd,  I ♦ N } “ft  (.1  . d.N) 

SLINKHD252 

00256 

300 

CONTINUE 

SLINKH0253 

00257 

PM=VAR 1 J } 

SLINHH0254 

00258 

AV=C M( J) 

SLINKH0255 

* . 

00253 

PD-CG  * AV+SQRT  <C<N»*PM) 

SLINKH0256 

. ' 

00260 

IF  < PD  „ GT ♦ 9 * ) GO  TO  1S95 

SLINKH0257 

0026  1 

R ( 1 , J,N > =EXP < - PD } 

SL I NKHQ258 

00262 

IF ( N * LT . 4 , OR  * N „ GT . 6}  GO  TO  85 

5LINKH0253 

00263 

IFtN  .EQ.  6)  GO  TO  86 

SLINKHO260 

it 

00264 

R ( 1 , J,N}=R(1 , d.N) *CTRANS< 1 , J, NK ) 

SLI NKHQ261 

1 

00265 

GO  TO  85 

SLINKH0262 

i 

00266 

86 

RU,J,N)=R<1td.N)  + T03  M f J > 

SLINKH0263 

J 

00267 

GO  TO  85 

SLINKH0264 

0026S 

1896 

CONTINUE 

5LINKH0265 

00263 

R<  1 , d«N?=0. 

SLINKHD266 

00  270 

B5 

R(d, 1 ,N)=RC 1 , d.N) 

SL I NKH0267 

00271 

200 

CONTINUE 

SLINKH0268 

00272 

I F ( N -GT,  NF J GO  TO  111 

5LINKH02B9 

00273 

TT  = ( T 1 -260  . f * t . E-3 

SL1NKHO270 

i 

00274 

TTT=TT*TT 

SLINKH0271 

i 

f 

00275 

CAP  1 = EXP< APR  I (NJ*TT+BPRI <N>*TTT) 

SLINKHD272 

s 

00276 

TT=t T2-2SO. }*1 .E-3 

SLINKH0273 

i 

00277 

TTT  = TT*  TT 

SL 1 NKH027  4 

00278 

CAP 2 = EXP  f AF  R I ( N ) * TT+BP  R I C M J 'TTT  J 

SLINKH0275 

? 

00273 

GO  TO  112 

5LINKH027S 

i ■ 

00280 

1 1 t 

CAP  1 = 1 . 

SL INKH0277 

j 

00281 

CAP  2 = 1 . 

SL INKH027S 

;"■ 

00282 

T 12 

TERM1- (CAP2*Q2*P2/GRNDP+  CAP {1 * N ) ) *DP2  /1960. 

SLI NKH0279 

;■ 

002B3 

TERM=TERMt+ (CAP  1 +Q  1 *P  1 + CAP2  *Q2*P2 ) 'DPI  /{  1960.  *GRNDP) 

5LINKHO2B0 

002B4 

CM!  1 = tCONT2+q2*P2*DP2  *Q2/GRNDP+  CONT  ( U *DP2  )/l9G0. 

SLINKH02S 1 

; - 

002S5 

CMI  =CMM  + (CONTI  *Q1  *P  1 *DP  1 *01  J-COWT2  *Q2*P2*DP1  +Q2)/t  I960, 

* GRNDP ) SL I NKHQ2B2 

00286 

DO  100  1=1 ,L2 

SL I NKH0283 

00287 

PH  1 1 =TERM+VAR .( I ) 

SLINKHD2S4 

0028B 

PH-TERM  t + VAR  ( I J 

SLINKH0285 

‘t  1 

00283 

AV1=CMIT  +CMCI) 

SL I NKH0286 

00290 

A V = C M I +CM(I) 

SLINHHQ2S7 

■j  , 

00291 

PD  = CG  * AV 1 + 5QRT C C t N ) * PH ) 

5LINKH02B8 

Iv\  ' 

00292 

IFI  PD.GT.  9 . ) GO  TO  5890 

SLINKH0289 

*r 

00293 

TINFfI,N)-EXP( -CG  * AV  - SQRT (C < N > * PH  I I ) > 

SLINKH0230 

1 \ 

00294 

WTRIWF ( I , N ) =EXP(~PD) 

SLINKH029 1 

00235 

IFtN  .LT.  4 .OR.  N.GT.  6)  GO  TO  100 

SL INKH0292 

U 'i  . 

00236 

IFtN  . EQ , 6)  GO  TO  101 
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h * ; 

00237 

TINF  U ,N  > = TINF  < I ,N) *CTINF  t I . NK  > 

SLINKH0294 

• h 

00233 

WTRINF ( I , N ) =WTR I NF { I ,N) *CTINt I , NK ) 
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i 

00299 

GO  TO  100 

SLINKH0296 

j*  • 

00300 
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TINF ( I ,N)=TINF  < I ,N)*TI  H I ) 

SLINKHQ297 

i 

0030  1 

WTRINF ( I , N> =WTRINFt I tNJ *TI2 ( I ) 
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GO  TO  100 
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CONTINUE 
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00304 
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continue 
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CONTINUE 
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^Air_  — 


•if5_ 


ft 

* 


o 

Ul 


00325 

00326 

00327 

00328 

00329 

00330 

0033  I 

00332 

00333 

00334 

00335 

00336 

00337 
0033a 

00339 

00340 

0034  t 

00342 

00343 

00344 

00345 

00346 
O0  347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 


00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00368 

00369 

00370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 

00378 

00379 

00380 

00381 

00382 

00383 

00384 

00385 

00386 


SURFU=0 , 

K - 1 

IF ( I . EQ  . 1 ) GO  TO  3366 

I F ( I .EQ.  LLLAY  .AMD.  IUP<I~1>  .60.  LLAY)  GO  TO  2115 

i f < i .gt.  lupci-ni  K*rupii-n  + t 

3366  CONTINUE 
KKK-K'2 
KK=KKK- 1 

DO  2100  d = K * LLAY 
S(I,J)sO.- 
d Jd  = 2 r (J 
Jd=dJJ- 1 

IFtd  .EQ.  IUP( J> ) GO  TO  2115 
IdTE5T=<t-d)  + (2MI-d)-3> 

1FUJTEST)  208  1 ,2082,2083 
2081  00  2210  N = 1 , NFLW 

rMRdl-l  , II  ,N>  , LT . .98  ) GO  TO  3053 

AGM  IBB  II  II- 1 ,M>  -BB<  III, N)>*M.+Rfll~1. II, N))+(BB <111-2, N>- 
t BB  < 1 1 1 - 1 , N ) )*(R(II-1 , 1 1 iNJ+RIII-2, II , N ) ) J/2. 

GO  TO  3054 

3053  CONTtNUE 

TRB=  . 125M6.*R<Jd  + 1.H>N)-3.*R(dd1II,N>-RrJd  + 2,II,NM 
SSB=  . 125*  (6  . "SStddd  (N)  +3  . *5S( JJJ+  1 < ISi)  -SS  ( ddd-  1 ,N)I 
TERM2= 1 TRAD < d Jd ) - TRAD ( ddd+ 1 ) } * ( SS < Jdd . U ) * R f dd . II , N 1 *4 , *SSB * TRB i 
+SS(Jdd+tfN)*R(dd+1 ,11 ,NJ>/6. 

I F < R < 1 1 - 1,  1 1 , N ) .GE.  .71  GO  TO  T515 

TERW1  = {1./G,*R(iI-1,II,NnMBB(in-1  ,U)  -BB  ( III  ,N)  ) 

AG=TERM1 +TBRM2 
GO  TO  3054 
1515  CONTINUE 

TRD=. 1 25* ( 6 . * R { JJ+ I ,II,N1+3,*R(Jd+2,II.N>-R<dd,II.N)J 
SSD- . 125+ (6. +SSfdJJ+2tN>*3, + SS  t JJJ-1 , N ) - 5S t J J J + 3 * N ) ) 

AG-TERM2 

1+  ( TRAD  < Jdd  + 1 ) - TRAD  ( ddd+2 ) ) MSSfdJJ*  I ,N  \ *R<  dd  + 1 , II  , N>  +4  . * 

2SSD*TRD  + SS(ddd-2 ,N) +R{ Jd*2  f II ,N)  } /6 . 

3054  CONTINUE 

S( I ,d) =S{ I , J) + AG  +DELNU  f N ) 

2210  CONTINUE 

GO  TO  2400 

20B2  DO  2220  N=1,NFLW 

IF (Ri I 1 + 1 ,11 ,N>  .LT.  .98  ) GO  TO  3063 

AG=<  (BB(IH,N)-BB(III  + 1 , N ) )*(  1 . +R ( I I + 1 ,11  , N ) ) + ( BB  ( 1 1 I 1 , N 1 - 
1 B B <111+2, W) )*<RfII  + 1tIIiN)+R<II+2, II , N ) ) )/2. 

GO  TO  3064 

3063  CONTINUE 

TRD= . 1 25 * { 6 . + R { J J+  1 , II  ,N ) +3 . +R ( dd  + 2 , 1 1 , N > -R f dd , 1 1 , N ) ) 

SSD=, 1 25* (6,+S5fddd+2,N)+3. +SS<JJd+1 , N ) -SS t d Jd +3 . N ) ) 

TERM2=  C TRAD ( ddd+ 1 ) -TRAD { ddd  + 2 ) ( SS { Jdd  + 2 f N ) * R ( dd-2 . 1 1 ,N) A 
14 . *SSD*TRD+SSf JJd+1 , N ) + R { dd+ 1 , 1 1 ,N) )/6. 

IFIRdl  + l.n.H).  .GE.  .7)  GO  TO  1616 

TERM1 -< 1 ,/6.+RfII+1 t 1 1 rN) I * f BB (III ,N) -BBf II 1+1 ,N1) 

AG=  TERWt  +TERM2 
GO  TO  3064 
1616  CONTINUE 

TRB= . 125* (6. +R  < JJ+ 1,11 . N > +3 , +R < dd , 1 1 T N ) -R < Jd  + 2 . II ,N> 1 
SSB= . 125*(6.*55(ddd*NJ+3. +SS(ddd+l ,NJ-SS(ddd-l rN|) 

AG“  < TRADtddd)  - TRAD  (ddd4-  1 ) } * { SS  { ddd  , N ) *R  < dd  .II  , N ) +4  . * SSB  * TRB- 
1 55  ( ddd  + t , N ) * R ( Jd  + 1 ,11  ,N>  1/6. 

AG-AG+TERM2 

3064  CONTINUE 

Sir , J ) -S ( I , d ) + AG  *DELNU(NJ 

2220  CONTINUE 

GO  TO  2400 
2033  N=NFL 

TRBs . 125* (6. *R  < JJ+1  , II ,N>+3.  + R ( Jd . 1 1 T N ) -R ( dd  + 2 , 1 1 ,N}  ) 

SSB  = . 125*<G,*SS< JJd,N>+3.*SS(dJJ+1  , N J -SS f Jd J- 1 tN)  1 
TRD= . 125* (6. *R(dd+ 1 , 1 1 ,N)+3. *R(dd  + 2, II t N ) -R < Jd , 1 1 t N ) ) 

SSD=  . 1 25*  { 6 , *SS  f ddd + 2 , N ) +*3  . *SS  ( Jd  J+  I „ N J -SS  { ddd  + 3 , N ) > 

TERM2“ ( TRAD ( ddd) -TRAD  f ddd- 1) ) * 1 SS ( ddd , N ) *R ( dd , 1 I f N>  *4 . *SSB*TRB* 
*SS(ddd*1  ,N)*Rfdd+1  ,11 ,N)  1/6. 

T M TRAD ( ddd+ 1 ) -TRAD  f ddd*  2 > 1 * < SS 1 ddd+ 1 rNi *R ( JJ- 1 , I I , N > x4 . * 


SLINKH0323 
SLINKN0324 
5LINKH0325 
SLINKHD326 
SLINKH0327 
SL  INKHQ328 
SLINKHQ329 
SLINKHO330 
SLINKH0331 
SL I NKN0332 
SLINKH0333 
5LINKHQ334 
SLINRH0335 
SLINKH0336 
SLI NKH0337 
SLINKH0338 
SLINKK0339 
SLINKH0340 
SLINKH0341 
SLINKH0342 
SLINKHQ343 
SLINKK0344 
SLINKH0345 
SLI NKH0346 
SL I NKH0347 
SLINKHQ34S 
SLINKH0349 
SLINKHO350 
SLINKH035 1 
SLINKH0352 
SL I NKH0353 
SLINKH0354 
SLI NKH0355 
SL I NKH0356 
SL I NKHQ357 
SL I NKK035S 
SL I NKH0359 
SLINKHO360 
SLINKH0361 
SLINKH0362 
SLINKK0363 
SLI NKH0364 
SLINKH0365 
SL I NKH0366 
SLINKH0367 
SL I NKH036B 
SL I NKH0369 
SLINKHO370 
SL I NKH037  t 
SLINKH0372 
SLINKH0373 
SLI NKH0374 
SLIWHH0375 
SL I NKH0376 
SLINKH0377 
SL I NKW037B 
SL I NKH0379 
SLINKN0380 
SLINKH0381 
SLINKH0382 
SLINKH03S3 
SLINHN0384 
SLINKH0385 
SL l NKK03S6 
SLINKH0387 
SLI NKH03SS 
5LINKH03B9 
SLINKH0390 
SLINKH0391 
SLINKH0392 
SLI NKH0393 


§ O 

38 

gf 

9 v 

> CD 

C 


LXNKHO  6 


'\K  ' 


00337 

00383 


00389 

00330 

00331 
00392 
00333 

00394 

00395 

00396 

00397 

00398 

00399 

00400 

0040  t 

00402 

00403 

00404 

00405 

00406 

00407 
00403 
00409 
004  1 0 

0041  1 
00412 
004  T 3 
004  14 
004  15 


2SSD-TRD+S5C  UJJ  + 2 tN)*R<dd+2.1I  ,N))/6* 
SC  1 , J) =Sf I » d > * TERM2 
3 CONTINUE 

WRITE 16,88)  I.d,  S(I,d> 

3 FOR?AAT{2X,2IS,£l2.5> 

SUM=SUM+5( I . J) 

) CONTINUE 
5 CONTINUE 

S(I (LLLAV»=0. 

I F < I . EQ , H GO  TO  8 


IF  < I ,£Q. 

CONTINUE 
IF(d  ,EQ.  LLLAY)  GO  TO  2156 
IF(  d . EQ . lupun  GO  TO  25  12 
3 00  2500  N=1 , NFLW 

> SURFL  = SURFL+ 1 BG<  N) -SB ( LL  r N H *R 1 L2 , I I t N 1 * DELNU  t N ) 

! IF  U .EQ.  1)  GO  TO  2556 

IFUUP(I-I)  . NE  . 0)  GO  TO  25  10 

i DO  2501  N=1 tNFLW 

S{I, LLLAY) =S( I ♦ LLLAY)  + ( T I NF ( 1 1 t N ) *SS It N ) +4 . *WTRINF  1 I I , N ) * SS 
1 R r 1 JI  ,N)  -SSf2,N1  )MTf'T(n)/G,  *DELNU<N) 

I SURFU  = 5URFU  + BB1  <N)-TINFfII,N> * DELNU  t N ) 

I CONTINUE 

RE i IBB , I ) =SURFL*SURFU-SUM-S< I , LLLAV) 

RE  ' IBB , I ) =RE ( I BB  , I ) * .2064E-2 
) CONTINUE 
DO  5552  1= 1 , LLA Y 
PL ( IBB  r I ) =FL( IBS  r I J * 1 , E -3 
PLE  t I0B  t 1 ) -PLE ( IBB  , I ) * 1 . E-3 
! CONTINUE 

PLE  1 IBB  , LLLAY)  = PLE  1 IBB  . LLLAY)*-  1 . E-3 

RETURN 

END 


IUP4I-1)  ,E0,  LLAY)  J = LLLAY 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


r\'  i 

1 0 

92 

91 

too 

306 

228 

6 ; 

1000 

214 

202 

101 

300 

296 

v ) 

tos 

220 

216 

u u 

1 1 

194 

1 13 

:‘fc  [ 

1100 

2 03 

203 

r!  ; 

1 1 1 

280 

272 

] [ 

112 

232 

279 

}A 

12 

164 

123 

? v 

1256 

148 

133 

2p 

1257 

154 

147 

13 

163 

126 

u 

1333 

152 

161 

i f.  f 

14 

136 

127 

hi  1 

15 

14  1 

135 

I .t 

j ■ ; 

1515 

352 

348 

i 

1616 

372 

36S 

i 

IS 

162 

153 

t ; 

1836 

268 

260 

i J 

19 

161 

155 

j ■ 

20 

93 

89 

\ * ' 

200 

27  1 

234 

2000 

4 OB 

320 

| } 

203  t 

340 

339 

20B2 

360 

339 

r ' 

2083 

33  I 

339 

[ . 

21 

138 

182 

2100 

390 

333 

i 

21  15 

391 

328 

Z1S6 

398 

396 

\ 

2210 

353 

340 

1 

2220 

379 

360 

L 

2324 

85 

72 

ORIGINAL  PAGE  S 


1— t 


, l VS.  I-  -A'  t^r 


ii 

k 

i 


! 

i 


ji* 


i 

\ * 


i 

I’i 

i 

f 


a' 


ri 


2333 

T 93 

192 

2400 

35B 

359 

380 

25 

255 

247 

250 

252 

2500 

399 

398 

250  1 

404 

402 

25  10 

405 

40  1 

2512 

400 

397 

2555 

66 

61 

2556 

402 

400 

26 

25  1 

24B 

2896 

253 

245 

30 

200 

198 

300 

256 

239 

24  1 

301 

227 

223 

224 

223 

3053 

344 

34  t 

3054 

356 

343 

35  1 

3063 

364 

361 

3064 

377 

363 

371 

3366 

330 

327 

4300 

190 

169 

170 

1 7 t 

430  1 

T 77 

175 

4302 

1 76 

172 

507 

31  1 

307 

309 

508 

319 

312 

313 

5354 

1 12 

1 10 

5552 

4 12 

409 

5B5B 

186 

184 

5859 

159 

157 

5890 

303 

292 

6 

104 

9B 

605 

317 

315 

7 

102 

101 

7777 

117 

114 

7773 

118 

116 

8 

395 

393 

BO 

97 

94 

95 

96 

E5 

270 

262 

265 

2-7 

86 

266 

263 

8 

103 

99 

100 

102 

9000 

105 

88 

VARIABLE  MAP 


-NAME- 

BLOCK 

— TYPE 

CLASS 

— REFERENCES 

A = 

ARGLIST 

ag 

REAL 

SIMPLE 

342/S 

350/S 

355/S 

AL 

RADCOM 

REAL 

ARRAY 

17 

apr  r 

REAL 

ARRAY 

37 

40/1 

15S 

AS 

RADCOM 

REAL 

ARRAY 

2 

AV 

REAL 

SIMPLE 

130/S 

131 

132 

AVI 

REAL 

SIMPLE 

2S9/S 

291 

SB 

REAL 

ARRAY 

39 

206/S 

207 

362 

362 

369 

SB  1 

REAL 

ARRAY 

38 

212/S 

213 

BG 

REAL 

ARRAY 

38 

209/S 

299 

BPRI 

real 

array 

37 

41/1 

158 

C 

REAL 

ARRAY 

37 

43/1 

244 

CAP 

REAL 

ARRAY 

33 

152/5 

160/S 

GAP  1 

REAL 

SIMPLE 

275/S 

280  /S 

2B3 

CAP  2 

REAL 

SIMPLE 

27B/S 

2B1/S 

2B2 

CAPPSI 

REAL 

ARRAY 

39 

156/S 

T5B/S 

CDA  TE 

RADCOM 

REAL 

ARRAY 

26 

CG 

REAL 

SIMPLE 

23  1 /S 

232/S 

244 

CLOUD 

RADCOM 

REAL 

ARRAY 

B 

65 

CM 

REAL 

ARRAY 

38 

2 15/S 

219/S 

CMI 

REAL 

SIMPLE 

2B5/S 

290 

CMI  1 

REAL 

SIMPLE 

2E4/S 

2es 

2B9 

CWUCUB 

REAL 

ARRAY 

37 

45/1 

206 

CONT 

REAL 

ARRAY 

39 

144/S 

146/S 

2 19 

284 

CDNTt 

REAL 

SIMPLE 

107/S 

285 

C=CTRL  OF  DO,  I^DATA  INIT.  R=READ,  S=STORE . W=WRITE 


357 

362/S 

370/S 

375/S 

376/S 

376 

378 

IBS 

275 

278 

243/S 

244 

258/S 

259 

290/S 

293 

342 

369 

404 

342 

399 

342 

342 

349 

349 

362 

362 

185 
259 
1 S 7/S 

275 

291 

193/S 

278 

293 

237 

237 

237 

28  2 

283 

160 

183/S 

185  /S 

187 

259 

29  1 

293 

219 

243 

243 

258 

289 

290 

209 

146 

2 12 
1 49/S 

iso/s 

18  1/5 

IB  1 

1 9 1 /S 

2 19 

219 

.a..  ~ 


ORJQftMAi  PASS  m 
OF  POOR  QUALITY 


C0NT2 

REAL 

SIMPLE 

iob/s 

284 

2B5 

cosz 

R A DCOM 

REAL 

ARRAY 

28 

CTIM 

REAL 

ARRAY 

37 

91/R 

298 

o o 

CTINF 

REAL 

ARRAY 

37 

91/R 

297 

Tt  50 

CTRANS 

REAL 

ARRAY 

37 

91/R 

97/S 

97 

249 

264 

CVQ 

RADCGM 

REAL 

ARRAY 

14 

TJ  g 
02 
O 3? 

po  r* 

cvt 

RADCQM 

REAL 

ARRAY 

14 

CXDE 

radcom 

REAL 

ARRAY 

15 

CXL 

RADCOM 

REAL 

SIMPLE 

28 

CZH 

RADCOM 

REAL 

ARRAY 

27 

DELNU 

REAL 

ARRAY 

37 

46/1 

310 

316 

357 

378 

399 

403 

404 

.o  "JO 
C 2? 

PS 

DP 

REAL 

ARRAY 

36 

75/S 

76/S 

78 

80 

219 

237 

DP  T 

PEAL 

SIMPLE 

69/S 

283 

2S5 

285 

DP2 

REAL 

SIMPLE 

70/S 

282 

284 

234 

EVAP 

RADCQM 

REAL 

SIMPLE 

27 

FK 

RADCOM 

REAL 

ARRAY 

23 

FROST 

RADCQM 

LOGICAL 

ARRAY 

32 

33 

G 

REAL 

ARRAY 

37 

42/1 

232 

GAM 

R A DCOM 

REAL 

ARRAY 

9 

GRNDP 

REAL 

SIMPLE 

47/1 

81 

82 

83 

84 

87 

282 

283 

284 

285 

HH 

R A DCOM 

REAL 

ARRAY 

12 

HHE 

RADCQM 

REAL 

ARRAY 

1 2 

HHS 

RADCQM 

REAL 

ARRAY 

13 

t 

INTEGER 

SIMPLE 

6 1 /C 

62 

62 

63 

63 

64 

64 

65 

65 

66 

90 

9 1 

9 1 

9 3 

91 

95  /C 

96 

97 

97 

99 

99/C 

too 

TOO/C 

TO  1 /C 

1 02 

1 TO/C 

1 1 1 

1 T3/C 

1 14 

1 1 4 

t 15 

1 15 

1 19 

1 T9 

1 20 

1 20 

1 22 

1 22 

125 

1 27 

1 37 

1 38 

139 

140 

140 

164 

167 

168 

169 

169 

170 

171 

172 

174 

198 

199 

200 

203/C 

204 

206 

207 

207 

207 

224/C 

225 

226 

227 

239/C 

240 

240 

240 

240 

242 

243 

24  6 

249 

249 

249 

25  1 

25  1 

25  1 

254 

255 

255 

286/C 

287 

288 

289 

290 

293 

294 

297 

237 

297 

298 

29B 

293 

300 

300 

300 

30  t 

301 

30  t 

304 

305 

307/C 

30E 

3 10 

310 

310 

313/C 

3 t 4 

316 

316 

316 

316 

318 

31B 

318 

320/C 

321 

327 

328 

328 

329 

329 

329 

334 

338 

338 

357 

357 

378 

378 

387 

337 

3B9 

392 

393 

394 

394 

400 

401 

403 

403 

406 

406 

407 

407 

409/C 

410 

410 

4T  1 

411 

IBB 

INTEGER 

SIMPLE 

1 

62 

62 

63 

63 

64 

64 

65 

67 

67 

68 

68 

70 

75 

75 

76 

76 

77 

78 

79 

BO 

86 

109 

1 1 1 

1 14 

1 14 

T 15 

115 

1 19 

1 19 

1 20 

120 

131 

133 

134 

134 

134 

137 

133 

139 

140 

1 40 

167 

lea 

169 

169 

170 

17  1 

172 

174 

201 

209 

406 

407 

407 

4 1 0 

4 10 

41  1 

41  1 

4 13 

413 

ICE 

RADCQM 

LOGICAL 

ARRAY 

31 

33 

IDAY 

INTEGER 

SIMPLE 

1 

7 1 

ri 

INTEGER 

SIMPLE 

322/S 

34  1 

34  1 

342 

342 

342 

342 

342 

342 

345 

345 

345 

347 

347 

348 

348 

349 

349 

353 

353 

353 

355 

355 

36  1 

36  1 

362 

362 

352 

362 

362 

362 

365 

365 

365 

367 

367 

368 

36S 

369 

369 

373 

373 

373 

375 

375 

382 

3B2 

382 

384 

334 

384 

386 

385 

386 

386 

399 

403 

403 

403 

404 

in 

INTEGER 

SIMPLE 

321  /S 

322 

342 

342 

342 

342 

349 

349 

352 

362 

362 

362 

369 

369 

I \S 

integer 

SIMPLE 

74/S 

77 

78 

79 

80 

81 

8 1 

82 

ez 

83 

33 

84 

84 

I JTE5T 

INTEGER 

SIMPLE 

338/S 

339 

I UP 

INTEGER 

ARRAY 

38 

66/S 

328 

329 

329 

337 

394 

397 

40  1 

J 

INTEGER 

SIMPLE 

72/C 

73 

74 

75 

75 

76 

76 

77 

73 

79 

80 

9 1 

91  /C 

96/C 

97 

97 

102 

102/C 

2 16/C 

2 t 7 

218 

219 

219 

219 

22S/C 

226 

227 

234/C 

235 

236 

237 

237 

237 

238 

24  0 

24  0 

24  0 

240 

242 

243 

246 

249 

243 

249 

251 

25  t 

251 

254 

255 

255 

257 

25B 

26  1 

264 

264 

264 

266 

266 

266 

269 

270 

270 

3 12/C 

3T4 

316 

3 16 

31  6 

3 18 

318 

333/C 

334 

335 

337 

337 

33e 

333 

357 

357 

378 

378 

3 37 

387 

3B9 

394/S 

396 

397 

397 

JALB 

R A DCOM 

INTEGER 

SIMPLE 

30 

106 

JO 

INTEGER 

SIMPLE 

73/S 

75 

76 

78 

BO 

12B/S 

129 

13  1 

134 

136/S 

137 

139 

140 

142 

144 

T 44 

145 

146 

1 46 

146 

146 

146 

149 

150 

152 

156 

158 

160 

160 

160 

160 

166/5 

TG7 

w 


VO 


' V i - ■ 


\ i- 


168 

174 

176 

176 

1 70 

180 

180 

181 

181 

181 

181 

IT4 

M 

i 

181 

183 

1 85 

187 

187 

187 

107 

190 

191 

193 

210 

i— » 

2TB 

219 

219 

23S/S 

237 

237 

237 

336/S 

345 

345 

345 

o 

347 

347 

353 

353 

353 

355 

355 

365 

365 

365 

367 

367 

373 

373 

373 

375 

375 

382 

382 

332 

304 

3S4 

384 
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SBEGDEB 

6 

C5S5$SS5$SSSS5SSSSSSSS$SS$SSS35SSS5$$£SSSS5S£SS5SSSS£SSSS$S5SS5SSS£S$5SSSBEGDEB 

7 

c 

SDZONE2 

7 

c 

SOZONE2 

a 

c 

SOZONE2 

9 

00056 

CDAY  “ 

XDAY  - 63.0 

SOZONE2 

10 

0Z0NE2  1 


00057 

IF  < XLAT.LT.0.00)  CDAY  - CDAY  + 183,0 

SOZONE2 

1 1 

00053 

IF  ( CDAY . GT . 365 , > CDAY  t CDAY  - 365.0 

SOZONE2 

12 

00053 

QL  AT  = ABS(XLAT) 

SOZONE2 

13 

00060 

DO  100  0=1,5 

SOZONE2 

14 

oaoGi 

CD A TE  J = CDATE(J) 

50Z0NE2 

IS 

00062 

IF  < CDAY.LT . CDATEJ)  GO  TO  T10 

SOZONE2 

16 

00063 

CDATEI =CDATE  J 

SOZONE2 

17 

000G4 

1 00 

CONTINUE 

5DZONE2 

18 

00065 

1 10 

CONTINUE 

SOZONE2 

19 

00066 

DXDATE  = ( CDAY  - C DATE  I ) / i CDATE J - CDATEI) 

SOZONE2 

20 

00067 

DLATI  = 0.0 

SOZONE2 

2 1 

000  68 

DO  120  K = 2 , 19 

SOZONE2 

22 

00069 

J = H 

SQZONE2 

23 

00070 

DLATd  = DLATI  * 5.0 

SOZONE2 

24 

000  7 t 

IF  fDLAT .LT.OLATJ)  GO  TO  130 

SOZONE2 

25 

00072 

DLATI  * DLATd 

S0Z0NE2 

26 

00073 

1 20 

CONTINUE 

SOZONE2 

27 

00074 

130 

CONTINUE 

SOZONE2 

28 

00075 

DXDLAT  = fDLAT  - DLATI  1/5,0 

SOZONE2 

29 

00076 

JM 1 - J - 1 

SOZONE2 

30 

c 

SOZQNE2 

31 

c 

* 

32 

c 

* * *• 

* + 

*****  SOZONE2 

33 

c 

*■** 

• TOTAL  VERTICAL  OZONE  CONTENT  fCM*NTP> 

SOZONE2 

34 

c 

* * 

FOR  GIVEN  LATITUDE  AND  DATE 

SOZONE2 

35 

c 

*****  SOZONE2 

36 

C 

37 

c 

SOZONE2 

38 

00077 

IF  fCDAY.GT.  f5 .00)  GO  TO  150 

SOZONE2 

39 

00079 

T 40 

CONTINUE 

SOZONE2 

40 

00079 

001  = OLOCTiJMU  + DXDLAT* ( OLOCT ( d ) - OLOCTldMU) 

S0Z0NE2 

41 

oooso 

OD2  = OLdAN(dMI)  + DXDLAT  * f OLJAN f J ) - OLdAN ( JM 1 ) > 

SOZONE2 

42 

0008  1 

GO  TQ  200 

SOZONE2 

43 

00082 

150 

CONTINUE 

SOZONE2 

44 

00083 

rF  (CDAY. GT. 105.0)  GO  TO  170 

SOZONE2 

45 

00084 

001  = OLdAN(dMt)  + DXDLAT* (OLJANfJ)  - OLdAN(dMI)) 

S0Z0WE2 

46 

0 0085 

OD2  = OL  APR  f JM  1 ) +■  D XDLA  T * 1 OL  APR  ( J ) - OLAPR(JMU) 

SOZONE2 

47 

OOOS6 

GO  TO  200 

SOZONE2 

48 

OOOS7 

170 

CONTINUE 

SOZONE2 

49 

00088 

IF  ( CDAY .GT.  t96  .O)  GO  TO  190 

SDZ0NE2 

50 

00089 

0D1  = OLAPR(dMI)  * DXDLAT  * ( OLAPR  ( d ) - OLAPRfJMU) 

SOZONE2 

51 

00090 

OD2  = OLJULfdMl)  + DXDLAT* (OLdULfd)  - OLdUL { dMI ) ) 

SOZONE2 

52 

0009  t 

GO  TO  200 

SOZONE2 

S3 

00092 

190 

CONTINUE 

S0Z0NE2 

54 

00093 

IF  f CDAY .GT ♦ 2S8 , 0 > GO  TO  140 

SOZONE2 

55 

00094 

OD1  = OLJUL(dfVM)  * DXDLAT*  1 OLdUL  (d  ) - OLdUL  1 JM  1 ) ) 

SQZONE2 

56 

00095 

OD2  - OLOCTIdMH  + 0 XDLA  T * i OLOCT  < J ) * OLOC  T < JM  t > ) 

S0Z0NE2 

57 

00096 

200 

CONTINUE 

502 ONE 2 

58 

00097 

TOTOCM  = OD1  + DXDATE  * 1 002  - CD  1 ) 

SOZONE2 

59 

c 

r> 

S0Z0NE2 

60 

L 

6 1 

c 

• * * 

* 

*****  SOZONE2 

62 

c 

ar  * * 

* VERTICAL  OZONE  DISTRIBUTION  FOR  GIVEN  TOTAL  OZONE  CONTENT  *****  S0Z0ME2 

63 

c 

n 

+■  *■  +■ 

* 

*****  SOZONE2 

64 

65 

C 

SO ZONE 2 

66 

00098 

TOTOZ I = TOTOZ<1) 

SOZONE2 

67 

00099 

DO  210  K =2 , 4 

5OZ0NE  2 

68 

00  TOO 

J = K 

SOZONE2 

69 

00  1 01 

TOTOZd  = TOTOZ  ( d ) 

SOZONE2 

70 

00  102 

IF  (TOTOCM, LT, TOTOZd)  GO  TO  220 

SOZONE2 

71 

00103 

TOTOZI  - TOTOZd 

SOZONE2 

72 

00  1 04 

210 

CONTINUE 

S0Z0NE2 

73 

00  105 

220 

CONTINUE 

SOZONE2 

74 

00  1 06 

DXOCM  = (TOTOCM  - TOTOZI)/O,08 

SOZONE2 

75 

00107 

IF  ( J . GT - 2 ) GO  TO  240 

S0Z0NE2 

76 

OOTOS 

DO  230  N- 1 , NOZ 

S0Z0NE2 

77 

00  1 09 

OCMXXfN)  “ OCM22fN)  + DXOCM*  ( OCM30  ( N ) - OCM22{N)> 

50Z0NE2 

78 

OOI  1 0 

230 

CONTINUE 

SOZONE2 

79 

ootir 

GO  TO  280 

S0Z0NE2 

80 

00  112 

240 

CONTINUE 

SOZONE2 

81 

o 

N 

O 

s: 

w 

N> 

ro 


s 


o 


0 rp 

01 

<0  *V3 

C 

Ci 
I"  i33 


3 


I 


i \ 

i 1 


» 


i i 

1 " 


m !■ 


v r m 


00  113 

IF  CJ.GT.3)  GO  TO  260 

SOZONE2  S2 

00  1 14 

DO  250  N-  1 . NOZ 

SOZQNE2  S3 

OOI  15 

OCMXX(N)  - OCM30{N>  * D XOCM*  1 0CM3B  < N \ - OCM30(W>) 

SQZONE2  S4 

001  1 6 

250 

CONTINUE 

S0Z0NE2  85 

00117 

GO  TO  280 

S0ZGNE2  86 

001  IS 

260 

CONTINUE 

SOZONE2  87 

00119 

DO  270  N=1 , WOZ 

SOZONE2  88 

00  1 20 

OCMXX(N)  = OCM3S  ( N 1 + DXOCM*  ( 0CM46  ( N J - 0CM3S  f N 1 ) 

SOZONE2  39 

00121 

270 

CONTINUE 

S0Z0NE2  90 

C 

SOZONE2  91 

c 

c 

* * * = 

* 

c 

• + * * 

*+  OZONE  CONTENT  (CM*NTP)  ABOVE  EACH  LAYER  EDGE 

c 

* * * 

**  + 

c 

c 

S0Z0NE2  97 

00  122 

2B0 

CONTINUE 

5DZONE2  98 

c 

SOZONE 2 99 

00  1 23 

DO  810  I = 1 , I M 

S0Z0NE2100 

00  1 24 

IF 1 DARK ( I J > GOTO  S10 

SOZONE  2101 

00125 

NP  - 2 

50Z0NE2 102 

00125 

PROCMI  = PROCMM) 

SOZONE2 1 03 

c 

5OZ0NE2104 

00127 

DO  310  L = 1 , NL A YO 1 

SOZONE2 t 05 

001  28 

PLEN  = P LE  f I , L ) 

SOZONE210G 

00  129 

DO  290  K=NP,NO Z 

S020NE2107 

00  1 30 

J = K 

SOZONE2 1 OS 

00131 

PROCMJ  = PROCM  t J J 

SOZONE2109 

00132 

IFfPLEN.LT.PROCMdl  GO  TO  300 

SOZONE 2 1 10 

00  133 

PROCMI  = PROCMJ 

30Z0NE2 1 1 t 

00134 

290 

CONTINUE 

SOZONE21 12 

00135 

PROCMI  = PROCM(d-l) 

SOZONE21 13 

c 

SOZONE21 14 

00136 

300 

CONTINUE 

SOZONE21 15 

00137 

DXPRO  = (PLEN  - PROCMI 1 / ( PROCMJ  - PROCMI) 

SOZONE21 16 

00  138 

JM1  = d-1 

SOZONE 2 1 1 7 

O0  1 39 

NP  = J 

SOZONE21 18 

00140 

OZALE  < I , L ) * OCMXXtJMU  * DXP  RO  * f OCMXX  { J ) - OCMX  X ( JM  1 ) ) 

SOZONE21 19 

00141 

310 

CONTINUE 

SOZONE2120 

c 

S0Z0NE2 121 

00142 

a to 

continue 

SOZONE  2 1 22 

c 

SOZONE 2 123 

00  1 43 

RETURN 

SOZONE2124 

00  144 

END 

5OZ0NE2  t 25 
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A 

aclear 

OSOLAR 

REAL 

ARRAY 

44 

ACLOUD 

DSOLAR 

REAL 

ARRAY 

45 

I AL 

RADCOM 

PEAL 

ARRAY 

17 

AS 

R A DCOM 

REAL 

array 
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RADCOM 
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ARRAY 

26 

St 
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REAL 
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66 
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SIMPLE 
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62 

COAV 

REAL 

SIMPLE 

55  /S 

57/S 
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DSOLAR 

LOGICAL 

ARRAY 
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54 

CLOUD 
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REAL 

ARRAY 
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DSOLAR 
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array 
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54 

COSMAG 

DSOLAR 
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ARRAY 

36 

CD5Z 
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ARRAY 

28 

CVQ 
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ARRAY 

14 

CVT 
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28 
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DARK 
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ARRAY 
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DLAT 
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SIMPLE 

59/S 
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DLATI 

REAL 

SIMPLE 
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70 

DLAT  J 
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SIMPLE 

70/S 

71 

D50LAR 

REAL 

UNKNOWN 

34 

35 

45 

46 

i DXDATE 

REAL 

SIMPLE 

66/S 

97 

DXDLAT 

REAL 

SIMPLE 

75/S 

79 

DXOCM 

REAL 

SIMPLE 

106/S 

1 09 

i OXPRO 

| 

REAL 

SIMPLE 

137/S 

140 

1 EVAP 

RADCOM 

REAL 

SIMPLE 

27 

1 FCLD 

DSOLAR 

LOGICAL 

ARRAY 

53 

54 

! . fclear 

DSOLAR 

REAL 

ARRAY 

42 

i FCLOUD 

DSOLAR 

REAL 

ARRAY 

41 

FK 

RADCOM 

REAL 

ARRAY 

23 

! FROST 

RADCOM 

LOGICAL 

ARRAY 

32 

33 

FSCAT 

DSOLAR 

real 

ARRAY 

38 

GAM 

RADCOM 

REAL 

ARRAY 

9 
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real 

ARRAY 
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RADCOM 

real 

ARRAY 

12 
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RADCOM 

REAL 

ARRAY 
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INTEGER 

SIMPLE 
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ICE 

RADCOM 

LOGI CAL 

ARRAY 

31 
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1 IM 

integer 

SIMPLE 

1 
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INTEGER 

SIMPLE 
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61 

95 

100/S 

JALB 
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INTEGER 

SIMPLE 

30 
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INTEGER 

SIMPLE 
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INTEGER 
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SIMPLE 
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INTEGER 
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INTEGER 
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RADCOM 

INTEGER 
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INTEGER 
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INTEGER 
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ARRAY 
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85 
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TYPE CLASS REFERENCES  D = STMT  FN  DEF  . A = ARGL  1ST 

CTi 

INTRINSIC  59 


ABS 


REAL 


* \ • 'U, 


00001 


00002 

00003 

00004 
00Q0S 
00006 
00007 

ooooa 

00009 

00010 
000  1 I 
000  1 2 
00013 

OOO  |4 

ooois 
00016 
00017 
000  18 
000  19 
OOO  20 
00021 
00022 

00023 

00024 


00025 

00026 
00027 

0002a 

00029 

00030 
0003  1 

00032 

00033 

00034 

00035 

00036 

00037 
00035 

00039 

00040 

00041 

00042 

00043 

00044 

00045 
0Q04G 
00047 
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00050 
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SUBROUTINE  03  I NT < T0 1 . TQ2 , TR03 , TI T ,TI2, T03 , JALB  > 

C 

c 

C CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL/CCO  ~ 

COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  X L ABE  L |10l 
COMMON  /CCNTRL/  CQS  C30> 

COMMON  /CCNTRL/  COU  MOJ 

C 

EQUIVALENCE  (CCO,CC< I ) ) 

CHARACTER'S  CCO , CC(200> 

CHARACTERS  ADATE 

CHARACTER'S  ATIME 

CHARACTER'S  JIC 

CHARACTER'S  dOB 

CHARACTER'S  CCSP06 

CHARACTER'S  CCSP07 

CHARACTER -a  CCSPOS 

CHARACTER'S  VER 

CHARACTER'S  XLABEL 

C 

C INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  / I CNTRL / ICO 
COMMON  /I CNTRL/  IM 
COMMON  /I CNTRL/  IMD2 
COMMON  / I CNTRL / IMD2P1 
COMMON  /ICNTRL/  NDRSW 
COMMON  / I CNTRL/  dtf 
COMMON  / ICNTRL / JMD2 
COMMON  /I CNTRL/  JMT2 
COMMON  /ICNTRL/  dNP 
COMMON  /ICNTRL/  J04 
COMMON  /ICNTRL/  dOS 
COMMON  /ICNTRL/  JSP 
COMMON  /ICNTRL/  K L I ALB 
COMMON  /ICNTRL/  KlIGW 
COMMON  /ICNTRL/  KLI5ST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMMON  /ICNTRL/  L0G8R 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MAT5UN 
COMMON  /ICNTRL/  MLF  (12) 

COMMON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NKR5H 
COMMON  /ICNTRL/  M5M 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  NO 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAY 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHP 
COMMON  /ICNTRL/  NDT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHM5E 
COMMDN  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLAY 
COMMON  /ICNTRL/  NLA YM 1 
COMMON  /ICNTRL/  NLA YP 1 


S03INT 

2 

S03INT 

3 

scntrl 

2 

scntrl 

3 

SCNTRL 

4 

SCNTRL 

5 

SCNTRL 

6 

SCNTRL 

7 

scntrl 

a 

SCNTRL 

9 

scntrl 

10 

scntrl 

1 1 

SCNTRL 

1 2 

SCNTRL 

13 

SCNTRL 

14 

SCNTRL 

15 

SCNTRL 

16 

SCNTRL 

17 

SCNTRL 

IS 

SCNTRL 

13 

SCNTRL 

20 

SCNTRL 

2 1 

SCNTRL 

22 

SCNTRL 

23 

SCNTRL 

24 

SCNTRL 

25 

SCNTRL 

26 

SCNTRL 

27 

SCNTRL 

2S 

SCNTRL 

29 

SCNTRL 

30 

SCNTRL 

3 1 

SCNTRL 

32 

SCNTRL 

33 

SCNTRL 

34 

SCNTRL 

35 

SCNTRL 

36 

SCNTRL 

37 

SCNTRL 

33 

SCNTRL 

39 

SCNTRL 

40 

SCNTRL 

4 1 

SCNTRL 

42 

SCNTRL 

43 

SCNTRL 

44 

SCNTRL 

45 

SCNTRL 

46 

SCNTRL 

47 

SCNTRL 

48 

SCNTRL 

49 

SCNTRL 

50 

SCNTRL 

51 

SCNTRL 

52 

SCNTRL 

53 

SCNTRL 

54 

SCNTRL 

55 

SCNTRL 

56 

SCNTRL 

57 

SCNTRL 

58 

SCNTRL 

59 

SCNTRL 

60 

scntrl 

E 1 

5CNTRL 

62 

SCNTRL 

63 

SCNTRL 

64 

SCNTRL 

65 

SCNTRL 

66 

SCNTRL 

67 

SCNTRL 

68 

SCNTRL 

S3 

SCNTRL 

70 

CO 

M 

S3 

H3 


ORIGiWAl-  PAGE  ® 
OF  POOR  QUALHfY 


o 

LO 


a 

H 


SCNTRL 

71 

fO 

SCNTRL 

72 

SCNTRL 

73 

SCNTRL 

7 A 

SCNTRL 

75 

SCNTRL 

76 

SCNTRL 

77 

SCNTRL 

78 

SCNTRL 

79 

SCNTRL 

SO 

SCNTRL 

8 1 

SCNTRL 

32 

SCNTRL 

S3 

SCNTRL 

84 

SCNTRL 

35 

SCNTRL 

BG 

SCNTRL 

37 

SCNTRL 

88 

SCNTRL 

B9 

SCNTRL 

so 

SCNTRL 

9 1 

SCNTRL 

92 

SCNTRL 

93 

SCNTRL 

94 

SCNTRL 

95 

SCNTRL 

96 

SCNTRL 

97 

SCNTRL 

98 

SCNTRL 

99 

SCNTRL 

too 

SCNTRL 

tot 

SCNTRL 

1 02 

SCNTRL 

t 03 

SCNTRL 

T 04 

SCNTRL 

105 

SCNTRL 

106 

SCNTRL 

T 07 

SCNTRL 

toe 

SCNTRL 

109 

SCNTRL 

T 10 

SCNTRL 

t t 1 

SCNTRL 

1 T 2 

SCNTRL 

1 13 

SCNTRL 

f 14 

SCNTRL 

1 15 

SCNTRL 

1 1 6 

SCNTRL 

117 

SCNTRL 

1 IB 

SCNTRL 

1 19 

o o 

•n  pg 

SCNTRL 

SCNTRL 

120 
12  I 

SCNTRL 

122 

"0  G) 

SCNTRL 

123 

O 5? 
* r 

SCNTRL 

124 

SCNTRL 

125 

SCNTRL 

126 

SCNTRL 

SCNTRL 

t 27 
123 

«<2  3? 

SCNTRL 

129 

c > 

SCNTRL 

130 

& 

SCNTRL 

T31 

SCNTRL 

132 

—4  -ns 

SCNTRL 

133 

"4  -G£J 

SCNTRL 

134 

SCNTRL 

135 

SCNTRL 

136 

SCNTRL 

137 

SCNTRL 

138 

SCNTRL 

139 

SCNTRL 

140 

SCNTRL 

141 

001  26 

LOGICAL 

QRSW 

SCNTRL 

142 

00  1 27 

LOGICAL 

QRSH 

SCNTRL 

143 

C 

SCNTRL 

144 

00128 

LOG! CAL 

IQS 

SCNTRL 

14S 

00129 

LOGICAL 

LQU 

SCNTRL 

146 

00130 

LOGICAL 

LTMIN 

SCNTRL 

147 

00131 

LOGICAL 

LTMAX 

SCNTRL 

1 43 

00132 

logical 

LPREACC 

SCNTRL 

149 

00133 

LOGICAL 

LFRECON 

SCNTRL 

150 

00134 

logical 

LHP  LUX 

SCNTRL 

15  1 

00135 

LOGICAL 

LEFLUX 

SCNTRL 

152 

00136 

LOGICAL 

LFUSION 

SCNTRL 

153 

00137 

LOGICAL 

lradswg 

SCNTRL 

154 

00138 

LOGICAL 

LRADLWG 

SCNTRL 

155 

00  139 

LOGICAL 

LICLOUD 

SCNTRL 

156 

c 

SCNTRL 

157 

00140 

LOGICAL 

LGMEGA 

SCNTRL 

15B 

00141 

LOGICAL 

LD I AB AT 

SCNTRL 

159 

00142 

LOGICAL 

LRAD5W 

SCNTRL 

160 

c 

SCNTRL 

161 

00  T43 

EQUIVALENCE 

{LCO.LCf 1 ) ) 

SCNTRL 

162 

00144 

LOGICAL 

LCO,  LC1200) 

SCNTRL 

163 

c 

SCNTRL 

164 

c 

REAL  MODEL 

PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

165 

c 

SCNTRL 

166 

00  145 

COMMON 

/RCNTRL/ 

RCO 

SCNTRL 

167 

00146 

COMMON 

/RCNTRL/ 

APHEL 

5CNTRL 

168 

00147 

COMMON 

/RCNTRL / 

BETA 

SCNTRL 

t 69 

00148 

COMMON 

/RCNTRL/ 

COSD 

SCNTRL 

t 70 

00  149 

COMMON 

/RCNTRL/ 

CP 

SCNTRL 

171 

00  ISO 

COMMON 

/RCNTRL/ 

DAYSP Y 

SCNTRL 

172 

00  IS  1 

common 

/RCNTRL/ 

DEC 

SCNTRL 

173 

00152 

COMMON 

/RCNTRL/ 

DECMAX 

SCNTRL 

174 

00153 

COMMON 

/RCNTRL/ 

DIST 

SCNTRL 

175 

00154 

COMMON 

/RCNTRL/ 

DLAT 

SCNTRL 

176 

00  155 

COMMON 

/RCNTRL/ 

DLON 

SCNTRL 

177 

00156 

COMMON 

/RCNTRL/ 

DT 

SCNTRL 

178 

00  157 

COMMON 

/RCNTRL/ 

ECCN 

SCNTRL 

179 

00158 

COMMON 

/RCNTRL/ 

GNUt 

SCNTRL 

180 

00  159 

COMMON 

/RCNTRL/ 

GNU2 

SCNTRL 

TB  1 

00  1 60 

COMMON 

/RCNTRL/ 

GRAV 

SCNTRL 

182 

00161 

COMMON 

/RCNTRL/ 

OMEGA2 

SCNTRL 

1B3 

00  162 

COMMON 

/RCNTRL/ 

PI 

SCNTRL 

1B4 

00163 

COMMON 

/RCNTRL/ 

PI  180 

SCNTRL 

1B5 

00  164 

COMMON 

/RCNTRL/ 

PI  2 

SCNTRL 

1B6 

00  1 65 

COMMON 

/RCNTRL/ 

PSTD 

SCNTRL 

1B7 

00  166 

COMMON 

/RCNTRL/ 

PIMEAN 

SCNTRL 

1 SB 

00167 

COMMON 

/RCNTRL/ 

PS  MAX 

SCNTRL 

189 

00  168 

COMMON 

/RCNTRL/ 

P5MIN 

SCNTRL 

1 90 

00  1 69 

COMMON 

/RCNTRL/ 

P TOP 

SCNTRL 

131 

00170 

COMMON 

/RCNTRL/ 

RADE 

SCNTRL 

1 92 

00171 

COMMON 

/RCNTRL/ 

RGAS 

SCNTRL 

1 93 

00172 

COMMON 

/RCNTRL/ 

ROCP 

SCNTRL 

194 

00173 

COMMON 

/RCNTRL/ 

R.50IST 

SCNTRL 

195 

00  174 

COMMON 

/RCNTRL/ 

SDAY 

SCNTRL 

196 

00175 

COMMON 

/RCNTRL/ 

SEASON 

SCNTRL 

197 

00  1 76 

COMMON 

/RCNTRL/ 

SIGE  <2B) 

SCNTRL 

198 

00  177 

COMMON 

/RCNTRL/ 

SIND 

SCNTRL 

199 

00  178 

COMMON 

/RCNTRL/ 

SOLS 

SCNTRL 

200 

00179 

COMMON 

/RCNTRL/ 

TSTO 

SCNTRL 

201 

0 0 t 3 0 

COMMON 

/RCNTRL/ 

PLEVS  125) 

SCNTRL 

202 

00  1 B 1 

COMMON 

/RCNTRL  / 

HEATW 

SCNTRL 

203 

00182 

COMMON 

/RCNTRL/ 

HEAT! 

SCNTRL 

204 

00183 

COMMON 

/RCNTRL/ 

EPS 

SCNTRL 

205 

00184 

COMMON 

/RCNTRL/ 

EPSFAC 

SCNTRL 

206 

00185 

COMMON 

/RCNTRL/ 

caltoj 

SCNTRL 

207 

00186 

COMMON 

/RCNTRL/ 

PZERO 

SCNTRL 

208 

c 

SCNTRL 

209 

00  1 87 

EQUIVALENCE 

(RC0.RC1 1 ) ) 

SCNTRL 

21  0 

001H8 

REAU 

RCO,  RC(200) 

SCNTRL 

211 

c 

SCNTRL 

212 

rw  6r.; 


INTEGER  MODEL  CONSTANTS 


00  1 39 

COMMON 

/IDPARM/ 

I JUMP 

US) 

00  190 

COMMON 

/ I DP ARM/ 

I DSP  02 

00  19  1 

COMMON 

/IDPARM/ 

INDEX 

172) 

00192 

COMMON 

/IDRARM/ 

I ROD 

00  193 

COMMON 

/IDPARM/ 

JC 

(46  1 

00194 

COMMON 

/IDPARM/ 

JE 

f 2) 

00195 

COMMON 

/IDPARM/ 

d P 

(2*2) 

00196 

COMMON 

/IDPARM/ 

kstep 

00197 

COMMON 

/IDPARM/ 

MJ 

(46) 

00  1 98 

COMMON 

/IDPARM/ 

NHM51 

00199 

COMMON 

/IDPARM/ 

N YMD  1 

C 

c 

c 

LOGICAL  tfODEL  CONSTANTS 

00200 

COMMON 

/LUPARM/ 

FILTER 

(46) 

00201 

COMMON 

/LDPAPM/ 

I TAPE 

00202 

COMMON 

/LDPARM/ 

START 

00203 

LOGICAL 

FILTER 

00204 

LOGICAL 

ITAPE 

00205 

LOGICAL 

START 

c 

n 

REAL  MODEL  CONSTANTS 

00206 

COMMON 

/ RDpARM/ 

ADLDP 

00207 

COMMON 

/ RDPARM/ 

CONI 

00203 

COMMON 

/RDPARM/ 

CONtDT 

00209 

COMMON 

/RDPARM/ 

C0N2 

002  1 0 

common 

/RDPARM/ 

CON2DT 

0021  1 

COMMON 

/RDPARM/ 

CON3 

00212 

COMMON 

/RDPARM/ 

CON3DT 

002  13 

COMMON 

/RDPARM/ 

C0N4 

002  14 

COMMON 

/RDPARM/ 

CON4DT 

002*5 

COMMON 

/RDPARM/ 

CONS 

00216 

COMMON 

/RDPARM/ 

COSL 

(46) 

002  17 

COMMON 

/RDPARM/ 

COSLON 

(72) 

002  13 

COMMON 

/RDPARM/ 

CPD2 

002  19 

COMMON 

/RDPARM/ 

DXP 

(46) 

00220 

COMMON 

/RDPARM/ 

DKYP 

<46  > 

00221 

COMMON 

/RDPARM/ 

DYP 

(46) 

00222 

COMMON 

/RDPARM/ 

FC0RL5 

(46) 

00223 

COMMON 

/RDPARM/ 

F IDT 

00224 

COMMON 

/RDPARM/ 

F2DT 

00  225 

COMMON 

/RDPARM/ 

H1DT 

00226 

COMMON 

/RDPARM/ 

H2DT 

00227 

COMMON 

/RDPARM/ 

PKSTD 

00228 

COMMON 

/RDPARM/ 

PKTOP 

00229 

COMMON 

/RDPARM/ 

RL  AT 

(46) 

00230 

COMMON 

/RDPARM/ 

RLATD 

(46) 

00231 

COMMON 

/RDPARM/ 

ROCPDT 

00232 

COMMON 

/RDPARM/ 

ROCPP 1 

00233 

COMMON 

/RDPARM/ 

SGNP 

( 2 ) 

00234 

COMMON 

/RDPARM/ 

SI  NL 

(46) 

00235 

. COMMON 

/RDPARM/ 

SINLON 

(72) 

00236 

COMMON 

/RDPARM/ 

THSTD 

00237 

COMMON 

/RDPARM/ 

TKSTD2 

00235 

COMMON 

/RDPARM/ 

WSAVE 

< 159) 

00239 

COMMON 

/RDPARM/ 

DSIG 

(9) 

00240 

COMMON 

/RDPARM/ 

STG 

O) 

00241 

00242 


00243 

00244 


DIMENSION  TO H 19,5)  , r02<19,5),  TRQ3M9*19,5) 

DIMENSION  T I 1 < 1 9 ) » TI2<19>  , T03M9<19> 

L2  - 19 

XLAT  = A BS  ( RLATD(JALB)  ) 


00245 
00  249 
00247 


I F < XLAT. GE* 75.0  ) GOTO  10* 
IF<  XL  AT  . GE .60,0  ) GOTO  102 
IF(  XLAT ,GE ,45.0  ) GOTO  * 03 


SCNTRL  2 T 3 
SCNTRL  214 
SCNTRL  215 
SCNTRL  216 
SCNTRL  217 
SCNTRL  218 
SCNTRL  219 
SCNTRL  220 
SCNTRL  221 
SCNTRL  222 
SCNTRI  223 
SCNTRL  224 
SCNTRL  225 
SCNTRL  226 
SCNTRL  227 
SCNTRL  228 
SCNTRL  229 
SCNTRL  230 
SCNTRL  231 
SCNTRL  232 
SCNTRL  233 
SCNTRL  234 
SCNTRL  235 
SCNTRL  236 
SCNTRL  237 
SCNTRL  233 
SCNTRL  239 
SCNTRL  240 
SCNTRL  241 
SCNTRL  242 
SCNTRL  243 
SCNTRL  244 
SCNTRL  245 
SCNTRL  246 
SCNTRL  247 
SCNTRL  248 
SCNTRL  249 
SCNTRL  250 
SCNTRL  251 
SCNTRL  252 
SCNTRL  253 
SCNTRL  254 
SCNTRL  255 
SCNTRL  256 
SCNTRL  257 
SCNTRL  253 
SCNTRL  259 
SCNTRL  260 
SCNTRL  26 1 
SCNTRL  262 
SCNTRL  263 
SCNTRL  264 
SCNTRL  265 
SCNTRL  266 
SCNTRL  257 
SCNTRL  268 
SCNTRL  269 
SCNTRL  270 
SCNTRL  271 
SCNTRL  272 
SCNTRL  273 
SCNTRL  274 
503 INT  5 
S03INT  6 
503  I NT  7 
S03INT  B 
S031NT  9 
S03INT  10 
503 I NT  It 
S03INT  12 
S03INT  13 


*U  £D 
O 5? 
O S 

£S 


03 INT  4 


OQ24B 

I F ( X L A T . GE ,30.0  > GOTO  104 

503 I NT 

14 

00243 

I F ( X L AT . GE ,15.0  > GOTO  105 

S03INT 

IS 

00250 

GOTO  toe 

S03INT 

TG 

C 

503 I NT 

17 

00251 

101 

CONTINUE 

503 I NT 

IB 

00252 

DO  201  1-1  ,L2 

503 1 NT 

19 

00253 

TIKI)  * T0 1 M,5] 

S03INT 

20 

00254 

TI2< I ) * T021 1,5) 

S03INT 

21 

00255 

DO  20  t d = 1 ,L2 

503 I NT 

22 

00256 

T03 (I, J)  * TR03  f I . J, 5) 

SQ3INT 

23 

00257 

20  1 

CONTINUE 

503 I NT 

24 

00258 

RETURN 

503 I NT 

25 

0 

503 I NT 

26 

00259 

102 

CONTINUE 

S03INT 

27 

00260 

Cl  = I XL A T- SO .0) / 1 5 . 0 

S03INT 

28 

00251 

C2  = 1 ,0-C1 

S03INT 

29 

00262 

DO  202  IK  ,L2 

503 I NT 

30 

00263 

TIKI)  = C 1 * TO  f ( I , 5 ) + C2  * TO  HI  , 4 ) 

S03INT 

31 

00264 

T I 2 ( I ) = C 1 * T02  f I , 5 ) + C2 * 102*1,4) 

S03INT 

32 

0 0265 

DO  202  Jsl ,L2 

S03INT 

33 

00266 

T03 ( I , J]  = Cl*  TRQ3 { 1 , d , 5 ) * C2 * TR03 { I , d , 4 1 

503 1 NT 

34 

00267 

202 

CONTINUE 

S03INT 

35 

0026B 

RETURN 

503 I NT 

36 

c 

SQ3INT 

37 

00269 

103 

CONTINUE 

SQ3INT 

38 

00270 

Cl  = < XLAT-45 . 0 > / 15  * 0 

S03INT 

39 

00271 

C 2 = 1 .0-C1 

503 I NT 

40 

00272 

DO  203  IK  , L2 

503 INI 

41 

00273 

TIKI)  = C 1 * T0 1(1,4)  *-02*101(1,3) 

503  TNT 

42 

00274 

TI2II)  = 01*10211,4)  * C2 *102(1.3) 

5031  NT 

43 

00275 

DO  203  J=ttL2 

S03INT 

44 

00276 

T 03  f I , d ) = C 1 *TR03  t I « ii  « 4 ) * C2  * TR03  ( I , J , 3 ) 

503 I NT 

45 

00277 

203 

CONTINUE 

503 I NT 

46 

0O27B 

RETURN 

S03INT 

47 

c 

503 I NT 

48 

00279 

104 

CONTINUE 

S03INT 

49 

00280 

Cl  = (XLAT-30,0) / 1 5 , 0 

503 1 NT 

50 

00281 

C2  = 1,0-CI 

503 1 NT 

51 

00282 

DO  204  1=1, L2 

503 I NT 

52 

00283 

TIKI)  = . 01*101(1,3)  + C2* T0 1(1,2) 

503 I NT 

53 

00234 

TI  2 ( I ) = CKT021I.3)  + C2*T02fI,2) 

S03INT 

54 

00285 

DO  204  JK ,L2 

503 I NT 

55 

00286 

T031I.J)  = C1*TR03( 1 ,0,3)  * C2*TR03 { I f J , 2 ) 

503 1 NT 

56 

002S7 

204 

CONTINUE 

S03TNT 

57 

O028B 

RETURN 

S031NT 

58 

c 

S031NT 

59 

00289 

1 05 

CONTINUE 

503 I NT 

60 

00230 

Cl  = I XLAT- 15, 0 ) / 1 5 , 0 

503 I NT 

61 

00291 

C 2 = KO-Ct 

503 I NT 

62 

00292 

DO  205  1 = 1 ,12 

503 1 NT 

63 

00293 

TIKI)  = C 1 * TO  K I , 2 ) * C2  * T0 1 (1,1) 

503 1 NT 

64 

00294 

T I 2 { I ) = Cl*  TQ2  (1*2)  * C2  * T02 (1,1) 

5031  NT 

65 

00295 

DO  205  d=  t ,L2 

503 I NT 

66 

00296 

T03  ( I , d ) = CS+TR031  l-(  J»2)  A C2  * TE03  ( I , J , 1 ) 

S03INT 

67 

00237 

205 

CONTINUE 

503 I NT 

69 

00298 

RETURN 

S03INT 

69 

c 

S03INT 

70 

00299 

106 

CONTINUE 

503 I NT 

71 

00300 

DO  206  1=1  ,L2 

S03INT 

72 

00301 

Tlttl)  “ TOKIJ] 

503 I NT 

73 

00302 

TI2M  ) = T02  ( I . 1) 

S03INT 

74 

00303 

DO  206  d= 1 ,L2 

S03INT 

75 

00304 

T03 ( I , d)  = TR03I I , J , t ) 

503 I NT 

76 

00305 

206 

CONTINUE 

503 1 NT 

77 

00306 

RETURN 

S03INT 

78 

c 

S03INT 

79 

00307 

END 

S03INT 

SO 

STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


ORIGINAL  PAGE  B 
OF  POOR  QUALITY 


\ ' '-N  ' 


4 


T 0 1 

25  1 

245 

102 

259 

246 

t 03 

2G9 

247 

104 

279 

24B 

105 

289 

249 

106 

299 

250 

20  1 

257 

252 

255 

202 

267 

262 

265 

203 

277 

272 

275 

204 

287 

282 

285 

205 

297 

292 

295 

206 

305 

300 

303 

VARIABLE  MAR 

--NAME BLOCK TYPE -CLASS REFERENCES  A 


ADATE 

CCNTRL 

CHA  R *8 

simple 

3 

16 

ADLDP 

RDPARM 

REAL 

simple 

206 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

ATIME 

CCNTRL 

CHAR*  8 

SIMPLE 

4 

17 

BETA 

rcntrl 

REAL 

SIMPLE 

147 

Cl 

REAL 

SIMPLE 

260/S 

261 

28  1 

283 

C2 

REAL 

SIMPLE 

261/S 

263 

285 

291/S 

CALTQJ 

rcntrl 

REAL 

SIMPLE 

T 85 

cc 

CCNTRL 

CHAR*8 

ARRAY 

14 

15 

coo 

CCNTRL 

CHARTS 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

CCSP06 

CCNTRL 

CHAR'S 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHAR  fc8 

SIMPLE 

S 

21 

CCSPOB 

CCNTRL 

CHAR-S 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  1 DT 

RDPARM 

REAL 

SIMPLE 

208 

C0N2 

RDPARM 

REAL 

SIMPLE 

209 

C0N2DT 

RDPARM 

REAL 

simple 

210 

CON3 

RDPARM 

REAL 

SIMPLE 

2 1 1 

CON30T 

RDPARM 

REAL 

simple 

212 

C0N4 

RDPARM 

REAL 

SIMPLE 

213 

C0N4DT 

RDPARM 

real 

SIMPLE 

2 14 

C0N5 

RDPARM 

REAL 

SIMPLE 

215 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

COSL 

RDPARM 

REAL 

ARRAY 

216 

COSLON 

RDPARM 

REAL 

array 

217 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

2 IB 

CQS 

CCNTRL 

REAL 

ARRAY 

12 

COU 

CCNTRL 

REAL 

ARRAY 

13 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

DEC 

RCNTRL 

REAL 

SIMPLE 

15  1 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DIST 

RCNTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

real 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

DXP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

221 

ECCN 

rcntrl 

REAL 

SIMPLE 

157 

EPS 

RCNTRL 

REAL 

SIMPLE 

1 S3 

EP5FAC 

RCNTRL 

REAL 

SIMPLE 

184 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FC0RL5 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDP ARM 

LOGICAL 

ARRAY 

200 

203 

GNU  1 

rcntrl 

REAL 

SIMPLE 

158 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

$***  • 
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o 

LO 

H 

2 

H 

CPv 
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2G3 

284 

264 

236 

266 

290/S 

270/  S 
291 

27  1 
293 

273 

294 

274 

296 

276 

280 

264 

293 

266 

294 

27  1 / S 
296 

273 

274 

276 

28  1 /S 

2B3 

284 

15 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

»0  -?3 

c: 

S'  o 
L.  ^ 
**.1 

*=%  O' 


mr*  1 

A.  v ' 

'\\  ' ' 

A 

H1DT 

BDPARM 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEAT  I 

RCNTRL 

real 

SIMPLE 

182 

heatw 

RCNTRL 

REAL 

SIMPLE 

181 

I 

INTEGER 

SIMPL,E 

252/C 

253 

264 

264 

274 

274 

284 

286 

296 

295 

IC 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

| ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

| ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

r 

36 

37 

( 

47 

48 

58 

59 

j 

69 

70 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

as 

IDPARM 

INTEGER 

UNKNOWN 

139 

ISO 

I DSP 02 

IDPARM 

INTEGER 

SIMPLE 

190 

I EFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

I FUSION 

ICNTRL 

integer 

UNKNOWN 

S3 

IHFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

8 1 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

189 

IM 

ICNTRL 

integer 

SIMPLE 

26 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IMD2P1 

ICNTRL 

integer 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAY 

191 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

ao 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

IQU 

ICNTRL 

INTEGER 

array 

76 

87 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

B9 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

20  1 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ITMIN 

ICNTRL 

INTEGER 

unknown 

77 

J 

INTEGER 

SIMPLE 

255/C 

256 

285/C 

286 

JALB 

INTEGER 

SIMPLE 

t 

244 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

IDPARM 

INTEGER 

ARRAY 

194 

1 JIC 

CCNTRL 

CHAR*B 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JM02 

ICNTRL 

INTEGER 

SIMPLE 

31 

, JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

l JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

integer 

SIMPLE 

35 

JOB 

CCNTRL 

CHARTS 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

i JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KL I ALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

simple 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

integer 

SIMPLE 

41 

L 2 

INTEGER 

SIMPLE 

243/S 

252 

1 

300 

303 

i LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

i LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

103 

104 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

i 

i 


253 

254 

254 

256 

256 

262/C 

263 

263 

263 

264 

266 

266 

265 

272/C 

273 

273 

273 

274 

27  6 

276 

276 

282/C 

28  3 

283 

283 

2B4 

284 

286 

286 

292/C 

293 

293 

293 

294 

294 

294 

296 

300/C 

30  T 

301 

302 

302 

304 

304 

91 

27 

28 

29 

30 

31 

32 

33 

34 

35 

38 

39 

40 

41 

42 

43 

44 

45 

46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

60 

6 1 

62 

63 

64 

65 

66 

67 

68 

71 

72 

73 

74 

75 

76 

191 
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193 

134 

195 

196 

197 

198 

199 

78  79  SO  SI  * 82  S3  84  S3  86 

as  as 
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LDP ARM 

INTEGER 

UNKNOWN 

LEFLUX 

lcntrl 

LOGICAL 

UNKNOWN 

L FUSION 

LCNTRL 

LOGICAL 

unknown 

LHFLUX 

lcntrl 

LOGICAL 

UNKNOWN 

LI  CLOUD 

lcntrl 

LOGICAL 

UNKNOWN 

LOGBR 

ICNTRL 

INTEGER 

SIMPLE 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

UQS 

lcntrl 

LOGICAL 

ARRAY 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

LRADLWG 

LCNTRL 

LOGICAL 

unknown 

LRADSW 

LCNTRL 

logical 

UNKNOWN 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

MJ 

I DP  ARM 

INTEGER 

ARRAY 

MLF 

ICNTRL 

INTEGER 

ARRAY 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

MSM 

ICNTRL 

integer 

SIMPLE 

NB 

ICNTRL 

INTEGER 

SIMPLE 

ND 

ICNTRL 

INTEGER 

SIMPLE 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

NDHOG 

ICNTRL 

INTEGER 

simple 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

1MDPHY 

ICNTRL 

INTEGER 

SIMPLE 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

NOSHF 

ICNTRL 

INTEGER 

SIMPLE 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

NHMS1 

IDPARM 

INTEGER 

simple 

NHM5E 

ICNTRL 

INTEGER 

SIMPLE 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

NLA  YM 1 

ICNTRL 

INTEGER 

SIMPLE 

NLA  YP 1 

ICNTRL 

INTEGER 

SIMPLE 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

NSDAY. 

ICNTRL 

INTEGER 

SIMPLE 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

NYMD 

ICNTRL 

. INTEGER 

SIMPLE 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

NYMD1 

IDPARM 

INTEGER 

SIMPLE 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

NZINIT 
03  I NT 

ICNTRL 

INTEGER 

SIMPLE 

SUBROUTINE 

0MEGA2 

RCNTRL 

REAL 

SIMPLE 

PI 

RCNTRL 

REAL 

SIMPLE 

PI  180 

RCNTRL 

REAL 

SIMPLE 

PI2 

RCNTRL 

REAL 

SIMPLE 

PIMEAN 

RCNTRL 

REAL 

simple 

PKSTD 

RDF  ARM 

REAL 

SIMPLE 

PKTOP 

RDPARM 

REAL 

SIMPLE 

PLEV5 

RCNTRL 

REAL 

ARRAY 

P5MAX 

RCNTRL 

REAL 

SIMPLE 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

PSTD 

RCNTRL 

REAL 

SIMPLE 

PTOP 

RCNTRL 

REAL 

SIMPLE 

PZERO 

RCNTRL 

REAL 

SIMPLE 

OALT 

LCNTRL 

LOGICAL 

SIMPLE 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

qDAY 

LCNTRL 

LOGICAL 

SIMPLE 

QEND 

LCNTRL 

LOGICAL 

simple 

POUT 

LCNTRL 

LOGICAL 

SIMPLE 

200 

201 

202 

I 10 

135 

t 1 1 

136 

109 

134 

t 14 

139 

42 

115 

140 

107 

132 

108 

133 

103 

105 

106 

1 07 

108 

1 28 

1 04 

I 15 

1 16 

1 17 

1 29 

1 13 

138 

1 17 

142 

1 12 

137 

106 

131 

105 

130 

43 

44 

45 
t 97 

46 

47 

49 

50 

51 

52 

53 
74 

54 

55 
29 

56 

57 

58 
60 

198 

59 
4B 
61 
62 

63 
73 

64 

65 
67 

69 

71 

199 

70 

72 
1 

1 6 1 
162 

163 

164 
166 

227 

228 
180 

167 

168 

165 
169 
1B6 

93  1 18 

94  1 1 9 

95  120 

96  12  1 

97  122 


O 

to 


CO 


110  111  112  T 13  114 
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'M  '' 

A 
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QPHV 

LCNTRL 

LOGICAL 

SIMPLE 

SB 

123 

ORSH 

lcntrl 

LOGICAL 

SIMPLE 

102 

127 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

TO  1 

126 

OSHF 

LCNTRL 

LOGICAL 

SIMPLE 

39 

124 

RACE 

RCNTRL 

REAL 

SIMPLE 

170 

RC 

RCNTRL 

real 

ARRAY 

187 

is  a 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

188 

RCNTRL 

real 

UNKNOWN 

145 

146 

147 

148 

149 

T 50 

15  1 

152 

153 

154 

155 

156 

157 

158 

159 

ISO 

161 

162 

163 

164 

165 

166 

167 

1 68 

169 

170 

171 

172 

T 73 

174 

175 

176 

177 

RDPARM 

17B 

179 

180 

1 B 1 

182 

183 

184 

185 

186 

REAL 

UNKNOWN 

206 

207 

208 

209 

210 

2 1 T 

212 

213 

2T4 

215 

216 

2 t 7 

213 

219 

220 

22  1 

222 

223 

224 

225 

226 

227 

1 

228 

229 

230 

23  1 

232 

233 

234 

235 

236 

237 

238 

239 

240 

RGAS 

RCNTRL 

REAL 

SIMPLE 

17  1 

t RLAT 

RDPARfYI 

REAL 

ARRAY 

229 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

244 

ROCP 

RCNTRL 

REAL 

SIMPLE 

172 

; ROCPDT 

RDPARM 

REAL 

SIMPLE 

231 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

232 

RSOIST 

RCNTRL 

REAL 

SIMPLE 

1 73 

SOAY 

RCNTRL 

REAL 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

array 

233 

SIG 

RDPARM 

REAL 

ARRAY 

240 

SIGE 

RCNTRL 

REAL 

ARRAY 

176 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

SI  NL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

REAL 

ARRAY 

235 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

TOO 

125 

SOLS 

RCNTRL 

REAL 

SIMPLE 

178 

START 

LDPARIVT 

LOGICAL 

SIMPLE 

202 

205 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

T I 1 

REAL 

ARRAY 

! 

242 

253/S 

263/S 

273/S 

283/S 

293/S 

301  /S 

TI2 

REAL 

ARRAY 

1 

242 

254/S 

264/S 

274/S 

284/S 

294/S 

302/S 

T0 1 

REAL 

ARRAY 

1 

301 

24  1 

253 

263 

263 

273 

273 

283 

283 

293 

293 

T02 

REAL 

ARRAY 

t 

302 

241 

254 

264 

264 

274 

274 

284 

284 

294 

294 

T03 

REAL 

ARRAY 

1 

24  2 

256/S 

266/S 

276/S 

2B6/S 

296/S 

304/S 

TR03 

REAL 

ARRAY 

1 

304 

24  1 

256 

266 

266 

276 

276 

286 

286 

296 

295 

T5T0 

RCNTRL 

REAL 

SIMPLE 

179 

VER 

CCMTRL 

CHARTS 

SIMPLE 

10 

23 

WSAVE 

RDPARM 

REAL 

ARRAY 

238 

XLABEL 

CCNTRL 

CHARTS 

ARRAY 

1 1 

24 

XLAT 

REAL 

SIMPLE 

244/S 

245 

24  e 

247 

248 

249 

250 

270 

280 

290 

procedure 

MAUET 

MAP 

» _ **  T — 

ncr  c ncmr^ce 

D- STMT 

FN  DEF, 

1 ts«w  t 

CLASS" 

REFERENCES 

A — A ttbU  l l 
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REAL  INTRINSIC 


244 
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oooo  t 


00002 

00003 

00004 

00005 

00006 
00007 
OOOOB 

00009 

00010 
0001  1 
000  1 2 

00013 

00014 

00015 
000  16 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 


00025 

00026 

00027 

00028 

00029 

00030 
0003  1 

00032 

00033 

00034 

00035 

00036 

00037 


C* 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c* 

c* 

c 
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FUNCTION  PMEAN  ( N ) 


PURPOSE 


CALLED  BY 


ONLY 


USAGE 

ARGUMENTS 

N 

PMEAN 


DESCRIPTION 

PRESSURE  TIME  LEVEL 

GLOBAL  MEAN  PRESSURE  RETURNED 


SUBPROGRAMS  NEEDED 

NAME  DESCRIPTION 

NONE 

RECORD  OF  MODIFICATIONS 
EASED  ON  OLD  VERSION  8. 


?date? 

06/04  '83 


^PROGRAMMER?  ^DESCRIPTION  OF  MODIFICATIONS^ 


R AMESH 


THIS  PART  AND  COMMENTS 


REMARKS: 


M / A 


COM  SIGMA  DATA  INC 


NASA  - GSF 


CHARACTER  MODEL 

s==;j;s:3is=sss; 


PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON  / CCNTRL/  CQO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  A TIME 
COMMON  /CCNTRL/  dIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/ 

COMMON  /CCNTRL/ 

COMMON  /CCNTRL/ 

COMMON  /CCNTRL/ 

COMMON  /CCNTRL/ 


: = -=s  = 5 = = sr  — - — “ s 


CCSP08 

VER 

X LABEL  (10) 
CQS  {30} 

CQU  ( 10 J 


EQUIVALENCE 
CHARACTER'S 
CHARACTER  *-B 
CHARACTER *8 
CHARACTER  *8 
CHARACTER  + 8 
CHARACTERS 

characters 

CHARACTER  * 8 
CHARACTER-8 
CHARACTE  R * B 


fcco  rCCf 1 ) ) 

CCO,  CC ( 200 } 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 
CCSP07 
CC5P0B 
VER 
XL ABE  L 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMPAQ  N 


/ I CNTRL / 
/ICNTRL/ 
/1CNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 


ICO 

IM 

IMD2 

IMD2P 1 

NDRSW 

JM 

JMD2 

JMT2 

JNP 

J04 

JOB 

dSP 

KLIALS 


SPMEAN 

2 

' *■  * * ' 

* -SPMEAN 

3 

SPMEAN 

4 

L * 

SPMEAN 

5 

SPMEAN 

6 

SPMEAN 

7 

SPMEAN 

8 

SPMEAN 

9 

SPMEAN 

10 

SPMEAN 

1 1 

SPMEAN 

12 

SPMEAN 

13 

SPMEAN 

14 

SPPJJEAN 

15 

SPMEAN 

16 

SPMEAN 

17 

SPMEAN 

18 

SPMEAN 

19 

SPMEAN 

20 

SPMEAN 

21 

SPMEAN 

22 

SPMEAN 

23 

SPMEAN 

24 

ETC  . 

. 75PMEAN 

25 

SPMEAN 

26 

fr  * *-  J 

" * SPMEAN 

27 

C 

"SPMEAN 

28 

* * * 4 

* * SPMEAN 

29 

SCNTRL 

2 

SCNTRL 

3 

SCNtm. 

4 

SCNTRL 

5 

SCNTRL 

6 

SCNTRL 

7 

SCNTRL 

a 

SCNTRL 

9 

SCNTRL 

to 

SCNTRL 

1 1 

SCNTRL 

12 

SCNTRL 

13 

SCNTRL 

14 

SCNTRL 

15 

5CNTRL 

16 

SCNTRL 

17 

SCNTRL 

18 

SCNTRL 

19 

SCNTRL 

20 

SCNTRL 

21 

SCNTRL 

22 

SCNTRL 

23 

SCNTRL 

24 

SCNTRL 

25 

SCNTRL 

26 

SCNTRL 

27 

SCNTRL 

2B 

SCNTRL 

29 

SCNTRL 

30 

SCNTRL 

3 1 

SCNTRL 

32 

SCNTRL 

33 

SCNTRL 

34 

SCNTRL 

35 

SCNTRL 

36 

SCNTRL 

37 

SCNTRL 

38 

SCNTRL 

39 

SCNTRL 

40 

SCNTRL 

41 

SCNTRL 

42 

SCNTRL 

43 

SCNTRL 

44 

I 

'}l 


i 


i- 


00038 

common 

/ICNTRL/ 

KLIGW 

00039 

COMMON 

/ ICNTRL / 

KLISST 

00040 

COMMON 

/ICNTRL/ 

KS 

00041 

COMMON 

/ICNTRL/ 

KU 

00042 

COMMON 

/ICNTRL/ 

L0G8R 

00043 

COMMON 

/ICNTRL/ 

MATIN 

00044 

COMMON 

/ICNTRL/ 

MATSNX 

00045 

COMMON 

/ICNTRL/ 

MATSLTN 

00046 

COMMON 

/ICNTRL/ 

MLF  M2) 

0004  7 

COMMON 

/ICNTRL/ 

MROD 

0004S 

COMMON 

/ICNTRL/ 

NKRSH 

00049 

COMMON 

/ICNTRL/ 

MSM 

00050 

COMMON 

/ICNTRL/ 

NB 

00051 

common 

/ICNTRL/ 

NO 

00052 

COMMON 
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SQANDQT  30 
SQANDQT  31 
SQANDQT  32 
SQANDQT  33 
SQANDQT  34 
SQANDQT  35 
SQANDQT  36 
SQANDQT  37 
SQANDQT  38 
SQANDQT  33 
SQANDQT  40 
SQANDQT  41 
SQANDQT  42 
SQANDQT  43 
SQANDQT  44 
SQANDQT  45 
SQANDQT  46 
SQANDQT  47 
SQANDQT  4S 
SQANDQT  49 
5Q ANDQ  T 50 
SQANDQT  51 
SQANDQT  52 
SQANDQT  53 
SQANDQT  54 
SOANDQT  55 


3 


Ln 
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C 

sqandqt 

55 

l 

00283 

EQUIVALENCE 

(0U(  1 

, 1 1 1 1 1 ) ,un , i , i . t)  > 

SQANDQT 

57 

1 

00239 

EQUIVALENCE 

<QU(  1 

, t , a . i ) , v 1 1 , t , i , i n 

SQANDQT 

58 

1 . 

00290 

EQUIVALENCE 

{ QUt  1 

. 1 ,5 , 1 ) ,T( 1 . T , 1 , 1 ) > 

SQANDQT 

59 

00291 

EQUIVALENCE 

( QU<  1 

, i.7, i > , sh( i , i . r,  n > 

SQANDQT 

50 

V 

00292 

EQUIVALENCE 

(QU<  t 

,1.9,1), PHI < 1 * 1 , 1 , 1)  ) 

SQANDQT 

6 1 

!l 

00293 

EQUIVALENCE 

(QUt  1 

,1,11,1)  , omega  M , 1 T 1 ) ) 

SQANDQT 

62 

T 

00294 

EQUIVALENCE 

( QU(  t 

,1.12.1)  , DI ABAT ( 1,1,1)} 

SQANDQT 

63 

■ 

0029S 

equivalence 

(QU<  1 

.1,13,1)  , RADSW  t 1 ,1.1)) 

SQANDQT 

64 

} 

00296 

EQUIVALENCE 

( QU<  1 

.1,14,1)  , RAD.LWC  1,1,1)) 

SQANDQT 

55 

i 

c 

SQANDQT 

66 

f-  • t 

c 

*■  * *■ 

SPMEAN 

32 

i 

00297 

LOGICAL  QUITE/ . 

, FALSE . 

/ 

SPMEAN 

33 

i . . 

| : 

c 

» * * 

SPMEAN 

34 

c 

DEBUG 

SBEGDEB 

2 

I i 

00  29B 

10000  CONTINUE 

SBEGDEB 

3 

t \ 

c 

"**  CYBER  SCALAR  VERSION  04,001  INPUT, I OQ 

SBEGDEB 

4 

J 

c 

CYBER  SCALAR  VERSION  04.000 

SBEGDEB 

5 

: ) 

c 

***'  CYBER  SCALAR  VERSION  00 

5BEGDEB 

6 

CS££3SSSSSS5$S£SSSSSSSS$SSSSSSS$S$SSSSS5$SS£SSS5SS$£S£SSSS5SS$£SSSSSSSSS5BEGDEB 


00299 

IF  (QUITE)  GO  TO  5 

SPMEAN 

36 

00300 

QUITE  = * TRUE , 

SPMEAN 

37 

00301 

DL  = AC05 ( - 1 . )/JM 

SPMEAN 

38 

00302 

PAREA  - IMM1,  - COS  ( . 5'DL ) ) /SIN f DL  ) 

SPMEAN 

39 

00303 

5 

CONTINUE 

SPMEAN 

40 

00304 

SAREA  = PAREA 

SPMEAN 

41 

00305 

SMASS  = ,5'PAREAMPM  ,N,  1 > + PM.NtdM+1>) 

SPMEAN 

42 

00306 

D = - , 5 *DL'  JM 

SPMEAN 

43 

00307 

DO  20  J - 2 , d M 

SPMEAN 

44 

00308 

SPRESS.  = 0 , 

SPMEAN 

45 

00309 

DO  10  1=1 tIM 

SPMEAN 

46 

00310 

SPRESS  = SPRESS  + PtI.N.J) 

SPMEAN 

47 

0031  1 

1 0 

CONTINUE 

SPMEAN 

48 

00312 

0 = D ' DL 

SPMEAN 

49 

00313 

COSd  = COS(D) 

SPMEAN 

50 

0031  4 

SAREA  = SAREA  + IM'COSd 

SPMEAN 

51 

00315 

5MASS  = SMA5S  * SPRESS*COSJ 

SPMEAN 

52 

00315 

20 

CONTINUE 

SPMEAN 

53 

00317 

PMEAN  = SMASS/SAREA  * PTOP 

SPMEAN 

54 

003  1 S 

RETURN 

SPMEAN 

55 

00319 

END 

SPMEAN 

56 
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LABEL 

MAP 

- -LABEL. 

-DEFINED REFERENCES 

1 o 

31  1 

309 

toooo 

298 

20 

316 

307 

5 

303 

299 

VARIABLE  MAP 


NAME- 

•--BLOCK 

---TYPE 

--CLASS 

•--REFERENCES 

ADATE 

CCNTRL 

CHAR'S 

SIMPLE 

3 

16 

ADLDP 

HDPARWI 

REAL 

SIMPLE 

206 

ALBEDO 

qandqt 

REAL 

ARRAY 

244 

262 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

ATIME 

CCNTRL 

CHAR'S 

SIMPLE 

4 

17 

beta 

RCNTRL 

REAL 

SIMPLE 

147 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

185 

cc 

CCNTRL 

CHAR'S 

ARRAY 

14 

15 

cco 

CCNTRL 

CHAR'S 

SIMPLE 

2 

14 

CCNTRL 

real 

UNKNOWN 

2 

13 

7 

3 

CCSP06 

CCNTRL 

CHAR'S 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHAR  * B 

SIMPLE 

8 

21 

ccspob 

CCNTRL 

CHARTS 

SIMPLE 

9 

22 

coni 

RDPARM 

REAL 

SIMPLE 

207 

CONI DT 

RDPARM 

REAL 

SIMPLE 

208 

COM2 

RDPARM 

REAL 

SIMPLE 

209 

C0N2DT 

RDPARM 

REAL 

SIMPLE 

210 

A=ARGLIST,  C=CTRL  OF  DO,  I=DATA  INIT,  R=R£AD,  S = STORE , W=WRITE 


( '&t 


original  pags 
OF  POOR  QUALITY 


C0N3 

RDPARM 

REAL 

SIMPLE 

2 t 1 

CON3DT 

RDPARM 

REAL 

SIMPLE 

212 

CON4 

RDPARM 

REAL 

SIMPLE 

213 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

2 14 

C0N5 

RDPARM 

REAL 

SIMPLE 

215 

C05D 

RCNTRL 

REAL 

SIMPLE 

1 48 

COSJ 

REAL 

SIMPLE 

313/S 

314 

COSL 

RDPARM 

REAL 

ARRAY 

216 

CQSUON 

RDPARM 

REAL 

ARRAY 

217 

CP 

RCNTRL 

real 

SIMPLE 

149 

CPD2 

RDPARM 

. REAL 

SIMPLE 

218 

COS 

CCNTRL 

HEAL 

ARRAY 

12 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

0 

REAL 

SIMPLE 

306/S 

312/S 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

DEC 

RCNTRL 

REAL 

SIMPLE 

151 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DI4BAT 

QANDQT 

REAL 

ARRAY 

285 

294 

DIST 

RCNTRL 

REAL 

SIMPLE 

153 

DL 

REAL 

SIMPLE 

301/S 

302 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

DXP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

221 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

EFLUX 

QANDQT 

REAL 

ARRAY 

255 

273 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

20  0 

203 

FUSION 

QANDQT 

REAL 

ARRAY 

256 

274 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

158 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

GT 

QANDQT 

REAL 

ARRAY 

245 

263 

GW 

QANDQT 

REAL 

ARRAY 

246 

264 

H IDT 

RDPARM 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEATI 

RCNTRL 

REAL 

SIMPLE 

182 

HEATW 

RCNTRL 

REAL 

SIMPLE 

18  1 

HFLUX 

QANDQT 

REAL 

ARRAY 

25  4 

272 

I 

INTEGER 

SIMPLE 

309/C 

3 10 

IC 

ICNTRL 

INTEGER 

array 

90 

9 1 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

ICLOUD 

QANDQT 

INTEGER 

ARRAY 

259 

277 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

36 

37 

47 

48 

58 

59 

69 

70 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

63 

IDIA6AT 

ICNTRL 

integer 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

189 

190 

I DSP 02 

IDPARM 

INTEGER 

SIMPLE 

190 

IEFLUX 

ICNTRL 

INTEGER 

unknown 

82 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

S3 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

81 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

189 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

302 

IMD2 

ICNTRL 

integer 

SIMPLE 

27 

IMD2FM 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAY 

191 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

315 


312 


302 


91 

27 

38 

49 

50 
71 


191 


309 


313 


30G  312 


o 


o 

-J 


u 

c 

c 


37 


^ <4li 


28 

29 

30 

31 

32 

33 

34 

35 

39 

40 

4 1 

42 

43 

44 

45 

46 

50 

5 1 

52 

53 

54 

55 

56 

57 

61 

62 

63 

64 

65 

6E 

67 

GB 

72 

73 

74 

75 

76 

192 

193 

194 

195 

196 

197 

198 

199 

314 


•tJ 


IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECC3N 

icntrl 

INTEGER 

UNKNOWN 

ao 

IQS 

ICNTRL 

integer 

ARRAY 

75 

77 

7B 

l QU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

8B 

IRADLWG 

ICNTRL 

integer 

UNKNOWN 

85 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRAOSWG 

ICNTRL 

INTEGER 

UNKNOWN 

B4 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

201 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

J 

INTEGER 

SIMPLE 

307/C 

310 

JC 

IDpARM 

INTEGER 

ARRAY 

193 

JE 

IDPARM 

integer 

ARRAY 

194 

JIC 

CCNTRL 

CHARTS 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

301 

305 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

3 1 

UMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

J04 

ICNTRL 

integer 

SIMPLE 

34 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHARTS 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLIS5T 

icntrl 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

HU 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

103 

104 

LD1ABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

14  1 

LDPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

L£  FLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

135 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 09 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

LOGBR 

ICNTRL 

INTEGER 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

10S 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 

105 

106 

128 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

104 

1 15 

tie 

LRAOLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

113 

138 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 06 

131 

LTMIN 

LCNTRL 

. logical 

UNKNOWN 

105 

130 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

integer 

SIMPLE 

44 

MAT5UN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MJ 

IDPARM 

INTEGER 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MROD 

icntrl 

INTEGER 

SIMPLE 

47 

MS  M 

ICNTRL 

INTEGER 

SIMPLE 

49 

N 

integer 

SIMPLE 

1 

305 

305 

WB 

ICNTRL 

INTEGER 

SIMPLE 

50 

NO 

ICNTRL 

INTEGER 

SIMPLE 

51 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NO  AY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

ND5HF 

icntrl 

INTEGER 

SIMPLE 

56 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

57 

03 

79  80  8 1 82  S3  B4  85  SB 

B9 


305  307 


95  96  97  98  89  100  101  102 


107  108  109  no  lit  112  113  114 

117  129 


3 JO 
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NHMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

BO 

NHMS1 

I DP ARM 

INTEGER 

SIMPLE 

198 

NHMSE 

ICNTRL 

TNTEGER 

SIMPLE 

59 

NKRSM 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLAV 

ICNTRL 

integer 

SIMPLE 

6 1 

NLA YM t 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLAYPI 

TCNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

N5EQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

integer 

SIMPLE 

69 

nymdo 

ICNTRL 

INTEGER 

SIMPLE 

7 1 

NYMD  1 

IDPARM 

integer 

SIMPLE 

199 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

QANDQT 

REAL 

ARRAY 

284 

293 

OMEGA2 

RCNTRL 

REAL 

SIMPLE 

161 

P 

QANDQT 

REAL 

ARRAY 

245 

267 

305 

305 

3 10 

parea 

REAL 

SIMPLE 

302/S 

304 

305 

PHI 

QANPQT 

REAL 

ARRAY 

283 

292 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

1G2 

pi  iso 

RCNTRL 

REAL 

SIMPLE 

163 

PI  2 

RCNTRL 

real 

SIMPLE 

164 

pimean 

RCNTRL 

REAL 

SIMPLE 

166 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

R DP ARM 

REAL 

SIMPLE 

228 

PLEVS 

RCNTRL 

REAL 

ARRAY 

180 

PMEAN 

REAL 

FUNCTION 

1 

317/S 

PREAOC 

QANDQT 

REAL 

ARRAY 

252 

270 

PRECON 

QANDQT 

REAL 

ARRAY 

253 

27  1 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMI N 

RCNTRL 

REAL 

SIMPLE 

168 

PSTD 

RCNTRL 

REAL 

SIMPLE 

165 

prop 

RCNTRL 

REAL 

SIMPLE 

169 

317 

PZERO 

RCNTRL 

REAL 

SIMPLE 

IS6 

QALT 

LCNTRL 

logical 

SIMPLE 

93 

i ia 

QANDQT 

REAL 

UNKNOWN 

24  t 

278 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 19 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

102 

127 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

126 

QS 

qANDQT 

REAL 

ARRAY 

24  1 

260 

261 

262 

263 

264 

265 

266 

267 

270 

271 

272 

273 

274 

275 

276 

277 

QSHP 

LCNTRL 

LOGICAL 

SIMPLE 

39 

124 

QU 

QANDQT 

REAL 

ARRAY 

278 

288 

269 

2SQ 

29! 

292 

293 

294 

295 

QUITE 

LOGICAL 

SIMPLE 

297/1 

299 

300/S 

RACE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

REAL 

array 

287 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

258 

276 

RADSW 

QANDQT 

REAL 

ARRAY 

286 

295 

RADSV/G 

QANDQT 

REAL 

ARRAY 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 

137 

183 

RCQ 

RCNTRL 

REAL 

SIMPLE 

145 

187 

taa 

RCNTRL 

REAL 

UNKNOWN 

145 

146 

147 

148 

149 

tso 

151 

152 

153 

156 

157 

158 

159 

160 

161 

162 

163 

164 

167 

163 

1G9 

170 

171 

172 

173 

174 

i 75 

178 

179 

180 

181 

132 

183 

184 

185 

186 

RDPARM 

REAL 

UNKNOWN 

206 

207 

208 

209 

2 10 

21  1 

212 

213 

214 

217 

210 

219 

220 

221 

222 

223 

224 

225 

223 

229 

230 

231 

232 

233 

734 

235 

236 

239 

240 

RGAS 

RCNTRL 

REAL 

SIMPLE 

171 

RLAT 

RDPARM 

REAL 

ARRAY 

229 

o 

*n 


O 


O =3 
p "5 

, i ■■ 


O - 3 

C ~ ‘ j 

3*  !*~3 

n -n 

*4  ^ 


268  269 


2SS 


154  155 
165  166 
176  177 

215  216 
226  227 
237  238 


h3 


9 


■W  t-.->  ■ i •= 


.V  ! . • A 


§ 


RLATO 

RDPARM 

REAL 

ARRAY 

230 

ROCP 

RCNTRL 

REAL 

SIMPLE 

t 7 2 

RQCPDT 

RDPARM 

REAL 

SIMPLE 

23  I 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

232 

RSOIST 

RCNTRL 

REAL 

SIMPLE 

173 

SAREA 

HEAL 

SIMPLE. 

304/S 

3T4/S 

314 

317 

5DAY 

RCNTRL 

REAL 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

5GNP 

RDPARM 

REAL 

ARRAY 

233 

SH 

QANDQT 

REAL 

ARRAY 

282 

291 

5H5 

QANDQT 

REAL 

ARRAY 

248 

2G6 

srG 

RDPARM 

REAL 

ARRAY 

240 

SIGE 

RCNTRL 

REAL 

ARRAY 

T 76 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

51  NL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

REAL 

ARRAY 

235 

SM  ASS 

REAL 

SIMPLE 

305/S 

315/S 

315 

3 1 7 

SMThf 

QANDQT 

REAL 

ARRAY 

243 

261 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

100 

125 

SOLS 

RCNTRL 

REAL 

SIMPLE 

1 78 

SPRESS 

REAL 

SIMPLE 

30S/S 

310/S 

310 

3 15 

START 

LDP ARM 

LOGICAL 

SIMPLE 

202 

205 

T 

QANDQT 

REAL 

array 

28  T 

290 

THSTD 

RDPARM 

REAL 

SIMPLE 

23S 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

7MAX 

QANDQT 

REAL 

ARRAY 

251 

283 

TWIN 

QANDQT 

REAL 

ARRAY 

25  0 

268 

IS 

QANDQT 

REAL 

ARRAY 

247 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

179 

U 

QANDQT 

REAL 

ARRAY 

279 

2SS 

V 

QANDQT 

REAL 

ARRAY 

280 

289 

VER 

CCNTRL 

CHAR*B 

SIMPLE 

10 

23 

WSAVE 

RDPARM 

REAL 

ARRAY 

238 

XLABEL 

CCNTRL 

CHAR  *8 

ARRAY 

1 1 

24 

PROCEDURE 

MAP 

.4.**rk1  A QQ 

_np  p rocMf»c  c 

n -5TMT 

FPJ  DEF, 
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247 

00215 

COMMON 

/RDPARM/ 

CONS 

SCNTRL 

248 

00216 

COMMON 

/RDPARM/ 

COSL 

(46  > 

SCNTRL 

249 

00217 

COMMON 

/RDPARM/ 

COSLON 

(72  ) 

SCNTRL 
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00218 

COMMON 

/RDPARM/ 

CPD2 

SCNTRL 
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00219 

COMMON 

/RDPARM/ 

DXP 
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SCNTRL 
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00220 

COMMON 
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DXYP 
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00279 
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00281 
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C 

C 

C 

c 


c 


c 

c 
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COMMON  /RDPARM/  DYP 
COMMON  /RDPARM/  FCORLS 
COMMON  / RDPARM/  F1DT 
COMMON  /RDPARM/  F 2DT 
COMMON  / RDPARM/  H1DT 
COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PKSTD 
COMMON  /RDPARM/  PKTOP 
COMMON  /RDPARM/  RL AT 
COMMON  /RDPARM/  RLATD 
COMMON  /RDPARM/  ROCPDT 
COMMON  /RDPARM/  ROCPP 1 
COMMON  /RDPARM/  SGNP 
COMMON  /RDPARM/  SINL 
COMMON  /RDPARM/  SINLON 
COMMON  /RDPARM/  THSTD 
COMMON  /RDPARM/  THSTD2 
COMMON  /RDPARM/  WSAVE 
COMMON  /RDPARM/  DSIG 
COMMON  /RDPARM/  SIG 


(46) 

(46) 


(46) 

(46) 


(2) 

(46) 
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( 159) 

(9) 
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GLOBAL  MODEL  SURFACE  FIELDS 

COMMON  /QANDQT/  QS<72. 19.46) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PHI S ( 1 368 , 1 > 
SMTH  < 136B.23) 
ALBEDO ( 1368 . t ) 
GT  l 1368.  ( ) 

GW! 1368 , U 
TS<  1 366  t 1 ) 

SHS( 1368 , 1 ) 

P (72. 19,1) 
TMINf 1369  r 1 ) 
TMAX ( 1368, 1 ) 
PREACCM368, 1 ) 
PRECON ( 1368 , 1 ) 
HFLUX! 136S. 1 ) 
EFLUX  f 1 368 , 1 > 
FU5I ON  < 1368,  1 ) 
RADSWG(  1368 , 1 ) 
RADLWG ( 1 368 , 1 ) 
I CLOUD ( 1 368 , 1) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
*-  ■ 


( QS ( 1 , 1.1)  .PHISM  , 1 ) ) 
<QS(t ,2. U .SMTHfl  , 1)  ) 
(QSM  ,3,1)  .ALBEDOM  . t)  ) 
(Q5f  1 ,4  , f } ,GTM  , ?)  ) 

(QS( 1,6,1) , GW ( 1 t 1 ) ) 

(QSM  ,6,  U .TSM  , 1 M 
( QS  (1,7*  1 ) ,SHSM  , 1 ) ) 
(QSM  ,8,  f ) ,P(  1.1  • 1 ) ) 
(QSM  ,10,1)  , TMIN ( 1 , 1 ) ) 
(QS( 1 , t 1 . t)  , TMAXM  , 1 ) ) 
(QSM  , 12, 1 ) , PREACC ( 1 , 1) ) 
{ QS ( 1,13,1) , PRECON  < 1 , 1 ) J 
{ QS ( t , 14, 1 ? , HFLUX  M , 1 ) ) 

( QS  ( 1,15,1)  , EFLUX  f 1,1)) 
(95(1,16,1)  , FUSION ( 1 , 1 ) ) 
(QSM  ,17, 1 ) , RADSWGM  , 1 ) ) 
f QSM  , IS  , 1 ) .RADLWGM  , 1 ) > 
< QS ( 1,19.1), ICLOUD ( 1,1)) 
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COMMON  /QANDQT/  QU<72,9,  14,46) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


U(72,9, 14,1) 

V (72 ,9,14,1) 

T ( 72 , 9 , 14, 1 > 

SH (72,9, 14,1) 
PHI (72,9,14,1  ) 


SCNTRL  254 
5CNTRL  255 
SCNTRL  256 
SCNTRL  257 
SCNTRL  253 
SCNTRL  259 
SCNTRL  260 
SCNTRL  261 
SCNTRL  262 
SCNTRL  263 
SCNTRL  264 
SCNTRL  265 
SCNTRL  266 
SCNTRL  267 
SCNTRL  268 
SCNTRL  269 
SCNTRL  270 
SCNTRL  271 
SCNTRL  272 
SCNTRL  273 
SCNTRL  274 
SQANDQT  2 
SQAfJDQT  3 
SQANDQT  4 
SQANDQT  5 
SQANDQT  6 
SOANDQT  7 
SQANDQT  8 
SQANDQT  9 
SQANDQT  10 
SQANDQT  1 1 
SQANDQT  12 
sQAMDqr  13 

SQANDQT  14 
SQANDQT  15 
SQANDQT  16 
SOANDQT  17 
SQANDQT  IB 
SQANDQT  19 
SQANDQT  20 
SQANDQT  21 
SQANDQT  22 
SQANDQT  23 
SQANDQT  24 
SQANDQT  25 
SQANDQT  26 
SQANDQT  27 
SQANDQT  28 
SQANDQT  29 
SQANDQT  30 
SQANDQT  31 
SQANDQT  32 
SQANDQT  33 
SQANDQT  34 
SQANDQT  35 
SQANDQT  36 
SQANDQT  37 
SOANDQT  38 
SQANDQT  39 
SQANDQT  40 
SQANDQT  41 
SQANDQT  42 
SQANDQT  43 
SQANDQT  44 
SOANDQT  45 
SQANDQT  46 
SQANDQT  47 
SQANDQT  48 
SQANDQT  43 
SQANDQT  50 
SQANDQT  51 
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DIMENSION 

OMEGA ( 72  * 1 26  r 1 ) 

5QANDQT 

52 

00285 

DIMENSION 

DIASAT (72,  J 26  , 1) 

50ANDQT 

53 

00286 

DIMENSION 

RADSW < 72  , 126,  1 > 

SQANDQT 

54 

00287 

DIMENSION 

RADLW (72,126,1) 

SQANDQT 

55 

C 

SQANDQT 

56 

00288 

EQUIVALENCE 

(QU< 1 , 1 . 1 . 1 J ,U( T , 1 , 1 . f 

)) 

SQANDQT 

57 

00289 

EQUIVALENCE 

(QU( 1, 1,3,1), VCI, 1,1,1 

) > 

SQANDQT 

58 

00290 

EQUIVALENCE 

(QUC  t , 1 .5. U ,Tf1  , 1 , T , 1 

) ) 

SQANDQT 

59 

0029  1 

EQUIVALENCE 

IQUM  , 1 *7.  1 ) ,SH(  1,1,1, 

1 ) ) 

SQANDQT 

60 

00292 

EQUIVALENCE 

(QUfJ.1,9,11  , PH I ( t T 1 , 1 

J)) 

SQANDQT 

61 

00293 

EQUIVALENCE 

( QU11 , 1 , 1 1 . 1 ) , OMEGA f 1 . 

1.1)) 

SQANDQT 

62 

00294 

EQUI VALENCE 

f QU ( 1,1,12,1)  , D I A BAT ( 1 

.1.1)) 

SQANDQT 

63 

00295 

EQUIVALENCE 

(QU( 1 , 1 , 13, H ,RADSW< 1 , 

1,1)) 

SQANDQT 

64 

00296 

EQUIVALENCE 

<QUM  . 1 , 14. 1)  , RADLW  f 1 , 

1.1)1 

SQANDQT 

65 

c 

SQANDQT 

66 

c 
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2 

c 
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SQPOLES 

3 

00297 

COMMON  /QPOLES/ 

PPf 2, 2) 

SQPOLES 

4 

0029B 

COMMON  /QPOLES/ 

UP (9,2,2) 

SQPOLES 

5 

00299 

COMMDN  /QPOLES/ 

VP  < 9 , 2 , 2 ) 

SQPOLES 

6 

00300 

COMMON  /QPOLES/ 

TP  f 9 , 2 , 2 } 

SQPOLES 

7 

0030  1 

COMMON  /QPOLES/ 

SHP (9, 2, 2) 

SQPOLES 

8 

00302 

COMMON  /QPOLES/ 

PHlPfg.2,2) 

SQPOLES 

9 

c 

SQPOLES 

10 

c 

SPOLINP 

37 

c 

DEBUG 

SBEGDEB 

2 

00303 

10000  CONTINUE 

SBEGDEB 

3 

00304 

00305 

00306 

00307 

00308 

00309 

00310 

0031  1 


00312 

00313 

00314 

00315 
0 031S 
00317 

003  t 8 

00319 

00320 

00321 

00322 


C 

C 

a 


CYBER 

CYBER 

CYBER 


scalar 

SCALAR 

SCALAR 


VERSION 

VERSION 

VERSION 


04.001 
04 . 000 
OO 


INPUT  t IOQ 


SBEGDEB 

SBEGDEB 

SBEGDEB 
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c 

0 

c 

c 

c 

c 

c 
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COPIES  POLE  VALUES  FROM  GLOBAL  MODEL  ARRAY  0 
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120 


PPfN,M)  = Pf 1 PN, JE(M) J 

DO  120  L=  1 t NLA Y 

Uf 1 ,L»N,dE(M))*5I NLON  t 1 > 
- SGNP  ( M > * V f t . L . N f JE  ( Id  >)  • COSLON  ( 1 > 
SGNP  ( M ) *U  < 1 r L , N , J E { M J )*COSLON(1  ) 
V ( 1 , L . N , JE (M ) ) *SI NLON  < 1 J 
T( f , L , N , JE  T M ) } 

SHM,L,N,  JECMM 
CONTINUE 


UP  t'L  fN,M) 

5 

VP(L,N,M) 

6 

TP (L.N,MJ 
SHP  ( L , N r M) 


C 

C 

c 

c 

c 

c 

c 

c 


ENTRY  POLOUT  (Nt  M) 


COPIES  STEREOGRAPHIC  POLE  VALUES  FROM  OP 
BACK  INTO  GLOBAL  MODEL  ARRAY  Q 


>•'**  *-+  + *!*'*-+-*l*r*-i*»‘  + *:*-*-**»*-***-« 


DO  200  I = 1 t IM 
Pf I rN, JEfM)  ) “ PP ( N , M ) 

200  CONTINUE 

DO  220  L=1 , NLA Y 
DO  220  1 = 1 , IM 

U(I rL,N. JE(M) > * - UP  (L  f N,M)  * S JNLQN  f I ) 

& + SGNP(JVn*VP(LtN,M)*COSLONfI) 

V ( T , L t N , JE  (M ) ) = - SGNPfM»-’UPfL,NpM>^COSLONII) 
6 - VP(L,N,M) -SINLONfl ) 

Tf  I , L , N , JE  < M)  ) *?  TP  ( L « N « M) 

SHf I , L,N,dEIM) J “ SHP(L.N.M) 

220  CONTINUE 

RETURN 
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SPOLINP 
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44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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58 

59 
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63 
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67 

68 
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END 


00323 

STATEMENT  LABEL  MAP 

--LABEL DEFINED -REFERENCES 


10000 

303 

120 

3 t 0 

305 

200 

3 T 4 

312 

220 

321 

3 15 

316 

I' 


VAN  I ABLE  MAP 


‘NAME 

BLOCK 

* - - TYPE 

- -CLASS 

•--REFERENCES 

ADATE 

CCNTRL 

CHAR  * S 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

2 OS 

ALBEDO 

QANDQT 

REAL 

ARRAY 

244 

262 

ApKEL 

RCNTRL 

REAL 

SIMPLE 

146 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

185 

CC 

CCNTRL 

CHAR  *8 

ARRAY 

14 

15 

cco 

CCNTRL 

CHARTS 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

CCSP06 

CCNTRL 

CHARTS 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHAR  *8 

SIMPLE 

B 

21 

CCSP08 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  T D T 

RDPARM 

REAL 

SIMPLE 

208 

C0N2 

RDPARM 

REAL 

SIMPLE 

209 

C0N2DT 

RDPARM 

REAL 

SIMPLE 

210 

CON3 

RDPARM 

REAL 

SIMPLE 

2 1 1 

C0N3DT 

RDPARM 

REAL 

STMPLE 

212 

CON  4 

RDPARM 

REAL 

SIMPLE 

213 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

214 

CONS 

RDPARM 

REAL 

SIMPLE 

215 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

COSL 

RDPARM 

. REAL 

ARRAY 

216 

COSLON 

RDPARM 

REAL 

ARRAY 

2 17 

3 0 6 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

2 1 B 

CQS 

CCNTRL 

REAL 

ARRAY 

12 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

DEC 

RCNTRL 

REAL 

SIMPLE 

15  1 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DIABAT 

QANDQT 

REAL 

ARRAY 

205 

294 

DIST 

RCNTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

DXP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

array 

22  1 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

EFLUX 

QANDQT 

REAL 

ARRAY 

255 

273 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

FtOT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDP ARM 

LOGICAL 

ARRAY 

200 

203 

FUSION 

QANDQT 

REAL 

ARRAY 

25  S 

274 

GNU1 

RCNTRL 

REAL 

SIMPLE 

158 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

GT 

QANDQT 

REAL 

ARRAY 

245 

263 

GW 

QANDQT 

REAL 

ARRAY 

246 

264 

H IDT 

RDPARM 

REAL 

SIMPLE 

225 

* 
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H2DT 

RDPARM 

REAL 

SIMPLE 

226- 

HEATI 

RCNTRL 

REAL 

SIMPLE 

182 

HEATW 

RCNTRL 

REAL 

SIMPLE 

1ST 

HFLUX 

QANOQT 

REAL 

ARRAY 

254 

272 

I 

INTEGER 

SIMPLE 

3 t 2/C 

313 

316/C 

317 

317 

317 

IC 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

91 

ICLOUD 

QANDOT 

INTEGER 

ARRAY 

259 

277 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

27 

28 

29 

30 

36 

37 

38 

39 

40 

4 1 

47 

48 

49 

50 

5 1 

52 

58 

59 

60 

61 

62 

63 

69 

70 

71 

72 

73 

74 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

IC5P55 

ICNTRL 

INTEGER 

SIMPLE 

68 

ID  I ABAT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

1B9 

190 

191 

192 

1 93 

194 

I DSP  0 2 

IDPARM 

INTEGER 

SIMPLE 

190 

I EF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

S3 

I HFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

8 1 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

1 39 

I M 

ICNTRL 

INTEGER 

SIMPLE 

26 

3 1 2 

316 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

integer 

ARRAY 

191 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

IOS 

ICNTRL 

integer 

ARRAY 

75 

77 

78 

79 

SO 

81 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

as 

89 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

B9 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

B4 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

I TAPE 

LDP  ARM 

LOGICAL 

SIMPLE 

20  1 

204 

UMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

304 

306 

306 

307 

307 

319 

320 

die 

CCNTRL 

CHAR'S 

SIMPLE 

5 

ta 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

simple 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

JQ4 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOB 

ICNTRL 

INTEGER 

5IMPLE 

35 

JOB 

CCNTRL 

CHAR  * B 

SIMPLE 

6 

19 

JP 

IDPARM 

integer 

ARRAY 

195 

dSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

41 

L 

INTEGER 

SIMPLE 

305/C 

306 

306 

306 

307 

307 

3 15/C 

317 

3 17 

317 

3 IS 

3 18 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

95 

96 

97 

103 

104 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

LDP ARM 

integer 

UNKNOWN 

200 

20  1 

202 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 to 

135 

LFU5I0N 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

3 1 S 

318 

31 

32 

42 

43 

53 

54 

64 

65 

75 

76 

195 

196 

H2  B3 


308  309 


307  308 

3t8  319 


98  99 


□ 18 


33 
4 A 
55 
66 


197 


84 


313 


308 
3 19 


1 00 


no 

00 


319  320 


34  35 

43  4 B 

56  57 

57  6S 


198  199 


85  86 


317  318 


309  309 

320  320 


101  102 
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L0G8R 

ICNTRL 

INTEGER 

SIMPLE. 

42 

LOMEGA 

LCNTRL 

logical 

UNKNOWN 

t ts 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

tos 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 

105 

toe 

123 

LQU 

LCNTRL 

LOGrCrtL 

ARRAY 

t 04 

115 

IIS 

LRAOLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

< 1 3 

138 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 7 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LIMA* 

Lcntrl 

LOGICAL 

UNKNOWN 

106 

131 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

M 

INTEGER 

SIMPLE 

1 

304 

304 

3QB 

303 

309 

3 IS 

3 18 

3 1 B 

WAT  IN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSN* 

ICNTRL 

INTEGER 

SIMPLE 

44 

WATSUN 

rCNTRL 

INTEGER 

SIMPLE 

45 

MJ 

I DP ARM 

INTEGER 

ARRAY 

197 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

N 

INTEGER 

SIMPLE 

1 

304 

304 

309 

303 

31  1 

3 19 

313 

320 

MB 

ICNTRL 

INTEGER 

SIMPLE 

50 

NO 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

NOALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

PJOAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

NO  SHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NKMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

SO 

NHMS 1 

IDFARM 

INTEGER 

SIMPLE 

1 98 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

51 

305 

315 

WLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NLA  YP  t 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

NSEQ 

I CNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

integer 

SIMPLE 

69 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYM01 

IDPARM 

INTEGER 

SIMPLE 

199 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

N2INIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

QANDQT 

real 

ARRAY 

284 

293 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

161 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

304 

PHI 

QANDQT 

real 

ARR^V 

283 

292 

PHI  P 

QPOLES 

real 

ARRAY 

302 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

PI 

RCNTRL 

REAL 

.SIMPLE 

1 62 

PI  ISO 

RCNTRL 

REAL 

SIMPLE 

163 

PI  2 

RCNTRL 

REAL 

SIMPLE 

164 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PKSTD 

rdparm 

REAL 

SIMPLE 

227 

PKTOP 

RDPARM 

REAL 

SIMPLE 

228 

PLEVS 

RCNTRL 

REAL 

ARRAY 

30 

POL INP 

SUBROl' 

1 

POLOUT 

SUBROim.  : 

311 

PP 

QPOLES 

REAL 

ARRAY 

297 

3G4/S 

313 

PREACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PRECON 

QANDQT 

REAL 

ARRAY 

253 

271 

107 

108 

109 

1 io 

1 1 1 

1 12 

1 13 

1 14 

117 

129 

306 

306 

306 

306 

307 

307 

307 

307 

309 

31  1 

313 

313 

317 

317 

317 

317 

3 18 

3 19 

3 19 

320 

320 

3QG 

306 

306 

307 

307 

307 

308 

308 

3 1 3 

3 13 

317 

3 17 

317 

318 

3ia 

318 

320 


3 13/S 


O 


ORIGINAL  PASS  19 
OF  POOR  QUALITY 


P 5PM  X 

PSMIN 

PSTD 

PTOP 

PZERO 

QALT 

QANDQT 

QBEG 

QOAY 

QENQ 

QOUT 

QPHY 

QPOLES 

qRSH 

qRSW 

QS 

QSHP 

QU 

RAGE 

RADLW 

RADLWG 

RADSW 

RADSWG 

RC 

RCO 

RCNTRL 


RDPARM 


RGAS 

RLAT 

RLATD 

ROCP 

ROCPDT 

ROCPP 1 

ESDI ST 

SDAY 

SEASON 

SGNP 

SH 

SHP 

SHS 

SIG 

sige 

SIND 

SINL 

SINLON 

SMVH 

SN2FLG 

SOLS 

START 

T 

THSTD 

THSTD2 

TMAK 

TM1N 

TP 

TS 

TSTD 

U 

UP 

V 

VER 

VP 

WSAVE 


RCNTRL 

REAL 

SIMPLE 

167 

RCNTRL 

REAL 

SIMPLE 

168 

RCNTRL 

REAL 

SIMPLE 

165 

RCNTRL 

REAL 

SIMPLE 

169 

RCNTRL 

REAL 

SIMPLE 

1 86 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 18 

REAL 

UNKNOWN 

24  1 

27S 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 19 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

REAL 

unknown 

297 

298 

299 

300 

301 

302 

LCNTRL 

LOGICAL 

SIMPLE 

102 

127 

LCNTRL 

LOGICAL 

SIMPLE 

101 

126 

OANOOT 

REAL 

ARRAY 

241 

260 

26  T 

262 

263 

264 

265 

266 

267 

268 

270 

271 

27  2 

273 

274 

275 

276 

277 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

QANDQT 

REAL 

ARRAY 

278 

2BS 

289 

290 

29  1 

292 

293 

294 

295 

296 

RCNTRL 

REAL 

SIMPLE 

170 

QANDQT 

REAL 

ARRAY 

237 

296 

QANDQT 

REAL 

ARRAY 

258 

276 

qANDQT 

REAL 

ARRAY 

286 

295 

QANDQT 

REAL 

ARRAY 

257 

275 

RCNTRL 

REAL 

ARRAY 

187 

188 

RCNTRL 

REAL 

SIMPLE 

145 

187 

188 

REAL 

UNKNOWN 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

156 

157 

158 

159 

160 

15  1 

162 

1 63 

164 

165 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

178 

179 

ISO 

18  1 

182 

t 83 

184 

1S5 

186 

REAL 

UNKNOWN 

206 

207 

208 

209 

210 

21  1 

212 

213 

214 

215 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

228 

229 

230 

23  1 

232 

233 

234 

239 

236 

237 

239 

240 

RCNTRL 

REAL 

SIMPLE 

171 

RDPARM 

REAL 

ARRAY 

229 

RDPARM 

REAL 

ARRAY 

230 

RCNTRL 

REAL 

SIMPLE 

1 72 

RDPARM 

REAL 

SIMPLE 

231 

RDPARM 

REAL 

SIMPLE 

232 

RCNTRL 

REAL 

SIMPLE 

1 73 

RCNTRL 

REAL 

SIMPLE 

1 74 

RCNTRL 

REAL 

SIMPLE 

175 

RDPARM 

REAL 

ARRAY 

233 

306 

307 

317 

318 

QANDQT 

REAL 

ARRAY 

282 

29  1 

309 

320/S 

OPDLES 

REAL 

ARRAY 

30  1 

309/5 

320 

QANDQT 

REAL 

ARRAY 

248 

266 

RDPARM 

REAL 

ARRAY 

240 

RCNTRL 

REAL 

ARRAY 

1 76 

RCNTRL 

REAL 

SIMPLE 

177 

RDPARM 

REAL 

ARRAY 

234 

RDPARM 

REAL 

ARRAY 

235 

306 

307 

3 17 

3 18 

QANDQT 

REAL 

ARRAY 

243 

26  1 

LCNTRL 

LOGICAL 

SIMPLE 

100 

125 

RCNTRL 

REAL 

SIMPLE 

178 

LDP ARM 

LOGICAL 

SIMPLE 

202 

205 

QANDQT 

REAL 

ARRAY 

28  t 

290 

308 

319/S 

RDPARM 

REAL 

SIMPLE 

236 

RDPARM 

REAL 

SIMPLE 

237 

QANDOT 

REAL 

ARRAY 

25  1 

269 

QANDQT 

REAL 

ARRAY 

250 

268 

QPOLES 

REAL 

ARRAY 

300 

308/S 

319 

QANDQT 

REAL 

ARRAY 

247 

265 

RCNTRL 

REAL 

SIMPLE 

179 

QANDQT 

REAL 

ARRAY 

279 

288 

306 

307 

3T7/S 

QPOLES 

REAL 

ARRAY 

298 

306/S 

317 

318 

QANDQT 

REAL 

ARRAY 

280 

289 

306 

307 

31S/S 

CCNTRL 

CHAR  *8 

SIMPLE 

10 

23 

QPOLES 

REAL 

ARRAY 

299 

307/S 

317 

318 

RDPARM 

REAL 

ARRAY 

238 

269 


155 

166 

177 

216 

227 

238 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


POLINP  11 


ORIGINAL  PAQE 
OF  POOR  QUALITY 


a **  »■ 


SUBROUTINE  PRDIAG  fJX,  I X ) 


0000  2 

00003 

00004 

00005 

00006 
00007 
OOOOB 
00009 
OQOIO 
OOOt  1 
00012 
ooota 

00014 

00015 

00016 
00017 
Q0G1S 

00019 

00020 
00021 
00022 

00023 

00024 


00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 


PURPOSE 

CHECK  BASE  SURFACE  PRESSURES  FOR  UNSTABLE  VALUES 
CALLED  BV  MAIN  I COMP 0)  ONLY 


ARGUPrtEWTS 

JX 

IX 


DESCRIPTION 
J POINT 
I POINT 


SUBPROGRAMS  NEEDED 

NAME  DESCRIPTION 

NONE 

RECORD  OF  MODIFICATIONS 
BASED  ON  OLD  VERSION  B. 


7DATE7 

05/17/83 


?P  RQGRAMMER7 
RAMESH 


7DESCRIPTI0N  OF  MODIFICATIONS'? 
THIS  PART  AND  COMMENTS 


REMARKS: 

i 11  7MACHINE  DEPENDENT  FEATURES  T REFERENCES,  ERROR  RETURNS,  ETC 
M/A-COM  SIGMA  DATA  INC.  NASA  - GSFC 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/CCNTRL / 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 


EQUIVALENCE 
-CHARACTERS 
CHARACTER'S 
CHARACTERS 
CHARACTER'S 
CHAR ACTER*8 
CHARACTER'S 
CHARACTE  R*B 
CHARACTERS 
CHARACTER*  B 
CHARACTER *8 


cco 

ADATE 
AT  I ME 
JIG 
JOB 

CCSPQ6 

CCSP07 

CCSPOB 

VER 

XLABEL  <101 
CQS  ( 30  J 
CQU  (10) 

(CCO ,cc( 1 ) ) 

CCO*  CC ( 200 ) 

ADATE 

ATIME 

JIC 

JOB 

CCSPOB 

CCSP07 

CC5P0B 

VER 

XLABEL 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ ICNTRL / 
/ I CNTRL / 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 


ICO 

IM 

IMD2 

IMD2P1 

NDR5W 

JM 

JMD2 

JMT2 

JNP 

J04 

JOB 

JSP 


SPRDIAG  2 
•SPRDIAG  3 
SPRDIAG  4 
SPRDIAG  5 
SPRDIAG  S 
SPRDIAG  7 
SPRDIAG  S 
SPRDIAG  9 
SPRDIAG  TO 
SPRDIAG  11 
SPRDIAG  12 
SPRDIAG  13 
SPRDIAG  14 
SPRDIAG  15 
SPRDIAG  16 
SPRDIAG  17 
SPRDIAG  18 
SPRDIAG  19 
5PRD  X AG  20 
SPRDIAG  21 
SPRDIAG  22 
SPRDIAG  23 
SPRDIAG  24 
.^SPRDIAG  25 
SPRDIAG  26 
’-SPRDIAG  27 
►SPRDIAG  28 
r -SPRDIAG  29 
SPRDIAG  30 
SCNTRL  2 
5CNTHL  3 
SCNTRL  4 
SCNTRL  5 
SCNTRL  6 
SCNTRL  7 
SCNTRL  S 
SCNTRL  9 
SCNTRL  10 
SCNTRL  1 1 
SCNTRL  12 
SCNTRL  13 
SCNTRL  14 
SCNTRL  15 
SCNTRL  16 
SCNTRL  17 
SCNTRL  IB 
SCNTRL  19 
SCNTRL  20 
SCNTRL  21 
SCNTRL  22 
SCNTRL  23 
SCNTRL  24 
SCNTRL  25 
SCNTRL  26 
SCNTRL  27 
SCNTRL  28 
SCNTRL  29 
SCNTRL  30 
SCNTRL  31 
SCNTRL  32 
SCNTRL  33 
SCNTRL  34 
SCNTRL  35 
SCNTRL  36 
SCNTRL  37 
SCNTRL  38 
SCNTRL  39 
SCNTRL  40 
SCNTRL  41 
SCNTRL  42 
SCNTRL  43 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 
0005  1 

00052 

00053 

00054 

00055 

00056 

00057 
0 0058 

00059 

00060 
0OOG1 
00062 
DO  063 

00064 

00065 

00066 
0Q0G7 
00063 
00063 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 
00073 
00073 
00080 
OOOB  1 
00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 


00092 

00033 

00034 

00095 

00096 
0QO97 
00098 
00039 
00100 
0010  1 


COMMON  / ICNTRL/  KLIALB 
COMMON  /ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLI5ST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KLT 
COMMON  /ICNTRL/  LOGBR 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MAT5UN 
COMMON  /ICNTRL/  MLF  (12) 

COMMON  /ICNTRL/  MRQD 
COMMON  /ICNTRL/  NKR5H 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  NO 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDA Y 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NOT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA Y 
COMMON  /ICNTRL/  NLAYM1 
COMMON  /ICNTRL/  NLAYP1 
COMMON  /ICNTRL/  N3DAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  IC5P53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  ICSP55 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDKOG 
COMMON  /ICNTRL/  IQS  (30) 

COMMON  /ICNTRL/  I QU  (10) 

C 

EQUIVALENCE  ( I TWIN  , IQS(  tM 

EQUIVALENCE  IITMA*  .IQSf  2)) 

EQUIVALENCE  (1PREACC  , IQS<  3)) 

EQUIVALENCE  UPRECON  ,IQS(  4)} 

EQUIVALENCE  (IHFLUX  tIQS(  5)) 

EQUIVALENCE  UEFLUX  ,IQS(  S>) 

EQUIVALENCE  (IFUSION  ,IQS(  7)) 

EQUIVALENCE  (IRADSWG  rTQS(  BN 

EQUIVALENCE  (IRADLWG  ,IQS<  9)) 

EQUIVALENCE  (IICLOUD  ,105(10}) 

C 

EQUIVALENCE  (IOMEGA  ,IQU<  1)) 

EQUIVALENCE  ( 1 0 I ABA  T ,IQU(  2)) 

EQUIVALENCE  (IRADSW  ,IQUf  3)> 

C 

EQUIVALENCE  (100,10(1)} 

INTEGER  ICO,  IC(200) 

C 

C LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 
C s;s;sss:=  = :s^5sss5  5:  = i:s:=  = ?;ss:  = = = ; = = = = r = = = ;si3s 
COMMON  /LCNTRL/  LCO 
COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL  TSEG 
COMMON  / LCNTRL,  ,0A Y 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  QRSW 


P 

$ 


SCNTRL  44 
SCNTRL  45 
SCNTRL  4G 
SCNTRL  47 
SCNTRL  48 
SCNTRL  49 
SCNTRL  50 
SCNTRL  51 
SCNTRL  52 
SCNTRL  53 
SCNTRL  54 
SCNTRL  55 
SCNTRL  56 
SCNTRL  57 
SCNTRL  58 
SCNTRL  59 
SCNTRL  60 
SCNTRL  61 
SCNTRL  62 
SCNTRL  63 
SCNTRL  64 
SCNTRL  65 
SCNTRL  66 
SCNTRL  67 
SCNTRL  GB 
SCNTRL  69 
SCNTRL  70 
SCNTRL  71 
SCNTRL  72 
SCNTRL  73 
SCNTRL  74 
SCNTRL  75 
SCNTRL  76 
SCNTRL  77 
SCNTRL  78 
SCNTRL  73 
SCNTRL  80 
SCNTRL  81 
SCNTRL  82 
SCNTRL  33 
SCNTRL  84 
SCNTRL  85 
SCNTRL  86 
SCNTRL  87 
SCNTRL  SS 
SCNTRL  S3 
SCNTRL  90 
SCNTRL  91 
SCNTRL  92 
SCNTRL  93 
SCNTRL  94 
SCNTRL  35 
SCNTRL  96 
SCNTRL  97 
SCNTRL  98 
SCNTRL  99 
SCNTRL  100 
SCNTRL  101 
SCNTRL  102 
SCNTRL  103 
SCNTRL  104 
SCNTRL  105 
SCNTRL  106 
SCNTRL  107 
SCNTRL  108 
SCNTRL  103 
SCNTRL  110 
SCNTRL  111 
SCNTRL  112 
SCNTRL  113 
SCNTRL  114 


ro 


£ 


ORIGINAL  PAGE  Si 
OF  POOR  QUALITY 


; f 


t 


SCNTRL 

1 is 

SCNTRL 

1 16 

SCNTRL 

1 17 

SCNTRL 

T IS 

SCNTRL 

1 19 

SCNTRL 

120 

SCNTRL 

121 

SCNTRL 

122 

SCNTRL 

123 

SCNTRL 

124 

SCNTRL 

125 

SCNTRL 

126 

SCNTRL 

127 

SCNTRL 

1 28 

SCNTRL 

129 

SCNTRL 

130 

SCNTRL 

13  1 

SCNTRL 

132 

SCNTRL 

133 

5CNTRL 

134 

SCNTRL 

135 

SCNTRL 

136 

SCNTRL 

137 

SCNTRL 

13B 

SCNTRL 

139 

SCNTRL 

140 

SCNTRL 

141 

SCNTRL 

142 

scnYrl 

143 

SCNTRL 

144 

SCNTRL 

145 

SCNTRL 

146 

SCNTRL 

147 

SCNTRL 

148 

SCNTRL 

143 

SCNTRL 

150 

o o 
*n  pa 

SCNTRL 

151 

SCNTRL 

152 

SCNTRL 

153 

2 2 

SCNTRL 

154 

SCNTRL 

t 55 

SCNTRL 

156 

O 5? 

SCNTRL 

157 

po  r" 

SCNTRL 

158 

lO  "0 

SCNTRL 

153 

SCNTRL 

1 60 

c 5 

3»  St 

SCNTRL 

161 

SCNTRL 

162 

r;  tn 
tp 

SCNTRL 

163 

SCNTRL 

164 

SCNTRL 

165 

SCNTRL 

166 

SCNTRL 

167 

SCNTRL 

168 

SCNTRL 

169 

SCNTRL 

170 

SCNTRL 

171 

SCNTRL 

172 

SCNTRL 

173 

SCNTRL 

174 

SCNTRL 

175 

SCNTRL 

176 

SCNTRL 

177 

SCNTRL 

178 

SCNTRL 

179 

SCNTRL 

180 

SCNTRL 

IS  1 

SCNTRL 

182 

SCNTRL 

183 

SCNTRL 

184 

SCNTRL 

185 

PRD I AG  3 


f • . * . \ ' ' ' ’ A 


00  164 

common  /rcntrl/ 

P I 2 

5CNTRL 

186 

00  1 65 

COMMON  /RCNTRL/ 

PSTD 

SCNTRL 

187 

00  166 

COMMON  / RCNTRL/ 

PIMEAN 

SCNTRL 

1 S3 

00  167 

COMMON  /RCNTRL/ 

PSMAX 

SCNTRL 

1S9 

00  168 

COMMON  /RCNTRL/ 

PSMIN 

SCNTRL 

190 

00169 

COMMON  /RCNTRL/ 

P TOP 

SCNTRL 

13  1 

00  1 70 

COMMON  /RCNTRL/ 

RADE 

SCNTRL 

132 

00171 

COMMON  /RCNTRL/ 

RGAS 

SCNTRL 

1 93 

00172 

COMMON  /RCNTRL/ 

rocp 

SCNTRL 

134 

00  1 73 

COMMON  /RCNTRL/ 

RSDIST 

SCNTRL 

195 

00  174 

COMMON  /RCNTRL/ 

SDAY 

SCNTRL 

136 

00175 

COMMON  /RCNTRL/ 

SEASON 

SCNTRL 

137 

00176 

COMMON  /RCNTRL/ 

SIGE 

125) 

SCNTRL 

198 

00  177 

COMMON  /RCNTRL/ 

SIND 

SCNTRL 

193 

00  178 

COMMON  /RCNTRL/ 

SOLS 

SCNTRL 

200 

00  1 73 

COMMON  /RCNTRL/ 

TSTD 

SCNTRL 

20  J 

00180 

COMMON  /RCNTRL/ 

PLEVS 

( 25  > 

SCNTRL 

202 

00131 

COMMON  /RCNTRL/ 

HEATW 

SCNTRL 

203 

00132 

COMMON  /RCNTRL/ 

KEATI 

SCNTRL 

204 

00  183 

COMMON  /RCNTRL/ 

EPS 

SCNTRL 

205 

00  184 

COMMON  /RCNTRL/ 

EPSFAC 

SCNTRL 

206 

00185 

COMMON  /RCNTRL/ 

CALTOd 

'CNTRL 

207 

00  186 

COMMON  /RCNTRL/ 

PZERO 

SCNTRL 

208 

C 

SCNTRL 

209 

001B7 

EQUIVALENCE 

{ RCO  f RC  M ) J 

SCNTRL 

2 1 0 

00  188 

REAL 

RCO . RC  f 200  J 

SCNTRL 

21  1 

c 

SCNTRL 

2 1 2 

c 

INTEGER  MODEL  CONSTANTS 

SCNTRL 

2 13 

c 

SCNTRL 

214 

00189 

COMMON  /IDPARM/ 

I JUMP 

l 46  \ 

SCNTRL 

215 

w 'j 

00190 

COMMON  /IDPARM/ 

IDSP02 

SCNTRL 

216 

OQ  1 9 1 

COMMON  /IDPARM/ 

INDEX 

f 72) 

SCNTRL 

217 

c'0~  0 

00  192 

COMMON  /IDPARM/ 

I ROD 

SCNTRL 

218 

OQ  193 

COMMON  /IDPARM/ 

JC 

<46) 

SCNTRL 

2 19 

00  194 

COMMON  /IDPARM/ 

JE 

i 2) 

SCNTRL 

220 

00  195 

COMMON  /IDPARM/ 

JP 

£2,2) 

SCNTRL 

22  1 

33  r* 

00  196 

COMMON  /IDPARM/ 

KSTEP 

SCNTRL 

222 

iO 

00197 

COMMON  /IDPARM/ 

MJ 

{46} 

SCNTRL 

223 

00  198 

COMMON  /IDPARM/ 

NHMS1 

SCNTRL 

224 

C 

00  199 

COMMON  /IDPARM/ 

NYMD1 

SCNTRL 

225 

% 

c 

SCNTRL 

226 

I ~ if*j 

c 

LOGICAL  MODEL  CONSTANTS 

SCNTRL 

227 

c 

; = - = - 

SCNTRL 

228 

'J  jn 

00200 

COMMON  /LOP ARM/ 

FILTER 

f46) 

SCNTRL 

223 

0020  1 

COMMON  /LDpAHM/ 

ITAPE 

SCNTRL 

230 

00202 

COMMON  /LDPARM/ 

START 

SCNTRL 

23  1 

c 

SCNTRL 

232 

00203 

LOGICAL 

FILTER 

SCNTRL 

233 

00204 

LOGICAL 

ITAPE 

SCNTRL 

234 

00205 

LOGICAL 

START 

SCNTRL 

235 

c 

SCNTRL 

236 

c 

REAL  MODEL  CONSTANTS 

SCNTRL 

237 

c 

: = 

SCNTRL 

238 

00206 

common  /r DP ARM/ 

ADLDP 

SCNTRL 

233 

00207 

COMMON  /RDPARM/ 

CONI 

SCNTRL 

240 

00208 

COMMON  /RDPARM/ 

CON  IDT 

SCNTRL 

241 

00203 

COMMON  /RDPARM/ 

C0N2 

SCNTRL 

242 

00210 

COMMON  /RDPARM/ 

C0N2DT 

SCNTRL 

243 

0021  1 

COMMON  /RDPARM/ 

CON3 

SCNTRL 

244 

002  12 

COMMON  /RDPARM/ 

C0N3DT 

SCNTRL 

245 

00213 

COMMON  /RDPARM/ 

C0N4 

SCNTRL 

246 

00214 

COMMON  /RDPARM/ 

C0N4DT 

SCNTRL 

247 

00215 

COMMON  /RDPARM/ 

CONS 

SCNTRL 

248 

00216 

COMMON  /RDPARM/ 

COSL 

£46) 

SCNTRL 

249 

00217 

COMMON  /RDPARM/ 

COSLON 

(72) 

SCNTRL 

250 

002  t B 

COMMON  /RDPARM/ 

CPD2 

SCNTRL 

25  t 

00219 

COMMON  /RDPARM/ 

DXP 

(46) 

SCNTRL 

252 

00220 

COMMON  /RDPARM/ 

DXYP 

< 46) 

SCNTRL 

253 

0022  1 

COMMON  /RDPARM/ 

DYP 

<46  > 

SCNTRL 

254 

00222 

COMMON  /RDPARM/ 

FCORLS 

C 46  1 

SCNTRL 

255 

00223 

COMMON  /RDPARM/ 

F IDT 

SCNTRL 

25  6 

PRDIAG  4 


) 


i 


V 


00224 

COMMON 

/RDPARM/ 

F2DT 

00225 

COMMON 

/RDPARM/ 

H1DT 

00226 

COMMON 

/RDPARM/ 

H2DT 

00227 

COMMON 

/RDPARM/ 

PKSTD 

00223 

COMMON 

/RDPARM/ 

PKTOP 

00229 

COMMON 

/RDPARM/ 

RLAT 

J 4 6 ) 

00230 

COMMON 

/RDPARM/ 

RLATD 

(46  ) 

00231 

COMMON 

/RDPARM/ 

ROCPDT 

00232 

COMMON 

/RDPARM/ 

RQCPP 1 

00233 

COMMON 

/RDPARM/ 

SGNP 

(2) 

00234 

COMMON 

/RDPARM/ 

SI  NL 

<46) 

00235 

COMMON 

/RDPARM/ 

SINLON 

172> 

00236 

COMMON 

/RDPARM/ 

TWSTD 

00237 

COMMON 

/RDPARM/ 

THSTD2 

00238 

COMMON 

/RDPARM/ 

WSAVE 

(159) 

00239 

COMMON 

/RDPARM/ 

DSIG 

IS) 

00240 

COMMON 

/RDPARM/ 

SIG 

<9) 

c 

c * * * 

C GLOBAL  MODEL  SURFACE  FIELDS 


00241 

COMMON  /QAMDQT/ 

QS ( 7 2 , t 9 , 46 ) 

00242 

Lr 

DIMENSION 

PHIS( 1368 , 1 } 

00243 

DIMENSION 

SMTH( 1368 , 23) 

00244 

DIMENSION 

ALBEDO  < 1368,  1 J 

00245 

DIMENSION 

GT< 1 368 , 1 ) 

00246 

DIMENSION 

GW< 1368 , 1 ) 

00247 

DIMENSION 

T5( 1363, 1 ) 

00248 

DIMENSION 

5HS< 1368 , 1 ) 

00249 

DIMENSION 

P(72t 19, 1 ) 

00250 

DIMENSION 

TMINf 1368, 1 > 

00251 

dimension 

TMAX ( 1363 , 1 > 

00252 

DIMENSION 

PREACCI 136S, 1 ) 

00253 

DIMENSION 

PRECON ( 1368, 1 ) 

00254 

DIMENSION 

HFLUX  ( 1368. 1 ) 

00255 

DIMENSION 

EFLUX ( 1368, 1 ) 

00256 

DIMENSION 

FUSION ( 1368, 1 ) 

00257 

DIMENSION 

RADSWGl 1368, 1 ) 

00258 

DIMENSION 

RADLWG(  1368,  1 ) 

00259 

A 

DIMENSION 

J CLOUD ( 1368, 1 ) 

00250 

c 

EQUIVALENCE 

( QS ( 1 ,1,1) , PHI S ( 1,1)1 

00261 

equivalence 

(QSM  .2,  n , SMTH  ( 1,1)) 

00262 

EQUIVALENCE 

(QS{ 1 , 3 , 1)  , ALBEDO  < 1 t 
t QS (1,4,1), GT ( 1 r 1 ) j 

1 > > 

00263 

EQUIVALENCE 

00264 

EQUIVALENCE 

(QS( 1 ,5 , 1) ,GW( 1 , 1 ) J 

00265 

EQUIVALENCE 

(qs( 1,6,1), TS< 1,1)) 

00266 

EQUIVALENCE 

(qsn  ,7,  n ,5HS(  1 . 1 ) ) 

00  267 

EQUIVALENCE 

(QSM  ,8, 1)  ,P(  1 , l.t)) 

0026B 

EQUIVALENCE 

f QSM  , 10,1  ) ,TMIN(  1 , 1)  ) 

00269 

equivalence 

f QSM  , 1 1 . 1 ) , TMAX  ( 1 , 1>) 

00270 

EQUIVALENCE 

(QSf 1 , 12, 1 ) , PRE ACC ( 1 

.Ul 

00271 

EQUIVALENCE 

( QS ( 1,13,1) , PRECON ( 1 

.1  > ) 

00272 

EQUIVALENCE 

(Q5(1,14,1) ,HFLUX ( 1 , 

1 ) ) 

00273 

EQUIVALENCE 

(0S( 1,15.1)  , EF  LUX ( 1 , 

1 ) } 

00274 

equivalence 

(QSM  ,16.1)  , FUSION  ( 1 

, 1>> 

00275 

EQUIVALENCE 

(05(1,17.1), RADSWGf 1 

,tt) 

00276 

equivalence 

( QS (1.18,1), RADLWG  < t 

,1 ) ) 

00277 

EQUIVALENCE 

( QS( 1 , 19, 1 J , ICLOUD( 1 

,11) 

C 

c 

GLOBAL  MODEL  UPPER 

-AIR  FIELDS 

00270 

p 

COMMON  / QANDQT / 

QU ( 72 . 9 , 14,46) 

00279 

DIMENSION 

0(72,9,14,1) 

002BO 

DIMENSION 

V( 72,9, 14, 1) 

0028  1 

DIMENSION 

Tt  72.9, 1 4 , 1 ) 

0 0 282 

DIMENSION 

5H (72,9,  14, 1 ) 

002S3 

DIMENSION 

PHI (72,9,14,1) 

0 0284 

DIMENSION 

OMEGA ( 72  f 126,  t ) 

00285 

DIMENSION 

DIABAM72,  126,1) 

00286 

DIMENSION 

R ADSW ( 72 , 126, 1 ) 

f- 


■ >£*t&** 


SCNTRL  257 
SCNTRL  250 
SCNTRL  259 
SCNTRL  260 
SCNTRL  261 
SCNTRL  262 
5CNTRL  263 
SCNTRL  264 
SCNTRL  265 
SCNTRL  266 
SCNTRL  267 
SCNTRL  268 
SCNTRL  269 
SCNTRL  270 
SCNTRL  271 
SCNTRL  272 
SCNTRL  273 
SCNTRL  274 
SQANDQT  2 
SQANDQT  3 
SQANDQT  4 
SQANDQT  5 
SQANDQT  6 
SQANDQT  7 
SQANDQT  S 
SQANDQT  9 
SQANDQT  10 
SQANDQT  1 1 
SQANDQT  12 
SQANDQT  13 
SQANDQT  14 
SQANDQT  15 
SQANDQT  16 
SQANDQT  17 
SQANDQT  IB 
SQANDQT  19 
SQANDQT  20 
SQANDQT  21 
SQANDQT  22 
SQANDQT  23 
SQANDQT  24 
SQANDQT  25 
SQANDQT  26 
SQANDQT  27 
SQANDQT  2B 
SQANDQT  29 
SQANDQT  30 
SQANDQT  31 
SQANDQT  32 
SQANDQT  33 
SQANDQT  34 
SQANDQT  35 
SOANDQT  36 
SQANDQT  37 
SQANDQT  3B 
SQANDQT  39 
SQANDQT  40 
SQANDQT  41 
SQANDQT  42 
SQANDQT  43 
SQANDQT  44 
SQANDQT  45 
SQANDQT  46 
SQANDQT  47 
SQANDQT  4B 
SQANDQT  49 
SQANDQT  50 
SQANDQT  51 
SQANDQT  52 
SQANDQT  53 
SQANDQT  54 


PRDXAG  5 


it 

if 

\\ 

3' 


002B7 

002B8 
00269 
00290 
0029  1 

00292 

00293 

00294 

00295 

00296 


00297 

00293 

00299 


00300 
0030  t 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 
003  t O 

003  t 1 
003  1 2 

00313 

00314 
003  16 

00316 

00317 
003  13 
00319 


00320 


0032  1 


C 

C 

c 


c 

c 


DIMENSION 

EQUIVALENCE 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 


RADLW172,  126,  t ) 


(QUM 

(quit 

t QU  ( t 
(QU(  T 
t Qun 
f QU  ( 1 
( QU<  1 
f QU  ( 1 
(QLM  T 


U.IKUd.tJJ)) 

i ,3, u * vc  t , i . i » m 
i f5. n ,t(  t , i , i » i n 

I ,7 , 1 ) , 5H< 1 t 1 , 1 , 1 )> 

t , 9. t } , phi 1 1 1 1 f 1 1 n ) 

MM)  , OMEGA  ( 1 , 1 * 1 ) ) 

1.12.1)  , D I ABAT  ( t,1,U) 

1.13.1)  , RAD  5W  t 1 
1,M,1)  ,RADLW(  1,1,1)) 


ONE  - D I MENS I ONAL  WORK  AREAS 


COMMON 
COMMON 

character* 


CARDt 10) « 
PKf 72,9) , 
CARD 


DATA ( 144 } 
P T f 72 , 9 ) 


CATA  < 144 1 


PR  TUI  (2  >/ 1HU  r 7HI - T , J*  t / 
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CONTINUE 
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IW  = 0 

WAVLEN  = KE12 
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WAVPCT  = 100. 

WRITE  (3,6015)  IWt  WAVLEN,  WAVAMP,  WAVPCT 
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IW  = I - 1 
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WRITE  (3,6015)  IW,  WAVLEN,  WAVAMP,  WAVPCT 
RETURN 
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MS  FORMAT 
END 


SPRD I AG  83 
SPRDIAG  S4 
SPRDIAG  35 
SPRDIAG  86 
SPRDIAG  B7 
SPRDIAG  88 
SPRDIAG  83 
SPRDIAG  80 
SPRDIAG  91 
SPRDIAG  32 
SPRDIAG  93 
SPRDIAG  94 
SPRDIAG  95 
SPRDIAG  96 
SPRDIAG  97 
SPRDIAG  98 
SPRDIAG  99 
SPRD I AG  T 00 
SPRD I AG  1 01 
SPRDIAG102 
SPRDI AGI03 
SPRD I AG  1 04 
SPRDI AG  1 05 
SPRDI AG1 06 
SPRDI AG107 
SPRDI AG 1 08 
SPRDI AGIOS 
SPRDIAG 1 1 O 
SPRDIAG1 1 1 
SPRDIAG1 12 
SPRDIAG1 13 
SPRDIAG 1 14 
SPRDI AG1 15 
SPRDIAG 1 16 
SPRDIAG1 17 
SPRDI AG1 18 
SPRDIAG 1 19 
SPRDI AG1 20 


STATEMENT  LABEL  MAP 

--LABEL DEF I NED ---REFERENCES 


10 

10000 

20 

6000 

6005 


VARIABLE  MAP 


name 

---BLOCK 

---TYPE 

--CLASS 

---REFERENCES 

ADATE 

CCNTRL 

CHARTS 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

ALBEDO 

OANDQT 

REAL 

ARRAY 

244 

262 

APMEL 

RCNTRL 

real 

SIMPLE 

146 

ATIME 

CCNTRL 

CHAR  *8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

320 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

185 

CARD 

// 

CHARTS 

ARRAY 

297 

299 

CATA 

// 

REAL 

ARRAY 

297 

CC 

CCNTRL 

CHAR*B 

ARRAY 

14 

15 

cco 

CCNTRL 

CHAR*B 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

3 

REFERENCES  A=ARGL 1ST , C = CTRL  OF  DO.  I =DATA  INIT,  R = READ , S=STORE . W=WRITE 


2 


CCSPOG 

CCNTRL 

CHAR*a 

SIMPLE 

7 

20 

CCSP07 

ccntrl 

CHARTS 

SIMPLE 

a 

21 

ccspoa 

CCNTRL 

CHARTS 

SIMPLE 

9 

22 

COM 

RDPARM 

REAL 

SIMPLE 

207 

CDN1DT 

RDPARM 

REAL 

SIMPLE 

20S 

CON  2 

RDPARM 

REAL 

SIMPLE 

209 

CON2DT 

RDPARM 

REAL 

SIMPLE 

210 

CQN3 

RDPARM 

REAL 

SIMPLE 

21  t 

CON3DT 

RDPARM 

REAL 

SIMPLE 

212 

CQN4 

RDPARM 

REAL 

SIMPLE 

213 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

214 

CONS 

RDPARM 

REAL 

SIMPLE 

215 

COSD 

RCNTRL 

REAL 

SIMPLE 

MS 

COSL 

RDPARM 

REAL 

ARRAY 

216 

COSLPN 

RDPARM 

REAL 

ARRAY 

2 17 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

2 18 

COS 

CCNTRL 

REAL 

ARRAY 

12 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

DATA 

// 

REAL 

ARRAY 

297 

348/S 

DAYSPY 

RCNTRL 

real 

SIMPLE 

ISO 

DEC 

RCNTRL 

REAL 

SIMPLE 

1*1 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DIABAT 

OANDOT 

real 

ARRAY 

235 

294 

D r ST 

RCNTRL 

REAL 

SIMPLE 

153 

DL  AT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

DXP 

RDPARM 

REAL 

ARRAY 

2 19 

DX  YP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

22  1 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

EFLUX 

QANDQT 

REAL 

ARRAY 

255 

273 

EPS 

RCNTRL 

REAL 

SIMPLE 

1 S3 

EPSpAQ 

RCNTRL 

REAL 

SIMPLE 

134 

F IDT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 

FCORLS 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDPARM 

logical 

ARRAY 

200 

203 

FUSION 

QANDqT 

REAL 

ARRAY 

256 

274 

GNU  t 

RCNTRL 

REAL 

SIMPLE 

158 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

320 

GT 

OANDOT 

REAL 

ARRAY 

245 

263 

GW 

QANDOT 

REAL 

ARRAY 

246 

264 

H IDT 

RDPARM 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEATI 

RCNTRL 

REAL 

SIMPLE 

182 

HEATW 

RCNTRL 

REAL 

SIMPLE 

18  1 

HFLUX 

OANDOT 

REAL 

ARRAY 

254 

272 

I 

INTEGER 

SIMPLE 

347/C 

348 

IC 

ICNTRL 

INTEGER 

ARRAY 

30 

9 1 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

I CLOUD 

OANDOT 

INTEGER 

ARRAY 

259 

277 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

36 

37 

47 

48 

58 

59 

69 

70 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

63 

IDIASAT 

ICNTRL 

INTEGER 

UNKNOWN 

S3 

toparm 

INTEGER 

UNKNOWN 

1 B9 

190 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

130 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

a3 

IHFLUX 

ICNTRL 

integer 

UNKNOWN 

a i 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

1B9 

g 


CO 


350  354  361  361  367 


O -S3 


34S 

348 

348 

91 

27 

28 

29 

38 

39 

40 

49 

50 

5 1 

60 

6 1 

62 

71 

72 

73 

191 

192 

193 

35S/C  359 


30 

31 

32 

4 T 

42 

43 

52 

53 

54 

63 

64 

65 

74 

75 

76 

94 

195 

196 

33 

34 

35 

44 

45 

46 

55 

56 

57 

36 

67 

63 

197  133  199 


*■  

\ 1 

. ‘-S 

A 

a 

I'M 

ICNTRL 

INTEGER 

SIMPLE 

26 

324 

324 

325 

347 

350 

354 

360 

361 

367 

367 

1JAD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

358 

365 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

I DP ARM 

INTEGER 

ARRAY 

19  1 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

IQS 

ICNTRL 

INTEGER 

array 

75 

77 

78 

79 

BO 

81 

82 

83 

84 

85 

86 

iqu 

ICNTRL 

integer 

ARRAY 

76 

87 

as 

B9 

IRADLWG 

ICNTRL 

integer 

UNKNOWN 

35 

IRADSW 

ICNTRL 

integer 

UNKNOWN 

89 

IRAD5WG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

I DP  ARM 

integer 

SIMPLE 

192 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

20  1 

204 

UMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ITMIN 

ICNTRL 

integer 

UNKNOWN 

77 

IW 

INTEGER 

SIMPLE 

352/S 

356/W 

359/S 

360 

35  t 

361 

363/W 

365/S 

369  /W 

IX 

INTEGER 

SIMPLE 

1 

324 

325 

326  / W 

326 

326 

329 

330 

335 

336 

341 

342 

345 

348 

JXM1 

INTEGER 

SIMPLE 

324/S 

327 

328 

333 

334 

339 

340 

IXP1 

INTEGER 

SIMPLE 

325/S 

331 

332 

337 

33B 

343 

344 

dC 

IDPARM 

integer 

ARRAY 

193 

JE 

IDFARM 

INTEGER 

ARRAY 

194 

die 

CCNTRL 

CHARTS 

SIMPLE 

5 

IS 

dM 

ICNTRL 

INTEGER 

SIMPLE 

30 

UMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

dtfT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

323 

JQ4 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR-8 

SIMPLE 

6 

19 

dP 

I DP  ARM 

integer 

ARRAY 

195 

dSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

322 

dX 

integer 

SIMPLE 

I 

322 

323 

32S/W 

326 

326 

333 

334 

335 

336 

337 

338 

345 

346 

348 

348 

348 

dXMl 

INTEGER 

SIMPLE 

322/S 

339 

340 

34  1 

342 

343 

344 

dXPI 

INTEGER 

SIMPLE 

323/S 

327 

328 

329 

330 

331 

332 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

I DP ARM 

INTEGER 

SIMPLE 

196 

HU 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

L 

INTEGER 

SIMPLE 

327 

327/C 

328 

328/C 

329 

329/C 

330 

330/C 

331 

331  /C 

332 

332/C 

333 

333/C 

334 

334/C 

335 

335/C 

336 

336/C 

337 

337 

338 

338/C 

339 

339  /C 

340 

340/C 

341 

34  1 /C 

342 

342/C 

343 

343/C 

344 

344/C 

345 

345/C 

34G 

346/C 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCD 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

95 

96 

97 

98 

99 

1 00 

101 

102 

103 

1 04 

LDI ABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

141 

LDP ARM 

INTEGER 

unknown 

200 

201 

202 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

110 

135 

LFUSION 

LCNTRL 

LOGICAL 

unknown 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

L I CLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

LOGS  R 

ICNTRL 

INTEGER 

SIMPLE 

42 

LQMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

115 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

103 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 

105 

106 

107 

108 

109 

110 

1 1 1 

1 1 2 

113 

1 14 

128 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

104 

1 15 

1 1 6 

1 17 

1 29 

LRADLWG 

LCNTRL 

LOGICAL 

unknown 

113 

1 38 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

117 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

1 30 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

vO 
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sgtr  f®- 


MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

MATSUM 

ICNTRL 

INTEGER 

SIMPLE 

45 

MJ 

IDF ARM 

INTEGER 

ARRAY 

197 

MLF 

rcNTRL 

INTEGER 

ARRAY 

46 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

NB 

ICNTRL 

INTEGER 

SIMPLE 

50 

326 

ND 

ICNTRL 

INTEGER 

SIMPLE 

51 

326 

336 

337 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDKOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

MDQUT 

TCNTRL 

integer 

SIMPLE 

54 

ND  PHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

NHMSG 

ICNTRL 

INTEGER 

SIMPLE 

60 

NKMS1 

EDPARM 

INTEGER 

SIMPLE 

198 

NHWSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

4B 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

61 

327 

337 

33B 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLAYP 1 

ICNTRL 

integer 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

TCNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

71 

nymdi 

JDPARM 

integer 

SIMPLE 

1 99 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

QANDQT 

REAL 

ARRAY 

2B4 

293 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

161 

P 

QANDQT 

REAL 

ARRAY 

243 

267 

PHI 

QANDQT 

REAL 

ARRAY 

283 

292 

PHIS 

QANDQT 

REAL 

ARRAY 

24  2 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  ISO 

RCNTRL 

REAL 

SIMPLE 

163 

PI2 

RCNTRL 

REAL 

SIMPLE 

164 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

PK 

// 

REAL 

ARRAY 

29B 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PKTQP 

RDPARM 

REAL 

SIMPLE 

228 

PLEVS 

RCNTRL 

REAL 

ARRAY 

ISO 

PRDIAG 

SUBROUTINE 

1 

PPEACC 

QANDQT 

real 

ARRAY 

252 

270 

PRECON 

QANDQT 

REAL 

ARRAY 

253 

27  t 

PRTSH 

CHAR +8 

array 

319/1 

346  /W 

PRTT  . 

CHARTS 

ARRAY 

31B/I 

345  / W 

PRTU1 

CHAft-g 

ARRAY 

300/1 

327 /W 

PRTU2 

CHARTS 

ARRAY 

302/1 

329 /W 

PRTU3 

CHARTS 

ARRAY 

304/r 

33  1/W 

PRTU4 

CHARTS 

ARRAY 

306/1 

333/W 

PRTU5 

CHARTS 

ARRAY 

308/1 

335/W 

PR  TUG 

CHAR-8 

ARRAY 

3 1 0/  I 

337  /W 

PRTU7 

CHAR'S 

ARRAY 

312/1 

339  / W 

PRTUB 

CHA  R*B 

ARRAY 

3M/I 

341  /W 

PRTU9 

CHAR*  B 

ARRAY 

316/1 

343/ W 

PR  TV  1 

CHARTS 

ARRAY 

301/1 

328/ W 

PRTV2 

CHAR  *8 

ARRAY 

303/1 

330/ W 

PRTV3 

CHAR'S 

ARRAY 

305/1 

332  /W 

PRTV4 

CHAR'S 

ARRAY 

307/1 

334  / W 

PRTV5 

CHAR'S 

ARRAY 

309/1 

336/W 

PR  TV  6 

CHAR*  8 

ARRAY 

311/1 

335/W 

PR  TV  7 

CHAR*8 

ARRAY 

3 13/1 

340/ W 

-t  # «... 


..air'" 


d 


\ \ 


. i 


PR  TVS 

CHAR  *8 

ARRAY 

315/1 

342/W 

PR  TVS 

CHAR  * 8 

ARRAY 

3 t 7 / I 

344  / W 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

P5MIN 

RCNTRL 

REAL 

SIMPLE 

168 

PSTD 

RCNTRL 

REAL 

SIMPLE 

165 

PT 

// 

REAL 

array 

29S 

prop 

RCNTRL 

REAL 

SIMPLE 

169 

343 

PZERO 

RCNTRL 

REAL 

SIMPLE 

186 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 IS 

QANDQT 

REAL 

UNKNOWN 

241 

273 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 19 

QDAV 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

QEND 

LCNTRL 

logical 

SIMPLE 

96 

121 

QOUT 

LCNTRL 

LOGICAL 

5IMPLE 

97 

122 

qpHV 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

QR5M 

LCNTRL 

LOGICAL 

SIMPLE 

t 02 

127 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

TOJ 

1 26 

OS 

QANDQT 

REAL 

ARRAY 

24  1 

260 

270 

27  1 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

QU 

QANDQT 

REAL 

ARRAY 

278 

238 

RAPE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDQT 

REAL 

ARRAY 

2B7 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

258 

276 

RADSW 

QANDQT 

REAL 

ARRAY 

286 

295 

RADSWG 

QANDQT 

real 

ARRAY 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 

1 8 7 

186 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

RCNTRL 

REAL 

UNKNOWN 

1 45 

146 

1 56 

157 

1 67 

1 63 

178 

1 79 

RDPARM 

REAL 

UNKNOWN 

206 

207 

217 

218 

223 

229 

239 

240 

RGAS 

RCNTRL 

real 

SIMPLE 

171 

320 

RL  AT 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

RDPARM 

real 

ARRAY 

230 

ROCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

231 

ROCP Pt 

RDPARM 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

173 

SPAY 

RCNTRL 

REAL 

SIMPLE 

1 74 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

£H 

QANDQT 

REAL 

ARRAY 

282 

29  1 

SHE 

QANDQT 

REAL 

ARRAY 

248 

266 

SIG 

RDPARM 

REAL 

ARRAY 

240 

sigh 

RCNTRL 

REAL 

ARRAY 

176 

SIND 

. RCNTRL 

REAL 

SIMPLE 

177 

SINL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

REAL 

ARRAY 

235 

SM7H 

QANDQT 

REAL 

ARRAY 

243 

261 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

100 

125 

SOLS 

RCNTRL 

REAL 

SIMPLE 

178 

START 

LDPARM 

LOGICAL 

SIMPLE 

202 

205 

T 

QANDQT 

REAL 

ARRAY 

281 

290 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

TMAX 

QANDQT 

REAL 

ARRAY 

251 

269 

TWIN 

QANDQT 

REAL 

ARRAY 

250 

268 

TS 

QANDQT 

REAL 

ARRAY 

247 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

179 

U 

QANDQT 

REAL 

ARRAY 

273 

288 

V 

QANDQT 

REAL 

ARRAY 

280 

289 

VER 

CCNTRL 

CHARTS 

SIMPLE 

10 

23 

WA VAMP 

REAL 

SIMPLE 

354/S 

356/ W 

WAVLEN 

REAL 

SIMPLE 

353/S 

356  / W 

WAV PC T 

REAL 

SIMPLE 

355/S 

356/W 

26  1 

252 

263 

272 

273 

274 

289 

290 

29  1 

188 

147 

1 43 

149 

158 

1 59 

160 

169 

t 70 

17  1 

T 8 0 

IS  1 

1 82 

208 

209 

2 10 

219 

220 

22  1 

230 

231 

232 

264 

265 

266 

275 

276 

277 

292 

293 

294 

150 

15  1 

152 

161 

162 

163 

172 

173 

1 74 

133 

184 

1 85 

21  1 

212 

213 

222 

223 

224 

233 

234 

235 

267 

268 

269 

295 

296 

153 

154 

155 

1 64 

165 

166 

175 

176 

177 

136 
2 14 

215 

216 

225 

226 

227 

236 

237 

23  B 

346/W 


345/W 


320  320  34B 

327 /W  329/W  331 /W  333/W  335/W  337/W  339/W  34 t/W  343 

323  /W  330  /W  332/ W 334/W  336/W  338/W  340/W  342/W  344 


3G2  3S3/W  367/S 

3G6/S  369/W 

363  /W  36S/S  369 /W 


357 

360/S 

357 


36  1 /S 
363/W 
362/S 


368 


369/W 
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wavper 

V/5AVE 
X LAB EL 


RDPARM 

CCNTRL 


REAL 

REAL 

CHARTS 


SIMPLE 

ARRAY 

ARRAY 


357/S  362  363 

238  350 

1 1 24 


PROCEDURE  MAP 

--NAME TYPE -CLASS 


REFERENCES 


D- STMT  FN  DEF,  fi=ARGLl ST 


ABS 

EXP 

FLOAT 

MAXO 

MINO 

MOD 

RFFTF 

SLEXP 

SORT 


REAL 

REAL 

REAL 

INTEGER 

integer 

INTEGER 

real 

REAL 


INTRINSIC 

INTRINSIC 

INTRINSIC 

INTRINSIC 

INTRINSIC 

INTRINSIC 

SUBROUTINE 

STAT  FUNC 

1 NTRINSIC 


354 

320 

360 

322 

323 

324 
350 
320/S 
36  t 


357 


325 

348 


o 

n 

"O 

O 

O 

33 

tO 

c: 

3? 


O 

o 


r* 


PRD I AG  12 


fFT* 


i 


;|  ii 


4 

i 

J 


i 


OOOOt  FUNCTION  QSAT  <T,F) 

C 

00002  REAL  ESTM391.  EST1C67),  EST2I72J 

00003  EQUIVALENCE  <EST(1),  ESTKU),  ( EST  < 6S  ) , E ST2  f U ) 

C 

00004  DATA  E ST  T / 

* 0.3M 95E-02 , 0. 361359-02,  0.418009-02, 

* 0 * 48227E - 02  t 0.5557TE-02,  0.63934E-02,  0.73433E-02, 

* 0 . S42SEE - 02 . 0 . 96407E-02 , 0.110149-01,  0.125829-01, 

* 0 . T 4 3 53  E - 0 1 , 0.16341E-01,  O.  185749-01.  0.210959-01, 

* 0 . 2392GE -O  t , 0,270962-01,  0.30G52E-0T,  0.34S2ES-OJ, 

* 0 . 39073E -0 1 , O , 4402BE -01,  0.495466-01,  0.556S19-01. 

* 0.B250SE-01.  0 , 70077E -O 1 . 0.78700E-01,  0.S812SE-01, 

* 0.98477E-01.  0.109839*00.  0,t2233E*00.  0.13608E*00, 

* 0.15121E*Q0,  0 . 1 G784E+00 , 0.1B615E+00.  0.20627E+0G, 

+ 0 . 22S37E  * 00  » 0.25263E+00,  Q.27923E+00,  0.3083BE+00, 

* 0 , 34O30E  *00 , 0.37520E-00,  0,413349*00,  0,454979*00. 

* 0*500379+00,  0 , 549B4E  + 00 , 0.60369E+00,  0 . G6225E *00 , 

* 0 - 725B9E  *00  , 0.79497E+00,  Q.8G991E+00,  0.951T3E+00, 

* 0,103919*01,  0.11  343E  + 0 1 , 0 » 1 2372  E + 0 1 , 0 . 134S4E *0 1 , 

* 0.146849+01,  0 , 1 5979.E + 0 1 r 0.17375E  + 01,  0.IBB79E+0T, 

* 0.204999+01.  0 . 2224  1 E'-Ol  , 0.24H3E+01,  0.2G126E+01, 

* 0 „ 2B2S6E  *01  , 0,306049*01,  0.330919*01,  0.35755E-01/ 

C 

00003  DATA  EST2 / 

* 0.3S508E^01  , O. 416639+01,  O.4493OE*01.  0 . 4S4  23E  *0  I , 

* 0.521559*01,  0 . 56  1 40E  + 0 1 , 0.60394E*Q1,  0.64930E+01, 

* 0.697679*01,  0.749199+01,  0.80406E+01.  0,86246E*0t. 

0 . 92457E  + 0 I , O . 9.906  1 E + 0 1 , 0,106Q8E+02,  0.1t3S3E*02, 

* 0.12  1 44E  * 02  , 0 . 1.29839  + 02,  . 0. 13B73E  + 02,  0.14S16E+Q2, 

* Q , 1 58 1 5E  + 0 2 * 0.1GB72E+02,  0.17992E+02,  0.191769*02, 

* 0 . 2042SE *02 , 0.217509*02,  Q.23I4BE+02,  0.246239-02, 

* 0.26I8GE+02,  0 . 27822E  * 02 , 0.29553E+02,  0.3137BE-02. 

+ 0. 33300E+02,  0.35324E+02,  0.37454E+Q2,  0,39696E+02. 

* 0.420539*02,  0.44531E+02,  0.471346*02.  0.49869E*O2, 

* 0.527419*02.  0 . 55754E  + 02 , 0.5S916E  + 02.  0.62232E+02, 

* 0.6570BE+02,  0.69351E+02,  0.73168E+02,  0.77164E*02, 

* 0.813489*02,  0.S5725E+02.  0.90305E+02,  0.950949-02, 

0. 1001 OG + 03,  0 . t 0533E  + 03  r 0.11080E+03,  0.11650E+03, 

* 0.12246E+03,  0.1286BE+03,  0.13517E+03,  0.14193E*03, 

* 0.14899E+03,  0.15634E-Q3,  0.16400E+03,  0.17199E+03, 

* 0 , 1 8030E+03 , 0 . 1 SS95E  +03 , 0.19796E+03,  0.20733E+D3, 

* 0.217089+03,  0.22722E+03,  0.23776E+03,  O.2487IE+03/ 


00006 

C 

TMAX 

= AMA  X t ( 

T ,200.0  ) 

00007 

TMI  N 

= AM  I N 1 i 

TMAX ,337.3  ) 

00008 

TSTAR 

- THIN  * 

IBS .99999 

00009 

IC 

- TSTAR 

000  10 

TEMP 

= ESTflC) 

+ IESTUC+1) 

- EST  f IC>  ) • 

(TSTAR 

- Id 

OOOt  1 

QSAT 

= AMIN  1 (TEMP, P/1 .622) 

00012 

QSAT 

= .S22*QSAT/(P  - QSAT) 

00013 

RETURN 

00014 

END 

VARIABLE 

MAP 

--NAME--* 

BLOCK 

-TYPE 

--CLASS 

-REFERENCES 

A = 

ARGL1ST 

EST 

REAL 

ARRAY 

2 

3 

3 

EST  1 

REAL 

ARRAY 

2 

3 

4/1 

EST2 

REAL 

array 

2 

3 

5/1 

IC 

integer 

SIMPLE 

9/S 

10 

to 

P 

REAL 

SIMPLE 

t 

1 t 

T 2 

QSAT 

REAL 

FUNCTION 

1 

1 1 / 5 

12/S 

T 

real 

SIMPLE 

1 

6 

TEMP 

REAL 

SIMPLE 

10/S 

1 1 

TMAX 

REAL 

SIMPLE 

6/S 

7 

TWIN 

REAL 

SIMPLE 

7/S 

B 

T5TAR 

REAL 

SIMPLE 

S/S 

9 

10 

PROCEDURE  MAP 


SOSAT 

2 

SQSAT 

3 

SOSAT 

4 

SQSAT 

5 

SQSAT 

6 

SQSAT 

7 

SOSAT 

a 

SOSAT 

9 

SOSAT 

10 

SOSAT 

1 1 

SQSAT 

12 

SQSAT 

13 

SQSAT 

14 

SQSAT 

15 

SQSAT 

16 

SOSAT 

17 

SQSAT 

18 

SOSAT 

19 

SQSAT 

20 

SOSAT 

21 

SQSAT 

22 

SOSAT 

23 

SQSAT 

24 

SQSAT 

25 

SQSAT 

26 

SQSAT 

27 

SOSAT 

28 

SQSAT 

SOSAT 

SOSAT 

29 

30 

31 

o o 

-n  g 

SQSAT 

SQSAT 

SQSAT 

32 

33 

34 

-o  g 

SQSAT 

35 

Q » 

SOSAT 

36 

31 1- 

SQSAT 

37 

O 3J 

SQSAT 

38 

SOSAT 

33 

C 3* 

SQSAT 

40 

T>  O 

SQSAT 

41 

r*  rfl 

SQSAT 

SQSAT 

42 

43 

Z3 

SQSAT 

44 

SQSAT 

45 

SQSAT 

46 

SQSAT 

47 

SQSAT 

48 

SQSAT 

49 

SQSAT 

50 

SQSAT 

51 

SQSAT 

52 

SQSAT 

53 

SQSAT 

54 

SOSAT 

55 

= CTRL  OF  DO,  I = DATA  INIT,  R =READ , S=5T0RE,  WsWRITE 
10  10  10 


10 

10 

1 2 

1 2 

o 

CO 

£ 


- -name  - 

AMA/1 
AMIN  1 


C/S 


> 

H 


TYPE  - ~ - - - - - CLASS 


REFERENCES  D=STMT  FN  DEF , A^ARGLTST 


to 


REAL  INTRINSIC  6 

REAL  INTRINSIC  7 It 


ORIGINAL  PASS  W 
OF  POOR  QUALITY 


OOOO  1 

SUBROUTINE  RADIO  (J) 

SRADIO 

2 

C 

SRADIO 

3 

c 

SCNTRL 

2 

c 

CHARACTER 

MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

3 

0 

SCNTRL 

4 

00002 

COMMON 

/ CCNTRL / 

cco 

SCNTRL 

5 

00003 

COMMON 

/CCNTRL/ 

ADATE 

SCNTRL 

6 

00004 

COMMON 

/CCNTRL/ 

ATIME 

SCNTRL 

7 

00005 

COMMON 

/CCNTRL/ 

JIC 

SCNTRL 

8 

00  00  6 

COMMON 

/CCNTRL/ 

JOB 

SCNTRL 

9 

00007 

COMMON 

/CCNTRL/ 

CCSP06 

SCNTRL 

1 0 

ooooa 

COMMON 

/CCNTRL/ 

C0SPO7 

SCNTRL 

1 1 

00009 

COMMON 

/CCNTRL/ 

CCSPOB 

SCNTRL 

1 2 

00010 

COMMON 

/CCNTRL/ 

VER 

SCNTRL 

13 

000  1 T 

COMMON 

/CCNTRL/ 

XL ABEL  (10) 

SCNTRL 

14 

000  12 

COMMON 

/CCNTRL/ 

CQS  {30 J 

SCNTRL 

15 

00013 

COMMON 

/CCNTRL/ 

CQU  (10) 

SCNTRL 

16 

c 

5CNTRL 

17 

00014 

EQUIVALENCE 

1CC0,CC( 1 ) t 

SCNTRL 

18 

00015 

CHARACTER  *8 

CCO,  CC  < 200  > 

SCNTRL 

19 

00016 

CHARACTER  *6 

ADATE 

SCNTRL 

20 

00017 

CHARACTERS 

ATIME 

SCNTRL 

21 

ooois 

characters 

JIC 

SCNTRL 

22 

000  19 

CHARACTER  *8 

JOB 

SCNTRL 

23 

00020 

CHARACTER  *8 

CCSP06 

SCNTRL 

24 

00021 

CHARACTER  S 

CCSP07 

SCNTRL 

25 

00022 

CHARACTERS 

CCSPOS 

SCNTRL 

26 

00023 

characters 

VER 

SCNTRL 

27 

00024 

CHARACTERS 

XLA0EL 

SCNTRL 

23 

c 

SCNTRL 

29 

c 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

30 

c 

=-^  = = = = = = = = sssss  = — — ---s  = = = = = s = = 

SCNTRL 

3 1 

00025 

COMMON 

/ 3 CNTRL / 

ICO 

SCNTRL 

32 

00026 

COMMON 

/ICNTRL/ 

IM 

SCNTRL 

33 

00027 

COMMON 

/ICNTRL/ 

IMD2 

SCNTRL 

34 

00026 

COMMON 

/ ICNTRL/ 

IMD2P 1 

SCNTRL 

35 

00029 

COMMON 

/ICNTRL/ 

NDR5W 

SCNTRL 

36 

00030 

COMMON 

/ICNTRL/ 

JM 

SCNTRL 

37 

0003  T 

COMMON 

/ICNTRL/ 

JMD2 

SCNTRL 

38 

00032 

COMMON 

/ICNTRL/ 

JMT2 

SCNTRL 

39 

00033 

COMMON 

/ICNTRL/ 

JNP 

SCNTRL 

40 

00034 

COMMON 

/ICNTRL/ 

J04 

SCNTRL 

41 

00035 

COMMON 

/ICNTRL/ 

joa 

SCNTRL 

42 

0 0036 

COMMON 

/ICNTRL/ 

JSP 

SCNTRL 

43 

00037 

COMMON 

/ICNTRL/ 

KLIALB 

SCNTRL 

44 

00033 

COMMON 

/ICNTRL/ 

KL  I GW 

SCNTRL 

45 

0 0039 

COMMON 

/ICNTRL/ 

KLISST 

SCNTRL 

46 

00040 

COMMON 

/ICNTRL/ 

KS 

SCNTRL 

47 

00041 

COMMON 

/ICNTRL/ 

KU 

SCNTRL 

48 

00042 

COMMON 

/ICNTRL/ 

LOGSR 

SCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

matin 

SCNTRL 

50 

00044 

COMMON 

/ICNTRL/ 

MATSNJt 

SCNTRL 

5 1 

00045 

COMMON 

/ICNTRL/ 

MATSUN 

SCNTRL 

52 

00046 

COMMON 

/ICNTRL/ 

MLR  (12) 

SCNTRL 

53 

00047 

COMMON 

/ICNTRL  f 

MROD 

SCNTRL 

54 

0004B 

COMMON 

/ICNTRL/ 

NKRSH 

SCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

M5M 

SCNTRL 

56 

00050 

COMMON 

/ICNTRL/ 

NB 

SCNTRL 

57 

0005  1 

COMMON 

/ICNTRL/ 

ND 

SCNTRL 

58 

00052 

COMMON 

/icnthl/ 

NDALT 

SCNTRL 

59 

00053 

COMMON 

/ICNTRL/ 

NDAY 

SCNTRL 

60 

00054 

common 

/ICNTRL/ 

NDOUT 

SCNTRL 

61 

00055 

COMMON 

/ICNTRL/ 

NDPHY 

SCNTRL 

62 

00D56 

COMMON 

/ICNTRL/ 

NDSHF 

SCNTRL 

63 

00057 

COMMON 

/ I CNTRL/ 

NOT 

SCNTRL 

64 

ooosa 

COMMON 

/ICNTRL/ 

NHMS 

SCNTRL 

65 

00059 

COMPTON 

/ICNTRL/ 

NHMSE 

SCNTRL 

66 

00060 

COMMON 

/ICNTRL/ 

NHMSO 

SCNTRL 

67 

00061 

common 

/ICNTRL/ 

NLA  Y 

SCNTRL 

68 

00062 

COMMON 

/ICNTRL/ 

NLAYM1 

SCNTRL 

69 

00063 

COMMON 

/ICNTRL/ 

NLA  YP 1 

SCNTRL 

70 

M 

O 


ORIGINAL  PAG£  110 
QF  POOR  QUALITY 


M 

O 


OQOG4 

COMMON  /ICNTRL/ 

N5DAY 

SCNTRL 

71 

00085 

COMMON  /ICNTRL/ 

NSEQ 

SCNTRL 

72 

OOQ6G 

COMMON  /ICNTRL/ 

IC5P53 

SCNTRL 

73 

00087 

COMMON  / I CNTRL/ 

N5TEP 

SCNTRL 

74 

00065 

COMMON  /ICNTRL/ 

ICSP55 

SCNTRL 

75 

00063 

COMMON  /ICNTRL/ 

NYMD 

SCNTRL 

76 

00070 

COMMON  /ICNTRL/ 

NYMDE 

SCNTRL 

77 

0007  1 

COMMON  /ICNTRL/ 

NYMDO 

SCNTRL 

78 

00072 

COMMON  /ICNTRL/ 

NZINI T 

SCNTRL 

79 

00073 

COMMON  /ICNTRL/ 

NMLEV 

SCNTRL 

BO 

00074 

COMMON  /ICNTRL/ 

NDHOG 

SCNTRL 

81 

0007S 

COMMON  /ICNTRL/ 

IQS  1301 

SCNTRL 

82 

00076 

COMMON  /ICNTRL/ 

IQU  MO) 

SCNTRL 

83 

G 

SCNTRL 

84 

00077 

EQUIVALENCE 

( ITMIN 

, iQSf 

1 > ) 

SCNTRL 

05 

00078 

EQUIVALENCE 

( I TMA  X 

. IQSf 

2)  ) 

SCNTRL 

86 

00079 

EQUIVALENCE 

f IPREACC 

, IQSf 

3 ) ) 

SCNTRL 

e/ 

0 0080 

EQUIVALENCE 

( IPRECON 

,IQSr 

4)  ) 

SCNTRL 

as 

0008  1 

EQUIVALENCE 

{ INFLUX 

. IQS( 

5)  ) 

SCNTRL 

89 

00082 

equivalence 

f IEFLUX 

, IQSf 

6)  > 

SCNTRL 

30 

00083 

EQUI VALENCE 

< IFUSION 

, r qs< 

7 > ) 

SCNTRL 

9 1 

00084 

EQUIVALENCE 

t IRADSLYG 

> I QSf 

8)  > 

SCNTRL 

92 

00085 

EQUIVALENCE 

t IRADLWG 

, IQSf 

9)  ) 

SCNTRL 

93 

00086 

equivalence 

f IICLOUD 

, IQSf  10  ) J 

SCNTRL 

34 

C 

SCNTRL 

95 

00087 

EQUIVALENCE 

( IOMEGA 

, I QU( 

1 ) ) 

SCNTRL 

96 

00088 

EQUIVALENCE 

( IDIABAT 

, IQU  r 

2)  ) 

SCNTRL 

97 

00089 

EQUI VALENCE 

f IRADSW 

, IQUf 

3)  J 

SCNTRL 

sa 

c 

SCNTRL 

99 

00090 

EQUIVALENCE 

( ICO, )C(1I) 

SCNTRL 

100 

0009  t 

INTEGER 

ICQ,  I C ( 200 } 

SCNTRL 

101 

c 

SCNTRL 

102 

c 

c 

LOGICAL  MODEL  PARAMETERS  SAVED  ON 

HISTORY  RECORD 

SCNTRL 

103 

00092 

COMMON  /LCNTRL / 

LCD 

li  ( Qb 

SCNTRL 

105 

00093 

COMPTON  /LCNTRL/ 

QALT 

SCNTRL 

106 

00094 

COMMON  /LCNTRL/ 

QB  EG 

SCNTRL 

1 07 

00095 

COMMON  /LCNTRL/ 

QDAY 

SCNTRL 

108 

00096 

COMMON  /LCNTRL/ 

QEND 

SCNTRL 

109 

00097 

COMMON  /LCNTRL/ 

QOUT 

SCNTRL 

1 1 0 

00098 

COMMON  /LCNTRL/ 

QPHY 

SCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

Q5HF 

SCNTRL 

1 12 

ooioo 

COMMON  /LCNTRL/ 

SN2FLG 

SCNTRL 

113 

ooto  t 

COMMON  /LCNTRL/ 

QRSW 

SCNTRL 

114 

oo  t02 

COMMON  /LCNTRL/ 

QRSH 

SCNTRL 

115 

00103 

COMMON  /LCNTRL/ 

LQS 1 30 ) 

SCNTRL 

1 16 

00  104 

COPrtMON  /LCNTRL/ 

LQU ( 10) 

SLNTRL 

117 

c 

SCNTRL 

1 18 

00  105 

equivalence 

(LTMIN 

,LQSf 

1 ) ) 

SCNTRL 

1 19 

00105 

EQUIVALENCE 

f L TMA  X 

, LQS  f 

2)  ) 

SCNTRL 

120 

00  107 

equivalence 

(LPREACC 

,LQS  i 

3)  > 

SCNTRL 

121 

00108 

EQUIVALENCE 

f LPRECON 

• LQS  ( 

4)  > 

SCNTRL 

122 

00  109 

equivalence 

(LHFLUX 

,LQSf 

5)  ) 

SCNTRL 

123 

00  1 10 

EQUIVALENCE 

( LEFLUX 

. LQS  ( 

6)  } 

SCNTRL 

124 

00111 

EQUI VALENCE 

(LFUSION 

* LQS  < 

7)  ) 

SCNTRL 

125 

00112 

EQUIVALENCE 

( LRADSWG 

rLQSf 

8)  ) 

SCNTRL 

126 

00113 

equivalence 

(LRADLV/G 

, LQS{ 

9>  ) 

SCNTRL 

127 

00  114 

EQUIVALENCE 

< LICLOUD 

, LQS f 1 

0 ) J 

SCNTRL 

1 28 

c 

SCNTRL 

129 

00115 

EQUIVALENCE 

(LOMEGA 

* LQU  ( 

1)  ) 

SCNTRL 

130 

00  116 

EQUIVALENCE 

(LDIABAT 

i LQU  ( 

2)  J 

SCNTRL 

131 

00117 

EQUIVALENCE 

{ LRADSW 

. LQU  f 

3)) 

SCNTRL 

132 

c 

SCNTRL 

133 

001  IS 

LOGICAL 

QALT 

SCNTRL 

134 

001  19 

LOGICAL 

QBEG 

SCNTRL 

135 

00120 

LOGICAL 

QDAY 

SCNTRL 

136 

00121 

LOGICAL 

QEND 

SCNTRL 

137 

00122 

LOGICAL 

QOUT 

SCNTRL 

1 38 

00123 

logical 

QPHY 

SCNTRL 

139 

00  1 24 

LOGICAL. 

QSHF 

SCNTRL 

140 

00125 

LOGICAL 

SN2FLG 

SCNTRL 

141 

ORIGINAL.  pAGS  Tvs 
OF  POOR  QUALITY 


0012S 

LOGICAL 

QR5W 

SCNTRL 

142 

00127 

LOGICAL 

QR5H 

5CNTRL 

143 

C 

SCNTRL 

144 

0012B 

LOGICAL 

LQS 

SCNTRL 

145 

00129 

LOGICAL 

LQU 

SCNTRL 

146 

00  1 3t} 

LOGICAL 

LTMIN 

SCNTRL 

147 

00131 

LOGICAL 

LTMAX 

SCNTRL 

148 

00132 

LOGICAL 

LPREACC 

SCNTRL 

149 

00133 

LOGICAL 

lphecoN 

SCNTRL 

150 

00134 

LOGICAL 

LHFLUX 

SCNTRL 

151 

001  35 

LOGICAL 

LEFLUX 

SCNTRL 

152 

00136 

LOGICAL 

L FUSION 

SCNTRL 

153 

00137 

LOGICAL 

LRADSWG 

SCNTRL 

154 

0013B 

LOGICAL 

LRADLWG 

SCNTRL 

155 

00139 

LOGICAL 

LICLOUD 

SCNTRL 

156 

c 

SCNTRL 

157 

00140 

LOGICAL 

LOMEGA 

SCNTRL 

158 

00141 

LOGICAL 

LDIABAT 

SCNTRL 

159 

00  142 

LOGICAL 

LRADS1V 

SCNTRL 

160 

c 

SCNTRL 

161 

00  1 43 

EQUIVALENCE 

ILCO.LCt 1 ) ) 

SCNTRL 

162 

00144 

LOGICAL 

LCO,  LC(20Q) 

SCNTRL 

163 

c 

SCNTRL 

164 

c 

HEAL  MODEL 

PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

165 

c 

SCNTRL 

166 

00  145 

COMMON 

/ RCNTRL / 

RCO 

SCNTRL 

167 

00146 

COMMON 

/ RCNTRL / 

APHEL 

SCNTRL 

1 68 

00147 

COMMON 

/RCNTRL/ 

SETA 

SCNTRL 

169 

0014B 

COMMON 

/RCNTRL/ 

COSD 

SCNTRL 

170 

00149 

COMMON 

/RCNTRL/ 

CP 

SCNTRL 

171 

00  150 

COMMON 

/RCNTRL/ 

DAY5PY 

SCNTRL 

172 

00  15  1 

COMMON 

/RCNTRL/ 

DEC 

SCNTRL 

173 

00152 

COMMON 

/RCNTRL/ 

DECMAX 

SCNTRL 

174 

00  153 

COMMON 

/RCNTRL/ 

DI5T 

SCNTRL 

175 

00  154 

COMMON 

/RCNTRL/ 

DL  AT 

SCNTRL 

176 

00155 

COMMON 

/RCNTRL/ 

DLON 

SCNTRL 

177 

00  156 

COMMON 

/RCNTRL/ 

DT 

SCNTRL 

178 

00  157 

COMMON 

/RCNTRL/ 

ECCN 

SCNTRL 

179 

00158 

COMMON 

/RCNTRL/ 

GNU  1 

SCNTRL 

180 

00  1 S3 

COMMON 

/RCNTRL/ 

GNU2 

SCNTRL 

1S1 

00  160 

COMMON 

/RCNTRL/ 

GRAV 

SCNTRL 

182 

0016  1 

COMMON 

/RCNTRL/ 

OMEGA2 

SCNTRL 

183 

00162 

COMMON 

/RCNTRL/ 

PI 

SCNTRL 

184 

00  163 

COMMON 

/RCNTRL/ 
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30 

* * * m * 

SRADIO 

3 1 

j 

c 

SRADIO 

32 

t 

00378 

DO  10  t 0 L” 1 * NLA Y 

SRADIO 

33 

i 

00378 

DO  1010  1-1 , IM 

SRADIO 

34 

00330 

R ADSW  U , L , J ) = RADSW(I,L,J)  * CUMR AT * AS f I , L ) 

SRADIO 

35 

003S  1 

1010  CONTINUE 

SRADIO 

35 

00332 

DO  1020  1=1 t IM 

SRADIO 

37 

003S3 

RADSWG  ( I , d ) = RAD5WG1  I , J ) + CUMRAT*SGU  ) 

SRADIO 

38 

0 0354 

1020  CONTINUE 

SRADIO 

39 

C 

SRADIO 

40 

00383 

IF  I.NOT.QHOG)  GO  TO  420 

SRADIO 

4 1 

C 

SRADIO 

42 

00386 

JALB  = J 

SRADIO 

43 

00387 

DO  1030  1= 1 , IM 

SRADIO 

44 

C 

SRADIO 

45 

;li  ■* 

0038S 

CALL  LINKHO  ( NLA Y , NF LW , NDA Y * I F I X ( XL AT* , 5 ) , dNP , I ) 

SRADIO 

46 

TV 

C 

SRADIO 

47 

:\l 

00389 

DO  4 IS  L= 1 , NLAY 

SRADIO 

48 

& 

00390 

RADLWf I ( L , d > = R E ( I , L 1 

SRADIO 

49 

00391 

415  CONTINUE 

SRADIO 

50 

► 

00332 

RADLWG(ItJ)  = REtl.NLAYPI) 

SRADIO 

51 

u 

C 

SRADIO 

52 

| 

00393 

1030  CONTINUE 

SRADIO 

53 

I* 

C 

SRADIO 

54 

J 

00394 

GO  TO  440 

SRADIO 

55 

i# 

C 

SRADIO 

56 

\ 

SRADIO 

57 

fv 

c 

SRADIO 

SB 

00395 

420  CONTINUE 

SRADIO 

59 

et  ^ 

C 

SRADIO 

60 

SRADIO 

61 

??• 

c 

SRADIO 

62 

00396 

DO  1040  L= 1 ,NLAY 

SRADIO 

63 

i 

00397 

DO  1040  I = 1 t I M 

SRADIO 

64 

4 ^ 

00398 

REfl.LJ  = RADLW ( I , L , d ) 

SRADIO 

65 

00399 

1040  CONTINUE 

SRADIO 

66 

4 * 

J | 

00400 

DO  1 050  1= 1 ( IM 

SRADIO 

67 

rf 

|t 

00401 

RE  ( I , NLAYP 1 ) = RADLWG ( 1 , d ) 

SRADIO 

68 

00402 

1050  CONTINUE 

SRADIO 

69 

C 

SRADIO 

70 

: ^ 

C **‘  + *'*  + **  + **  *■*  + **»*  + * **  + **  + *#*+*■»*■**  + + *■* 

SRADIO 

71 

t 

c 

SRADIO 

72 

j 

00403 

440  CONTINUE 

SRADIO 

73 

C 

SRADIO 

74 

0 **  + *****'*■**■#'■+•**  * + *+  +*  + ***4'»#*«****-***** 

SRADIO 

75 

{ 

c 

SRADIO 

76 

a 

| 

00404 

DO  1060  1=1, IM 

SRADIO 

77 

00405 

RADTRM  < I ) ~ SGI  I ) - REtl.NLAYPI) 

SRADIO 

7B 

00406 

1060  CONTINUE 

SRADIO 

79 

M 

O 


: 

l . 
i 

i 


ff 


ORIGINAL  PASE  IB 
OF  POOR  QUALITY 


«ar**  A 

, i 


c 

00407  RETURN 

0040B  END 

STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


1 000 
10000 

375 
37  1 

373 

1010 

381 

378 

379 

1020 

3B4 

3S2 

1030 

393 

3S7 

1040 

399 

396 

397 

1050 

402 

400 

TOGO 

4 OB 

404 

415 

39  1 

389 

420 

395 

372 

3B5 

440 

403 

394 

? 

f 


I 


VARIABLE  MAP 


■NAME----* 

---BLOCK 

TYPE 

--CLASS 

- --REFERENCES 

A = ARGL1! 

ADATE 

CCNTRL 

CHARTS 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

AL 

RADCOM 

REAL 

ARRAY 

354 

ALBEDO 

OANDOT 

REAL 

ARRAY 

244 

262 

374 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

AS 

RADCOM 

REAL 

ARRAY 

333 

380 

ATIME 

CCNTRL 

CHAR *8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

1^7 

CIO 

CNTRLP 

REAL 

SIMPLE 

309 

Cioo 

CNTRLP 

REAL 

SIMPLE 

310 

C40 

CNTRLP 

REAL 

SIMPLE 

31  1 

CALTOU 

RCNTflL 

REAL 

SIMPLE 

1 85 

CC 

CCNTRL 

CHAR  + 8 

ARRAY 

14 

15 

cco 

CCNTRL 

CHARTS 

SIMPLE 

2 

14 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

4 

CCSP06 

CCNTRL 

CHAR  *B 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHARTS 

SIMPLE 

a 

21 

CCSPOB 

CCNTRL 

CHAR*B 

SIMPLE 

9 

22 

CDATE 

RADCOM 

REAL 

ARRAY 

363 

CDFR 

CNTRLP 

REAL 

SIMPLE 

297 

CD  XL 

CNTRLP 

REAL 

SIMPLE 

298 

CDXO 

CNTRLP 

REAL 

SIMPLE 

299 

CLH 

CNTRLP 

REAL 

SIMPLE 

300 

CLOUD 

RADCOM 

REAL 

ARRAY 

345 

CNTRLP 

REAL 

unknown 

257 

298 

299 

303 

309 

310 

319 

320 

321 

330 

331 

332 

COE 

CNTRLP 

REAL 

ARRAY 

30  1 

COEF 

CNTRLP 

REAL 

SIMPLE 

302 

COEFS 

CNTRLP 

REAL 

SIMPLE 

303 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

zoa 

CON  2 

RDPARM 

REAL 

SIMPLE 

209 

C0N2DT 

RDPARM 

REAL 

SIMPLE 

210 

C0N3 

RDPARM 

real 

simple 

211 

CON3DT 

RDPARM 

REAL 

SIMPLE 

212 

C0N4 

RDPARM 

REAL 

SIMPLE 

2 13 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

214 

CONS 

RDPARM 

REAL 

SIMPLE 

215 

CDSD 

RCNTRL 

REAL 

SIMPLE 

148 

COSL 

RDPARM 

REAL 

ARflAY 

216 

COSLON 

RDPARM 

REAL 

ARRAY 

217 

COSROT 

CNTRLP 

REAL 

SIMPLE 

304 

COSZ 

RADCOM 

real 

array 

365 

CP 

RCNTRL 

REAL 

SIMPLE 

1 49 

CPD2 

RDPARM 

REAL 

SIMPLE 

218 

I 


SRADIO  80 
SRADIO  8 1 
SRADIO  82 


C^CTRL  OF  DO,  I = DATA  INIT,  R=READ,  S=STORE  . V/  = V/RITE 


5 6 7 8 3 TO  IT  12 


300 

30  1 

302 

303 

304 

305 

306 

307 

31  1 

312 

313 

314 

315 

316 

317 

318 

322 

323 

324 

325 

326 

327 

32B 

329 

333 

334 

335 

336 

337 

ORIGINAL  PASS  S'a 
RADIO  8 0F  poOR  QUAUTif 


+r.r. 


1 CPP 

CNTRLP 

REAL 

SIMPLE 

305 

i:  cqs 

CCNTRL 

REAL 

ARRAY 

12 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

I-  CT  ID 

CNTRLP 

REAL 

SIMPLE 

306 

CUMDAY 

CNTRLP 

REAL 

SIMPLE 

307 

S CUMR AT 

CNTRLP 

REAL 

simple 

308 

380 

3B3 

f CVQ 

RADCOM 

REAL 

ARRAY 

351 

t CVT 

RADCOM 

REAL 

ARRAY 

351 

CXDE 

RADCOM 

REAL 

ARRAY 

352 

CXL 

RADCOM 

REAL 

SIMPLE 

355 

* CZH 

RADCOM 

REAL 

ARRAY 

364 

l DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

■ DEC 

RCNTRL 

REAL 

SIMPLE 

151 

j DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DELTA 

CNTRLP 

REAL 

SIMPLE 

312 

| i DIABAT 

QANOQT 

REAL 

ARRAY 

285 

294 

DIST 

RCNTRL 

REAL 

SIMPLE 

153 

1 i 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

r 1 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

□ SIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

\i 

DTC3 

CNTRLP 

real 

simple 

3 13 

fc 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

314 

i DXP 

RDPARM 

REAL 

ARRAY 

219 

■ DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

221 

i ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

; ED 

CNTRLP 

REAL 

SIMPLE 

3 15 

i-  ■ i EDNM 

CNTRLP 

REAL 

SIMPLE 

316 

EFLUX 

QANDQT 

REAL 

ARRAY 

255 

273 

EPS 

RCNTRL 

REAL 

SIMPLE 

183 

i EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

EVAP 

RADCOM 

REAL 

SIMPLE 

364 

. F1DT 

RDPARM 

REAL 

SIMPLE 

223 

■3  F2DT 

RDPARM 

HEAL 

SIMPLE 

224 

FCOEF 

CNTRLP 

REAL 

SIMPLE 

317 

L.i 

FCORL5 

RDPARM 

REAL 

ARRAY 

222 

Tft  FILTER 

LDFARM 

LOGICAL 

ARRAY 

200 

203 

* FK 

RADCOM 

REAL 

ARRAY 

360 

•* 

FMU 

CNTRLP 

REAL 

SIMPLE 

318 

FROST 

RADCOM 

LOGICAL 

ARRAY 

369 

370 

. » FUSION 

QANDQT 

REAL 

ARRAY 

256 

274 

;i 

FWET 

CNTRLP 

REAL 

SIMPLE 

3 19 

GAM 

RADCOM 

REAL 

ARRAY 

346 

5 

i i 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

320 

GNU  1 

RCNTRL 

real 

SIMPLE 

158 

id 

GNU  2 

RCNTRL 

REAL 

SIMPLE 

159 

l T GRAV 

RCNTRL 

REAL 

SIMPLE 

160 

5 k gt 

QANDQT 

REAL 

ARRAY 

245 

263 

G 4 GTOPO 

CNTRLP 

REAL 

SIMPLE 

32  1 

}*  GW 

QANDQT 

REAL 

ARRAY 

246 

264 

3 H IDT 

RDPARM 

REAL 

SIMPLE 

225 

3 H2DT 

RDPARM 

REAL 

SIMPLE 

226 

\ 1 HEATI 

RCNTRL 

REAL 

SIMPLE 

182 

3 - HEATW 

RCNTRL 

REAL 

SIMPLE 

18  1 

5 1 HFLUX 

QANDQT 

REAL 

ARRAY 

254 

272 

5 • HH 

RADCOM 

REAL 

ARRAY 

349 

j HHE 

RADCOM 

REAL 

ARRAY 

349 

) l HHS 

RADCOM 

real 

ARRAY 

350 

* MICE 

CNTRLP 

REAL 

SIMPLE 

322 

I 

INTEGER 

SIMPLE 

373/C 

374 

374 

3S7/C 

3 88 

390 

401 

404/C 

405 

[ ID 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

i ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

91 

! ICE 

RADCOM 

LOGICAL 

ARRAY 

368 

370 

1 I CLOUD 

QANDQT 

INTEGER 

ARRAY 

259 

277 

! ICNTRL 

INTEGER 

UNKNOWN 

26 

26 

27 

* ■ 

36 

37 

38 

■ 

47 

48 

49 

!:■ 


V £ 

i 

f * 

i 


£ ° 

3 e 
o ^ 
O 5 
33  r 

o -g 

c g 

r-  pa 


£& 


379/C  3S0  3SQ  380  3S2/C  3B3 
390  392  392  397/C  398  398 
405  405 


333  333 

400/C  401 


28 

29 

30 

31 

32 

33 

34 

35 

39 

40 

41 

42 

43 

44 

45 

46 

50 

5 1 

52 

53 

54 

55 

56 

57 

M 

O 


\a 


J*T. 


M 

O 


i 


I 

| 


f 


i 


58 

59 

60 

6 1 

62 

63 

64 

65 

66 

67 

69 

70 

7 I 

72 

73 

74 

75 

76 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

68 

I D I AS A T 

ICNTRL 

INTEGER 

UNKNOWN 

BS 

IDPARM 

INTEGER 

UNKNOWN 

T 39 

190 

191 

192 

1 93 

194 

195 

196 

197 

193 

I0SP02 

IDPARM 

INTEGER 

SIMPLE 

190 

I E F LUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

I F US I ON 

rCNTRL 

INTEGER 

UNKNOWN 

83 

I HF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

8 1 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

integer 

ARRAV 

189 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

373 

379 

382 

387 

397 

400 

404 

IMP2 

ICNTRL 

INTEGER 

simple 

27 

IMD2P 1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAV 

19  1 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

79 

80 

81 

B2 

83 

84 

85 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

88 

89 

iradlwg 

ICNTRL 

INTEGER 

UNKNOWN 

B5 

IRAOSW 

ICNTRL 

integer 

UNKNOWN 

89 

I RADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

rDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDP ARM 

LOGICAL 

SIMPLE 

20  1 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

I TMIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

J 

INTEGER 

SIMPLE 

1 

374 

376 

377 

3B0 

380 

333 

383 

336 

390 

398 

40  1 

JALB 

RADCOM 

INTEGER 

SIMPLE 

367 

386  f S 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

JIG 

CCNTRL 

CHAR  *8 

SIMPLE 

5 

IS 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

388 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOB 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR*8 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

integer 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

L 

INTEGER 

SIMPLE 

378  /C 

380 

380 

380 

389/C 

390 

390 

39G/C 

398 

398 

LAND 

RADCOM 

LOGICAL 

ARRAY 

368 

370 

to 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

lco 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

95 

96 

97 

98 

99 

1 00 

10  1 

103 

1 04 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

LOPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

135 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

t 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

unknown 

1 09 

t 34 

LICLOUD 

LCNTRL 

logical 

UNKNOWN 

1 14 

1 39 

LQGSR 

ICNTRL 

INTEGER 

SIMPLE 

42 

LQMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 

t 05 

1 06 

107 

108 

109 

1 1 0 

1 1 1 

1 1 2 

1 13 

1 28 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

1 04 

1 15 

1 16 

1 1 7 

1 29 

IRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

138 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

EB  O 


T 99 


86 


392 


O Q 

"=1  '3 

-u  o 

r " 

C ! 


*0 

d V:, 


t 02 


114 


t C.  iVlL' 


LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

ICG 

131 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

MA  TIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

integer 

SIMPLE 

44 

MATSU N 

rCNTRL 

INTEGER 

SIMPLE 

45 

MIXWI 

RADCOM 

LOGICAL 

ARRAY 

369 

370 

MJ 

IDPARM 

integer 

ARRAY 

T 97 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MRQD 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

m 

ICNTRL 

INTEGER 

SIMPLE 

50 

nd 

ICNTRL 

INTEGER 

SIMPLE 

51 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDA  y 

ICNTRL 

INTEGER 

SIMPLE 

53 

338 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

MOOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHV 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

WDSHF 

ICNTRL 

INTEGER 

SIMPLE 

se 

NDT 

ICNTRL 

integer 

SIMPLE 

57 

NDTC3 

CNTRLP 

INTEGER 

SIMPLE 

323 

NFK 

RADCOM 

INTEGER 

SIMPLE 

360 

NFLW 

CNTRLP 

INTEGER 

SIMPLE 

324 

372 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

5S 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMS1 

IDPARM 

INTEGER 

SIMPLE 

IBS 

NHMSE 

ICNTRL 

INTEGER 

simple 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLA  Y 

ICNTRL 

integer 

SIMPLE 

61 

37B 

NLA  YM 1 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLAYOZ 

RADCOM 

INTEGER 

SIMPLE 

359 

NLA YP 1 

ICNTRL 

INTEGER 

SIMPLE 

63 

392 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NOZ 

RADCOM 

INTEGER 

SIMPLE 

363 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

N5TEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

7 1 

nymdi 

IDPARM 

INTEGER 

SIMPLE 

t 99 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZ1NIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OCEAN 

RADCOM 

LOGICAL 

ARRAY 

368 

370 

0CM22 

RADCOM 

REAL 

ARRAY 

362 

0CM30 

RADCOM 

real 

ARRAY 

362 

OCM3S 

RADCOM 

REAL 

ARRAY 

362 

OCM4G 

RADCOM 

REAL 

ARRAY 

362 

OCMXX 

RADCOM 

REAL 

ARRAY 

363 

OLAPR 

RADCOM 

REAL 

ARRAY 

36  1 

OL  JAN 

RADCOM 

REAL 

ARRAY 

36  1 

OLJUL 

RADCOM 

REAL 

ARRAY 

36  1 

OLOCT 

RADCOM 

REAL 

ARRAY 

361 

OMEGA 

OANDOT 

REAL 

array 

284 

293 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

161 

OZALE 

RADCOM 

REAL 

ARRAY 

355 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

PHI 

QANDQT 

REAL 

ARRAY 

233 

292 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  tso 

RCNTRL 

REAL 

SIMPLE 

163 

P I 2 

RCNTRL 

REAL 

SIMPLE 

164 

PIM 

CNTRLP 

REAL 

SIMPLE 

325 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

t 66 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

RDP  ARM 

REAL 

SIMPLE 

228 

PL 

RADCOM 

REAL 

ARRAY 

340 

PLE 

RADCOM 

REAL 

ARRAY 

340 

PLEVS 

RCNTRL 

REAL 

ARRAY 

180 

PLK 

RADCOM 

REAL 

ARRAY 

34  1 

H 

O 


PLKE 

RADCOM 

REAL 

ARRAY 

34  1 

PRHACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PRECCN 

QANDQT 

REAL 

ARRAY 

253 

27  I 

PREP 

RADCOM 

REAL 

ARRAY 

364 

PROCM 

RADCOM 

REAL 

ARRAY 

363 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

157 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

1 68 

FSJD 

RCNTRL 

REAL 

SIMPLE 

155 

PTOP 

RCNTRL 

REAL 

SIMPLE 

169 

PZERO 

RCNTRL 

REAL 

SIMPLE 

185 

QALT 
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--LABEL-- 
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10 
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3 t S 

10000 

313 

50 

325 

3 t 6 

60 

323 

326 

70 

335 

323  330 

VARIABLE 

MAP 

name 

BLOCK 

---TYPE 

--CLASS 

**■ -REFERENCES 

ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

3 

16 

ADLDP 

RDpARM 

REAL 

SIMPLE 

206 

ALBEDO 

qandqt 

REAL 

ARRAY 

244 

262 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

185 

cc 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

CCO 

CCNTRL 

CHARTS 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

CCSP06 

CCNTRL 

CHAR  *8 

SIMPLE 

1 3 
7 

20 

CCSP07 

CCNTRL 

CHAR'S 

SIMPLE 

B 

21 

CCSP08 

CCNTRL 

CHAR'S 

SIMPLE 

3 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

208 

CON2 

RDPARM 

REAL 

SIMPLE 

209 

CON2DT 

RDPARM 

REAL 

SIMPLE 

210 

COM3 

RDPARM 

REAL 

SIMPLE 

21  1 

CON3DT 

RDPARM 

REAL 

SIMPLE 

212 

CON4 

RDPARM 

REAL 

SIMPLE 

213 

C0N40T 

RDPARM 

REAL 

SIMPLE 

214 

CON5 

RDPARM 

REAL 

SIMPLE 

215 

GONV 

OMSAVE 

REAL 

ARRAY 

31  J 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

cost 

RDPARM 

REAL 

ARRAY 

216 

COSLON 

RDPARM 

REAL 

ARRAY 

217 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

218 

CQS 

CCNTRL 

REAL 

ARRAY 

12 

CQU 

CCNTRL 

REAL 

ARRAY 

13 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

DEC 

RCNTRL 

REAL 

SIMPLE 

15  1 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

t 52 

DIABAT 

QANDQT 

REAL 

ARRAY 

285 

294 

DIST 

RCNTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

DXF 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

221 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

EFLUX 

QANDQT 

REAL 

ARRAY 

255 

273 

EPS 

RCNTRL 

REAL 

SIMPLE 

163 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

F 1 DT 

RDPARM 

REAL 

SIMPLE 

223 

F2DT 

RDPARM 

REAL 

SIMPLE 

224 
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FCQRL5 

RDPARM 

REAL 

ARRAY 

222 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

200 

203 

FUSION 

QANDQT 

REAL 

ARRAY 

256 

274 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

158 

GNU2 

RCNTRL 

REAL 

SIMPLE 

159 

GRAV 

RCNTRL 

PEAL 

SIMPLE 

160 

GT 

QANDQT 

REAL 

ARRAY 

245 

263 

GW 

QANDQT 

REAL 

ARRAY 

246 

264 

H1DT 

RDPARM. 

REAL 

SIMPLE 

225 

H2DT 

RDPARM 

REAL 

SIMPLE 

226 

HEATI 

RCNTRL 

REAL 

SIMPLE 

182 

HEATW 

RCNTRL 

REAL 

SIMPLE 

181 

HFLUX 

QANDQT 

REAL 

ARRAY 

254 

272 

r 

INTEGER 

SIMPLE 

326/C 

327 

334 

IC 

icntrl 

INTEGER 

ARRAY 

90 

91 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

I CLOUD 

QANDOT 

INTEGER 

ARRAY 

259 

277 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

36 

37 

47 

48 

58 

59 

69 

70 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

icntrl 

INTEGER 

SIMPLE 

6B 

I0IABAT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

189 

TEO 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

190 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

32 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

33 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

81 

1 1 CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

! DP  ARM 

INTEGER 

ARRAY 

139 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

326 

IMD2 

ICNTRL 

integer 

SIMPLE 

27 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

array 

191 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

37 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

IROD 

IDPARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

201 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

U 

INTEGER 

SIMPLE 

1 

314 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

315 

JE 

IDPARM 

INTEGER 

ARRAY 

1 94 

JIC 

CCNTRL 

CHARTS 

SIMPLE 

5 

IS 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR  *8 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

K 

INTEGER 

SIMPLE 

315/S 

317 

KLIALB 

icntrl 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

4t 

L 

INTEGER 

SIMPLE 

318/C 

319 

pa 


GO 

h3 
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CO 


327 

330  fO 

331 

331 

332 

332 

333 

333 

334 
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27 

28 

29 

30 

31 

32 

33 

34 

35 

38 

39 

40 

41 

42 

43 

44 

45 

46 

49 

50 

5 1 

52 

53 

54 

55 

56 

57 

60 

6 1 

62 

63 

64 

65 

66 

67 

68 

7 t 

72 

73 

74 

75 

76 
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192 

193 

194 

195 

196 

197 

1 98 

199 
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315  327  33  1 332  333  334 


319  320  321  322  327  33 T 332  333 


319  320  320  321  321  322  322  329/C  331 


331 

332 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

1 43 

LCNTRL 

INTEGER 

UNKNOWN 

32 

33 

1 03 

104 

LD I A8AT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

tDPARWi 

INTEGER 

UNKNOWN 

200 

201 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 to 

135 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

LOGBR 

ICNTRL 

INTEGER 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LRRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

1 33 

LQS 

LCNTRL 

LOGICAL 

array 

103 

1 05 

1 28 

LQU 

LCNTRL 

logical 

array 

104 

1 15 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

138 

LRADSV/ 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

t 06 

13  1 

LTMI.N . 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

M 

INTEGER 

SIMPLE 

314/S 

31  6 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MJ 

ID FARM 

INTEGER 

ARRAY 

197 

3 14 

MLF 

ICNTRL 

INTEGER 

ARRAY 

45 

MR  00 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

N 

INTEGER 

SIMPLE 

t 

317 

NB 

ICNTRL 

INTEGER 

SIMPLE 

50 

ND 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

ndalt 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

ND5HF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NMMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

NHM50 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMS1 

I DP ARM 

INTEGER 

SIMPLE 

198 

NHM5E 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

48 

NLA  Y 

ICNTRL 

INTEGER 

SlfclVLE 

61 

318 

NLA YM  t 

ICNTRL 

INTEGER 

SIMPLE 

62 

NLAYP  t 

ICNTRL 

INTEGER 

SIMPLE 

53 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMDQ 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

199 

NYMOE. 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA . 

QANDQT 

REAL 

ARRAY 

2B4 

293 

CMEGA2 

RCNTRL 

REAL 

SIMPLE 

161 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

PHI 

QANQQT 

REAL 

ARRAY 

283 

292 

PHIM 

QMSAVE 

REAL 

ARRAY 

308 

PHIP 

QPOLES 

REAL 

ARRAY 

302 

PHIS 

QANDQT 

REAL 

ARRAY 

24  2 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  180 

RCNTRL 

REAL 

SIMPLE 

163 

P I 2 

RCNTRL 

REAL 

SIMPLE 

164 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

332 

144 

333 

333 

334 

334 

94 

202 

95 

96 

97 

98 

99 

100 

101 

102 

106 

107 

toa 

109 

1 10 

1 1 1 

1 12 

t 13 

1 14 

1 16 

1 17 

129 

317 

319 

320 

32  1 

322 

319 

320 

32  1 

322 

327 

33  1 

332 

333 

334 

323 


O Q 


O 


3 

v 


O 
X'  ^ 


■O  M 

f- 


327/S 


g 


I 

\ 


A 


IV' 


V ' 


PIT 

QM5AVE 

REAL 

ARRAY 

310 

PKSTD 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

RDPARM 

REAL 

SIMPLE 

228 

PLEVS 

RCNTRL 

REAL 

ARRAY 

1 BO 

PM 

QM5AVE 

REAL 

ARRAY 

303 

317 

327 

PP 

QPOLES 

REAL 

ARRAY 

297 

317/S 

P RE ACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PRECON 

PANDQT 

REAL 

ARRAY 

253 

27  1 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

165 

PSTD 

RCNTRL 

REAL 

SIMPLE 

1 65 

PTOP 

RCNTRL 

REAL 

SIMPLE 

169 

PV 

QM5AVE 

REAL 

ARRAY 

309 

PZERO 

RCNTRL 

REAL 

SIMPLE 

1 B6 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 18 

QANDQT 

REAL 

UNKNOWN 

24  1 

278 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 19 

QDAY 

LCNTRL 

logical 

SIMPLE 

95 

1 20 

PEND 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

OMSAVE 

REAL 

UNKNOWN 

303 

304 

305 

306 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

1 22 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

QPOLES 

REAL 

UNKNOWN 

297 

298 

299 

300 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

1 02 

1 27 

PRSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

126 

os 

QANDQT 

REAL 

ARRAY 

24  1 

260 

261 

262 

270 

27  1 

272 

273 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

PLT 

qandqt 

REAL 

ARRAY 

278 

283 

289 

290 

RADE 

RCNTRL 

REAL 

SIMPLE 

170 

RADLW 

QANDPT 

REAL 

array 

287 

296 

RADLWG 

PANDQT 

REAL 

ARRAY 

253 

276 

RADSW 

QANDPT 

REAL 

ARRAY 

286 

295 

RADSWG 

OANDOT 

REAL 

ARRAY 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 

187 

188 

RCO 

RCNTRL 

REAL 

SIMPLE 

145 

187 

188 

RCNTRL 

REAL 

UNKNOWN 

145 

146 

147 

148 

156 

157 

158 

159 

167 

168 

169 

170 

178 

179 

180 

1S1 

RDPARM 

REAL 

UNKNOWN 

206 

207 

208 

209 

217 

218 

219 

220 

228 

229 

230 

23  1 

239 

240 

RESTOM 

subroutine 

1 

RGAS 

RCNTRL 

REAL 

SIMPLE 

171 

RLAT 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

ROCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

231 

ROCP  P I 

RDPARM 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

173 

SD 

QM5AVE 

REAL 

ARRAY 

3 1 1 

5DAY 

RCNTRL 

REAL 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

SH 

QANDPT 

REAL 

ARRAY 

282 

29  1 

334/S 

SHM 

OMSAVE 

REAL 

ARRAY 

307 

322 

334 

5KP  . 

QPOLES 

REAL 

ARRAY 

30  1 

322/S 

SHS 

PANDOT 

REAL 

ARRAY 

248 

266 

SIG 

RDPARM 

REAL 

ARRAY 

240 

SIGE 

RCNTRL 

REAL 

ARRAY 

176 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

SI  NL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

REAL 

ARRAY 

235 

SMTH 

QANDPT 

REAL 

ARRAY 

243 

261 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

100 

125 

SOLS 

RCNTRL 

REAL- 

SIMPLE 

1 78 

START 

LDPARM 

LOGICAL 

SIMPLE 

202 

205 

T 

OANDOT 

REAL 

ARRAY 

28  1 

290 

333/S 

8 


co 

i-3 

■O 


s 


M 

O 


307 

308 

309 

3 1 0 

3 1 1 

312 

301 

302 

263 

264 

265 

266 

267 

268 

274 

275 

276 

277 

29  T 

292 

293 

294 

295 

296 

149 

150 

151 

152 

153 

154 

155 

160 

161 

162 

163 

I6d 

165 

166 

1 7 1 

172 

173 

174 

175 

176 

177 

182 

183 

184 

185 

186 

2 1 0 

21  1 

212 

213 

214 

215 

216 

221 

222 

223 

224 

225 

226 

227 

232 

233 

234 

235 

236 

237 

238 

O 


O 


O *5? 

o 

33 


2s 

r* 

c > 
> © 
r*1 

§3 


3 


TERMT 

QMSAVE 

REAL 

ARRAY 

312 

TERMW 

QMSAVE 

REAL 

ARRAY 

312 

TKSTD 

POP  ARM 

REAL 

SIMPLE 

236 

TH5TD2 

RDPARM 

REAL 

SIMPLE 

237 

TM 

QMSAVE 

REAL 

ARRAY 

306 

321 

TMA* 

QANDQT 

REAL 

ARRAY 

251 

269 

TWIN 

QANDQT 

REAL 

ARRAY 

250 

268 

TP 

QPOLES 

REAL 

ARRAY 

300 

321  /S 

TS 

QANDQT 

REAL 

ARRAY 

247 

265 

tstd 

RCNTRL 

REAL 

SIMPLE 

179 

u 

QANDQT 

REAL 

ARRAY 

279 

288 

LTM 

QMSAVE 

REAL 

ARRAY 

304 

3 19 

UP 

QPOLES 

REAL 

ARRAY 

298 

319/S 

V 

QANDQT 

REAL 

ARRAY 

280 

283 

VER 

CCNTRL 

CHAR'S 

SIMPLE 

10 

23 

VM 

QMSAVE 

REAL 

ARRAY 

305 

320 

VP 

QPOLES 

REAL 

ARRAY 

239 

320/S 

WSAVE 

RDPARM 

REAL 

ARRAY 

23S 

XLABEL 

CCNTRL 

CHAR  * B 

ARRAY 

1 1 

24 

V 


i 1 

4 4 


? . 

I: 


J 


333 


33  t / S 
33  1 

332/S 

332 


RESTQM  11 


OOOO  1 


SUBROUTINE  SAVEQM  ( N . J) 


00002 

00003 

00004 

00005 

00006 
00007 
0000B 
00003 

oooto 
ooot  1 
000  12 
000  13 

000  14 
000  15 
00016 
00017 

oooia 

00019 

00020 
00021 
00022 

00023 

00024 


00025 
0 0026 
00027 
00023 

00029 

00030 
0003  1 

00032 

00033 

00034 

00035 


C- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c* 

c* 

c 

c 

c 


PURPOSE 

UTILITY  SUBROUTINE  TO  SAVE  4 TH- ORDER  MODEL  VALUES  BY  BAND 
SAVE  BASE  FIELDS  TEMPORARILY  FOR  MATSUNQ  CORRECTOR  STEP 
OR  LEAPFROG  STEP , 

CALLED  BY  MAIN  fCOMPO)  ONLY 


USAGE 

ARGUMENTS 

N 

J 


DESCRIPTION 

TIME-STEP  POINTER  (1  OR  2) 
LATITUDE  BAND  NUMBER 


SUBPROGRAMS  NEEDED 

NAME  DESCRIPTION 

NONE 

RECORD  OF  MODIFICATIONS 

BASED  ON  OLD  VERSION  8. 


?PATE? 
05/06/ B3 


^PROGRAMMER  *? 
RAME5H 


'’DESCRIPTION  OF  MODIFICATIONS? 
THIS  PART  AND  COMMENTS 


REMARKS: 

< t)  '’MACHINE  OEPENDENT  FEATURES,  REFERENCES,  ERROR  RETURNS.  ETC 


M/A-COM  SIGMA  DATA  INC 


NASA  - G5FC 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


C 

c 

c 


COMMON  /CCNTRL/  CCO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIG 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSPOG 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CC5P08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XL ABEL  (10) 
COMMON  /CCNTRL/  CQS  (30) 
COMMON  /CCNTRL/  CQU  (10) 


: s s s = = ; 


EQUIVALENCE 

CHARACTER'S 

character's 

CHARACTER'S 

CHARACTER'S 

CHARACTERS 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 


< CCO  .CCM  ) ) 

CCO,  CC (200) 

ADATE 

ATIME 

JIG 

JOB 

CCSPOG 
CCSP07 
CCSP08 
VER 
XL ABE  L 


:s^siti=  = = = = = 3r  = 


=---«SSSSS 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

ICO 
IM 

IMD2 
IMD2P1 
NDRSW 
JM 

JMD2 
JMT2 
JNP 
J 04 
JOS 


COMMON  / I CNTRL / 
COMMON  / I CNTRL/ 
COMMON  /l CNTRL/ 
COMMON  / I CNTRL/ 
COMMON  /I CNTRL/ 
COMMON  / ICNTRL/ 
COMMON  /ICNTRL/ 
COMMON  /ICNTRL/ 
COMMON  /ICNTRL/ 
COMMON  /ICNTRL/ 
COMMON  /ICNTRL/ 


SSAVEOM 
- 'SSAVEOM 
SSAVEOM 
SSAVEOM 
SSAVEOM 
SSAVEQM 
SSAVEOM 
SSAVEQM 
SSAVEQM  10 
SSAVEQM  11 
SSAVEQM  12 
SSAVEQM  13 
SSAVEQM  14 
SSAVEQM  15 
SSAVEQM  16 
SSA  VEQM  17 
SSAVEQM  18 
SSAVEQM  19 
SSAVEQM  20 
SSAVEQM  21 
SSAVEQM  22 
SSAVEQM  23 
SSAVEQM  24 
SSAVEQM  25 
SSAVEQM  26 
’’SSAVEQM  27 
SSAVEQM  23 
►'SSAVEQM  29 
'SSAVEQM  30 
► * SSAVEOM  3 1 
SCNTRL  2 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 
SCNTRL 


3 

4 

5 

e 

7 

a 

9 
10 
1 1 
12 

13 

14 

15 
1 B 

17 

18 
IB 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
4 1 
42 


C/3 

5 


ORIGINAL  PASS  W, 
OF  POOR  QUALITY 


00036 

COMMON 

/ I CNTRL/ 

JSP 

SCNTRL 

43 

00037 

COMP-ION 

/ICNTRL/ 

KLIALB 

5CNTRL 

44 

00038 

COMMON 

/ I CNTRL / 

KLIGW 

SCNTRL 

45 

00039 

COMMON 

/ICNTRL/ 

KLISST 

SCNTRL 

46 

00040 

COMMON 

/ICNTRL/ 

K5 

SCNTRL 

47 

00041 

COMMON 

/ICNTRL/ 

KU 

SCNTRL 

48 

00042 

COMMON 

/ICNTRL/ 

LQG8R 

SCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

MATIN 

SCNTRL 

50 

00044 

COMMON 

/ICNTRL/ 

MATSNX 

SCNTRL 

51 

00045 

COMMON 

/ICNTRL/ 

MATSLTN 

SCNTRL 

52 

00046 

COMMON 

/ICNTRL/ 

MLF  M2) 

SCNTRL 

S3 

00047 

COMMON 

/ICNTRL/ 

MROD 

SCNTRL 

54 

00043 

COMP-ION 

/ICNTRL/ 

NKRSH 

SCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

MSM 

SCNTRL 

56 

oooso 

COMMON 

/ICNTRL/ 

NB 

SCNTRL 

57 

0005  1 

COMMON 

/ICNTRL/ 

ND 

SCNTRL 

58 

00052 

COMMON 

/ICNTRL/ 

NDALT 

SCPJTRL 

59 

00053 

COMMON 

/ICNTRL/ 

NDAY 

SCNTRL 

60 

00054 

COMMON 

/ICNTRL/ 

NDOUT 

SCNTRL 

6 1 

00055 

COMMON 

/ICNTRL/ 

NDPHY 

SCNTRL 

62 

00056 

COMMON 

/ICNTRL/ 

NDSKF 

SCNTRL 

63 

00057 

COMMON 

/ICNTRL/ 

NOT 

SCNTRL 

64 

0005S 

COMMON 

/ICNTRL/ 

NHM5 

SCNTRL 

65 

00059 

COMP-ION 

/ICNTRL/ 

NHMSE 

SCNTRL 

66 

00060 

COMMON 

/ICNTRL/ 

NHMSO 

SCNTRL 

67 

00061 

COMMON 

/ICNTRL/ 

NLA  Y 

SCNTRL 

68 

00062 

COMMON 

/ICNTRL/ 

NLAYMT 

SCNTRL 

69 

00063 

COMMON 

/ICNTRL/ 

NLAVP1 

SCNTRL 

70 

00064 

COMMON 

/ICNTRL/ 

N5DAY 

SCNTRL 

7 J 

00065 

COMMON 

./ICNTRL/ 

NSEQ 

SCNTRL 

72 

00066 

COMMON 

/ICNTRL/ 

ICSP53 

SCNTRL 

73 

00067 

COMMON 

/ICNTRL/ 

N5TEP 

SCNTRL 

74 

00068 

COMMON 

/ICNTRL/ 

ICSP55 

SCNTRL 

75 

00069 

COMMON 

/ICNTRL/ 

NYMD 

SCNTRL 

76 

00070 

COMMON 

/ICNTRL/ 

NYMDE 

SCNTRL 

77 

00071 

COMMON 

/ICNTRL/ 

NYMDO 

SCNTRL 

78 

00072 

COMP-ION 

/ICNTRL/ 

NZINIT 

SCNTRL 

79 

00073 

COMMON 

/ICNTRL/ 

NMLEV 

SCNTRL 

so 

00074 

COMMON 

/ICNTRL/ 

NDHOG 

SCNTRL 

St 

00075 

COMMON 

/ICNTRL/ 

IQS  (30) 

SCNTRL 

82 

00076 

. COMMON 

/ICNTRL/ 

IQU  (10} 

SCNTRL 

83 

c 

SCNTRL 

84 

00077 

EQUIVALENCE 

(ITMIN 

t rose 

1 ) > 

SCNTRL 

85 

00078 

EQUIVALENCE 

(ITMAX 

- I QS  ( 

2)  } 

SCNTRL 

86 

00079 

EQUIVALENCE 

( IPREACC 

, I Q5  < 

3)) 

SCNTRL 

87 

oooeo 

EQUIVALENCE 

( IPRECON 

, IQS( 

4}  ) 

SCNTRL 

S3 

0008  t 

EQUIVALENCE 

(IHFLUX 

* Z QS  ( 

5}  J 

SCNTRL 

B9 

00082 

EQUIVALENCE 

( IEFLUX 

, IQS( 

6}  } 

SCNTRL 

90 

00083 

EQUIVALENCE 

( IFUSION 

- IQS( 

7}  > 

SCNTRL 

9 1 

00084 

EQUIVALENCE 

< IRADSWG 

t IQS( 

S)  } 

SCNTRL 

92 

00065 

EQUI VALENCE 

( IRADLWG 

, IQS( 

9 ) J 

SCNTRL 

93 

00086 

EQUIVALENCE 

C I I CLOUD 

, IQ5< 10)) 

SCNTRL 

94 

c 

SCNTRL 

95 

00087 

equivalence 

{ IOMEGA 

- IQU< 

1 ) ) 

SCNTRL 

96 

OOOSB 

EQUIVALENCE 

( IDIABAT 

, IQU( 

2)  ) 

SCNTRL 

97 

00089 

EQUIVALENCE 

( IRADSW 

, IQU( 

3)  } 

SCNTRL 

98 

c 

SCNTRL 

99 

00090 

EQUIVALENCE 

( ICO  t ICC  n ) 

SCNTRL 

100 

0009  1 

INTEGER 

ICO,  10(200} 

SCNTRL 

10  1 

c 

5CNTRL 

t 02 

c 

LOGICAL  MODEL  PARAMETERS  SAVED  ON 

HISTORY  RECORD 

SCNTRL 

103 

c 

= = “ = = = 

:~w===S“== 

:“S3====== 

~ = S = £ : 

= ==  3 = = SiS  = = 1S  = = = 

SCNTRL 

1 04 

00092 

common 

/LCNTRL/ 

LCO 

SCNTRL 

105 

00093 

COMMON 

/LCNTRL/ 

QALT 

SCNTRL 

106 

00094 

COMMON 

/LCNTRL/ 

QBEG 

SCNTRL 

107 

00095 

COMMON 

/LCNTRL/ 

QDAY 

SCNTRL 

108 

00096 

COMMON 

/LCNTRL/ 

QEND 

SCNTRL 

109 

00097 

COMMON 

/LCNTRL/ 

QOUT 

SCNTRL 

1 to 

00098 

common 

/LCNTRL/ 

QPHY 

SCNTRL 

1 1 1 

00099 

COMMON 

/LCNTRL/ 

QSHF 

SCNTRL 

112 

00100 

COMMON 

/LCNTRL/ 

SN2FLG 

SCNTRL 

113 

OF  POOR  QUALITY 


, \ 

'■r  ' • 

\ ' 

' -A  ' 

A 

0010  t 

COMMON  /LCNTRL/ 

QRSW 

SCNTRL 

1 14 

00102 

COMMON  /LCNTRL/ 

QRSH 

5CNTRL 

1 15 

00103 

COMMON  /LCNTRL/ 

LQS<30> 

SCNTRL 

J 16 

00104 

COMMON  /LCNTRL/ 

LQU ( 10) 

SCNTRL 

1 17 

c 

SCNTRL 

1 13 

00105 

EQUIVALENCE 

(LTMIN 

. LQS ( 

1 ) ) 

SCNTRL 

1 19 

00  106 

EQUIVALENCE 

{ LIMA  X 

f LQS  f 

2)  ) 

SCNTRL 

120 

00107 

equivalence 

(LPREACC 

t LQS  ( 

3)  ) 

SCNTRL 

121 

00108 

EQUIVALENCE 

(LPRECON 

,LQS{ 

4)  ) 

SCNTRL 

122 

00109 

EQUIVALENCE 

1LHFLUX 

i LQSf 

5)  ) 

SCNTRL 

123 

00110 

EQUIVALENCE 

(LEFLUX 

, LOS  f 

6)  J 

SCNTRL 

124 

001  1 1 

equivalence 

( LFUSIOFJ 

,LQS( 

7)  ) 

SCNTRL 

125 

00112 

EQUIVALENCE 

{ LRADSWG 

,lqs< 

) 

SCNTRL 

126 

00113 

EQUIVALENCE 

(LRADLWG 

f lqs  ( 

3)  ) 

SCNTRL 

1 27 

001  1 4 

EQUIVALENCE 

f LTCLOUD 

* LQS  t 10) ) 

SCNTRL 

1 28 

c 

SCNTRL 

1 29 

00115 

EQUIVALENCE 

(LOMEGA 

. LQU  ( 

I ) ) 

SCNTRL 

130 

00116 

EQUIVALENCE 

(LDIABAT 

, LQU( 

2)  ) 

SCNTRL 

131 

00117 

EQUIVALENCE 

( LRAOSW 

,LQU< 

3)  ) 

SCNTRL 

132 

c 

SCNTRL 

133 

00118 

LOGICAL 
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SUBROUTINE  5CALEQ  (N,  J,  K5C) 


PURPOSE 

UTILITY  SUBROUTINE  TO  SCALE  4TH-ORDER  MODEL  VALUES. 
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GW|  1368 , 1 ) 

TS ( 1368, 1 ) 

SHS ( 1368, I ) 

Pt 72,19,1) 

TMIN( 1368, 1 ) 

TMAM  1 353 , 1 ) 

PREACC ( 1368, 1 J 
PRECON ( 1368 , 1 ) 

HFLUM  136S,  1) 

EFLUX  < 1368 , 1 ) 

FUSION ( 1368 , 1 ) 

RADSWG  f 1368 , 1 ) 

RADLWGf 1368, 1 > 

I CLOUD { 1368,1 ) 

(QSM  , 1 , 1 ) , PHISf  1,1)) 

( QS (1,2,1) ,SMTH( 1,1)) 
(QSC 1,3,1) , ALBEDO ( 1 , 1 ) ) 
(QS(  t ,4, 1 ) ,GTM  , 1 ) ) 

< QS (1,5,  I ) , GW (1,1)) 

(QS{ 1 ,6, 1) ,TS( 1 , 1 ) ) 

(QSM  ,7. 1)  , SHS  f 1 , 1 ) ) 

( QS ( 1,8,1), Pf  1,1,  1)) 

(QS(  1,10,1),  TMI N ( M)) 

( QS  M . 1 1 , 1 ) , TMA  X (1 , 1 ) ) 
(QSM  ,12,1)  , PREACC { 1,1)) 
(QS( 1 , T3f 1 ) , PRECON ( 1,1)) 
(QSM  , 14, 1 ) , HFLUX  £ 1,1)) 
(QSM  , 15, 1 ) , EFLUX  ( 1 , 1)  > 
<Q5( t . 16, 1 ) , FUSION ( 1,1)) 
(QSM  , 17 , 1 ) . RADSWG  ( t , 1 > ) 
(QS(  1,18,1)  , RADLWG ( 1 , 1)  ) 
f QS( 1 , 19, 1 ) , ICLOUD( 1,1)) 


GLOBAL  MODEL  UPPER-AIR  FIELDS 

COMMON  /QANDQT/  QU<72, 9, 14 ,46) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


U ( 72 , 9 , 14, 1) 

V { 72 , 9 , 14, 1 ) 

T ( 72  t 9 , 14,1} 
SH(72 ,9, t4 , 1 > 

PHI (72,9,  J 4 , 1 ) 
OMEGA (72, 126, 1) 

D I A0AT 1 72 , 126,1) 


J® 


SCNTRL  256 
SCNTRL  257 
SCNTRL  258 
SCNTRL  259 
SCNTRL  260 
SCNTRL  261 
SCNTRL  262 
SCNTRL  263 
SCNTRL  264 
SCNTRL  265 
SCNTRL  266 
SCNTRL  267 
SCNTRL  268 
SCNTRL  269 
SCNTRL  270 
SCNTRL  271 
SCNTRL  272 
SCNTRL  273 
SCNTRL  274 
SQANDQT  2 
SQANDQT  3 
SQANDQT  4 
SQANDQT  5 
SQANDQT  6 
SQANDQT  7 
SQANDQT  8 
SQANDQT  9 
SQANDQT  10 
SQANDQT  11 
SQANDQT  12 
SQANDQT  13 
SQANDQT  14 
SQANDQT  15 
SQANDQT  16 
SQANDQT  17 
SQANDQT  18 
SQANDQT  19 
SQANDQT  20 
SQANQQT  2 t 
SQANDQT  22 
SQANDQT  23 
SQANDQT  24 
SQANDQT  25 
SQANDQT  26 
SQANDQT  27 
SOANDQT  28 
SQANDQT  29 
SQANDQT  30 
SQANDQT  31 
SOANDQT  32 
SQANDQT  33 
SQANDQT  34 
SQANDQT  35 
SOANDQT  36 
SQANDQT  37 
SQANDQT  38 
SOANDQT  39 
SQANDQT  40 
SQANDQT  41 
SQANDQT  42 
SQANDQT  43 
SQANDQT  44 
SQANDQT  45 
SQANDQT  46 
SQANDQT  47 
SQANDQT  48 
SQANDQT  49 
SOANDQT  50 
SQANDQT  51 
SQANDQT  52 
SQANDQT  53 


SCALE Q 5 


00286 

00287 

00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 
00236 


00297 

00298 
00293 

00300 

00301 

00302 


00303 


00304 

00305 


00306 

00307 

00308 

00309 
003  TO 
003  11 

00312 

00313 

00314 


00315 

00316 

00317 

00318 

00319 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

STATEMENT 
— LABEL- - 


DIMENSION 

RADSW172, 126, 

1 ) 

SQANDQT 

54 

DIMENSION 

RADLW ( 72 , 126. 1 ) 

SOANDQT 

55 

c 

SQANDQT 

56 

EQUIVALENCE 

(QU{ 1 , t , 1 , 1 ) . 
<QU(1 , t ,3, 1 ) . 

SQ/VWOQT 

57 

equivalence 

VU  , 1 , 1 , 1 ) ) 

SQANDQT 

58 

equivalence 

1 QU 1 1,1,5,11, 

Tf i , i , j , i n 

SQANDQT 

59 

equivalence 

< QU  < 1,1,7,!}, 

SH  ( I . 1 , 1 . 1 ) ) 

SQANDQT 

60 

EQUIVALENCE 

(QU1  M,9,1}, 

PH  1(1,1,1,11) 
.OMEGA! 1,1,1)) 

SQANDQT 

61 

equivalence 

<QU< 1 , 1 , 1 1 . 1 > 

SQANDQT 

62 

EQUIVALENCE 

(QUII.1,12.  n , D I ABA  T ( T , 1 , 

T ) ) 

SOANDQT 

63 

equivalence 

{ QU (1,1.13,1) 

, RADSW ( 1,1,1 

) > 

SOANDQT 

64 

EQUIVALENCE 

t QU ( t r 1 v 1 4 , 1 ) 

, RADLW  < 1,1,1 

) ) 

SQANDQT 

65 

c 

SOANDQT 

66 

c 

* +■  + 

SQPOLES 

2 

c 

POLAR  MODEL  PROGNOSTIC  FIELDS 

SQPOLES 

3 

COMMON  / QPOLES/ 

PP  f 2 , 2 ) 

SQFOLES 

4 

COMMON  /QPOLES/ 

UP(9f 2,2) 

SQPOLES 

5 

COMMON  /QPOLES/ 

VP  0,2,2? 

SQPOLES 

6 

COMMON  /QPOLES/ 

TP  ( 9 , 2, 2 } 

5QP0LES 

7 

COMMON  /QPOLES/ 

SHP (9,2,2) 

SQPOLES 

8 

COMMON  /QPOLES/ 

PHI P { 9 * 2 , 2 ) 

SQPOLES 

9 

c 

SQPOLES 

to 

c 

SSCALEQ 

35 

c 

DEBUG 

SBEGDEB 

2 

10000  CONTINUE 

SBEGDEB 

3 

c 

***-  CYBER  SCALAR  VERSION  04* 

001  INPUT. loq 

SBEGDEB 

4 

c 

*****  CYBER  SCALAR  VERSION  04* 

000 

SBEGDEB 

5 

c 

***+  CYBER  SCALAR  VERSION  00 

SBEGDEB 

6 

C£SS5SSSSSSSS$£SSSSSSS£$SS$SSSSSS5S5SSS5SSS£S££$£S5SS$£S£SS$SSSSS5SSSS5SSBGGDEB 


MJ<  J> 


c 

c 

c 

c 

c 

G 

c 


IF  ( M , GQ  * 0 ) GO  TO  50 


POLE  POINT 


10 


SCALE  = P P ( W . M ) 

IF  (KSC.LT.O)  SCALE  * 1. /SCALE 

DO  10  L= 1 , NLA V 
UP/L ,N ,M)  - UP  ( L , W , M ! *SCALE 

VP<L,N,M)  = VP ( L , N , M ) * SCALE 
TP  1 L , N tM ) “ TP  ( L . N * M ) “SCALE 
SHP < L , N , M ) = SHP 1 L , N , M ) * SCALE 
CONTINUE 
RETURN 


C 

c 

c 

c 

c 

c 

c 


ELSEWHERE 


50  CONTINUE 

DO  60  1 = 1 , IM 
SCALE  - PU  , N , d ) *0X YP ( d ) 

IF  1 KSC , LT . 0 ) SCALE  = 1 , /SCALE 
DO  60  L = 1 , NLAY 

U f I , L J')  = U(ItL,N,d)  *SCALE 
V ( I , L r N , J ) = Vf I tL.N,d>*SCALE 
T < I ,LtM( J)  = T f I ,L,N,d) *SCALE 
SH <1 , L , N , d ) “ SH ( I , L , N , d ) * SCALE 
60  CONTINUE 

RETURN 

END 

LABEL  MAP 

-DEFINED REFERENCES 


7 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ 
SSCALEQ  51 
SSCALEQ  52 
SSCALEQ  53 
SSCALEQ  54 
SSCALEQ  55 
SSCALEQ  56 
SSCALEQ  57 
SSCALEQ  58 
SSCALEQ  59 
SSCALEQ  60 
SSCALEQ  6t 
SSCALEQ  62 
SSCALEQ  63 
SSCALEQ  64 
SSCALEQ  65 
SSCALEQ  66 
SSCALEQ  67 
SSCALEQ  68 
SSCALEQ  69 
SSCALEQ  70 
SSCALEQ  71 
SSCALEQ  72 
SSCALEQ  73 


CO 

n 

£5 

O 

o% 


10 


313 


308 
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ICNTRL 


C “CTRL  OF  DO,  I*DATA  IUIT , Rs  READ . S*STORE , W=WRITE 
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ICO 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

91 

ICLOUD 

QANDQT 

INTEGER 

ARRAY 

259 

277 

ICNTRL 

INTEGER 

UNKNOWN 

25 

26 

27 

36 

37 

38 

47 

48 

49 

58 

59 

60 

63 

70 

7 1 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

SB 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

aa 

IDPARM 

INTEGER 

UNKNOWN 

1B9 

190 

191 

IDSP02 

I DP ARM 

INTEGER 

SIMPLE 

190 

IEFLUX 

ICNTRL 

integer 

UNKNOWN 

82 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

B3 

IHFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

81 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

189 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

316 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

I MID  2 P 1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAY 

191 

IOMEGA 

ICNTRL 

integer 

UNKNOWN 

87 

IP RE ACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

80 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

08 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

85 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

192 

I TAPE 

LDPARM 

LOGICAL 

SIMPLE 

20  1 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

70 

I twin 

ICNTRL 

INTEGER 

UNKNOWN 

77 

J 

INTEGER 

SIMPLE 

T 

304 

3 17 

323 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

JIC 

CCNTRL 

CHARTS 

simple 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

J04 

ICNTRL 

integer 

SIMPLE 

34 

JOB 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR'S 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

K5 

ICNTRL 

integer 

SIMPLE 

40 

KSC 

INTEGER 

SIMPLE 

1 

307 

318 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

41 

L 

integer 

SIMPLE 

30S/C 

309 

309 

320 

321 

321 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

1 03 

104 

ldiabat 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

14  1 

LDPARM 

INTEGER 

UNKNOWN 

200 

20  1 

202 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

110 

135 

LFUSION 

LCNTRL 

logical 

UNKNOWN 

1 1 1 

136 

lhflux 

LCNTRL 

logical 

UNKNOWN 

109 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 M 

139 

LOGSR 

ICNTRL 

INTEGER 

SIMPLE 

42 

LOW EGA 

LCNTRL 

LOGICAL 

unknown 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LP  RECON 

LCNTRL 

LOGICAL 

UNKNOWN 

T 08 

133 

28 

29 

30 

31 

32 

33 

34 

35 

39 

40 

4 1 

42 

43 

44 

45 

46 

50 

51 

52 

53 

54 

55 

56 

57 

61 

62 

63 

64 

65 

66 

67 

6B 

7 2 

73 

74 

75 

76 

192 

193 

194 

195 

196 

197 

19B 

199 

79  HO  81  82  S3  8d  85  SB 

89 
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322 

310 

322 

31  1 
323 

31  1 
323 

312 

3 1 2 

319/C 

320 

95 

96 

97 

9B 

99 

100 

T 0 1 

102 
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LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 

105 

* \ 

128 

LQU 

LCNTRL 

logical 

ARRAY 

t 04 

115 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

138 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

117 

142 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

105 

130 

* ; 

M 

INTEGER 

SIMPLE 

304/S 

305 

: 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

' i 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

44 

? ! 

MATS UN 

ICNTRL 

INTEGER 

SIMPLE 

45 

1 

MJ 

idparm 

INTEGER 

ARRAY 

197 

304 

i 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

* 

MR0D 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

43 

j 

N 

INTEGER 

SIMPLE 

J 

306 

£ 

320 

320 

£ ' 

NB 

ICNTRL 

integer 

SIMPLE 

50 

\ 

ND 

ICNTRL 

INTEGER 

SIMPLE 

51 

I 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

52 

3 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

1 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

j 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

i '• 

NDR5W 

ICNTRL 

INTEGER 

SIMPLE 

29 

£ 

NDSKF 

ICNTRL 

INTEGER 

SIMPLE 

56 

; 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

57 

i! 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

i. 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

50 

; 

NHMS  1 

IDPARM 

integer 

SIMPLE 

198 

L 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

i,V 

NKRSH  . 

ICNTRL 

INTEGER 

SIMPLE 

48 

,1 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

6 1 

308 

■A 

NLA YM 1 

ICNTRL 

INTEGER 

SIMPLE 

62 

r 

NLA YP 1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

simple 

64 

V 

i.  i 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

!■  u 

NYMD 

ICNTRL 

INTEGER  . 

SIMPLE 

69 

f 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

71 

tl 

NVMOI 

IDPARM 

INTEGER 

SIMPLE 

199 

v 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

ij 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

72 

OMEGA 

qandqt 

REAL 

ARRAY 

284 

293 

51* 

OMEGA2 

RCNTRL 

REAL 

SIMPLE 

t 5 1 

t , 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

PHI 

QANDQT 

REAL 

ARRAY 

283 

292 

PHIP 

QPOLES 

REAL 

ARRAY 

302 

hi 

PHIS 

QANDQT 

REAL 

ARRAY 

242 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

i 

PI  ISO 

RCNTRL 

REAL 

SIMPLE 

163 

(. 

PI  2 

RCNTRL 

REAL 

SIMPLE 

164 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

166 

> i 

PKSTD 

RDPARM 

REAL 

simple 

227 

* . 

PKTOP 

RDPARWI 

REAL 

SIMPLE 

228 

; * 

PLEVS 

RCNTRL 

REAL 

ARRAY 

180 

PP 

QPOLES 

REAL 

ARRAY 

297 

306 

[ \ 

PREACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PRECON 

QANDQT 

REAL 

array 

253 

271 

f 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

r: 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

168 

l 

PSTD 

RCNTRL 

REAL 

SIMPLE 

165 

i 

PTOP 

RCNTRL 

REAL 

SIMPLE 

169 

> . 

P ZERO 

RCNTRL 

REAL 

SIMPLE 

186 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 IS 

i 

QANDQT 

REAL 

UNKNOWN 

241 

278 

l : 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

119 

1'  . 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

106 

1 07 

TOB 

109 

1 io 

1 1 1 

1 12 

1 13 

1 14 

1 16 

1 17 

1 29 

306 

309 

309 

310 

310 

31  1 

3 1 1 

312 

312 

309 
32  1 

309 

321 

310 

322 

310 

322 

31  1 
323 

31  t 
323 

312 

312 

317 

319 


317 


u-%£\ 
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i 

t 


PEND 

LCNTRL 

LOGICAL 

SIMPLE 

96 

T 2 1 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

t 22 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

QPOLES 

REAL 

UNKNOWN 

237 

298 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

102 

1 27 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

10  1 

1 26 

QS 

OANDOT 

REAL 

ARRAY 

24  1 

260 

270 

27  1 

QSMF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

W 

QANDQT 

REAL 

ARRAY 

278 

288 

RADE 

RCNTRL 

REAL 

SIMPLE 

170 

HADLW 

QANDQT 

REAL 

array 

2B7 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

25B 

275 

RADSW 

QANDQT 

REAL 

ARRAY 

286 

295 

RADSWG 

QANDQT 

REAL 

ARRAY 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 

187 

IBS 

RCO 

RCNTRL 

REAL 

SIMPLE 

1 45 

187 

RCNTRL 

REAL 

UNKNOWN 

145 

145 

155 

157 

167 

168 

178 

T 79 

RDPARM 

REAL 

UNKNOWN 

206 

207 

217 

2 18 

22S 

229 

239 

240 

RGAS 

RCNTRL 

REAL 

SIMPLE 

171 

RLAT 

RDPARM 

REAL 

ARRAY 

229 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

RQCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

231 

R0CPP1 

RDPARM 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

173 

SCALE 

REAL 

SIMPLE 

306/S 

307/S 

321 

322 

SCALEQ 

SUBROUTINE 

1 

SDAY 

RCNTRL 

REAL 

SIMPLE 

174 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGNP 

RDPARM 

REAL 

ARRAY 

233 

SH 

QANDQT 

REAL 

ARRAY 

282 

29  1 

SHP 

QPOLES 

REAL 

ARRAY 

301 

312/S 

SHS 

QANDQT 

REAL 

array 

24B 

265 

5IG 

RDPARM 

REAL 

ARRAY 

240 

SIGE 

RCNTRL 

REAL 

ARRAY 

176 

5 INC 

RCNTRL 

REAL 

SIMPLE 

177 

SINL 

RDPARM 

REAL 

ARRAY 

234 

SINLON 

RDPARM 

REAL 

ARRAY 

235 

5MTH 

QANDQT 

REAL 

ARRAY 

243 

261 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

100 

T 25 

SOLS 

RCNTRL 

REAL 

SIMPLE 

1 78 

START 

LDPARM 

LOGICAL 

SIMPLE 

202 

205 

T 

QANDQT 

REAL 

ARRAY 

28  1 

290 

THSTD 

RDPARM 

REAL 

SIMPLE 

236 

THSTD2 

RDPARM 

REAL 

SIMPLE 

237 

TMAX 

QANDQT 

REAL 

ARRAY 

25  1 

269 

TWIN 

QANDQT 

REAL 

ARRAY 

250 

268 

TP 

QPOLES 

REAL 

ARRAY 

300 

311/S 

TS 

QANDQT 

REAL 

ARRAY 

247 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

179 

U 

QANDQT 

REAL 

ARRAY 

279 

288 

UP 

QPOLES 

REAL 

ARRAY 

29B 

309/S 

V 

QANDQT 

REAL 

ARRAY 

2S0 

289 

VER 

CCNTRL 

CHAR*B 

SIMPLE 

10 

23 

VP 
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SCNTRL 

237 

c 

: =r 

SCNTRL 

238 

00206 

COMMON 

/RDPARM/ 

ADLDF 

SCNTRL 

239 

00207 

COMMON 

/RDPARM/ 

CONI 

scntrl 

240 

00205 

COMMON 

/RDPARM/ 

CON IDT 

SCNTRL 

241 

00209 

COMMON 

/RDPARM/ 

C0N2 

scntrl 

242 

00210 

COMMON 

/RDPARM/ 

C0N2DT 

SCNTRL 

243 

00211 

COMMON 

/RDPARM/ 

C0N3 

SCNTRL 

244 

00212 

COMMON 

/RDPARM/ 

C0N3DT 

SCNTRL 

245 

00213 

COMMON 

/RDPARM/ 

C0N4 

SCNTRL 

246 

00214 

COMMON 

/RDPARM/ 

C0N4DT 

SCNTRL 

247 

00215 

COMMON 

/RDPARM/ 

CONS 

SCNTRL 

248 

00216 

COMMON 

/RDPARM/ 

COSL 

(46) 

SCNTRL 

249 

00217 

COMMON 

/RDPARM/ 

COSLON 

£ 72) 

5CNTRL 

250 

00215 

COMMON 

/RDPARM/ 

CPD2 

scntrl 

251 

00219 

COMMON 

/RDPARM/ 

DXP 

(46) 

SCNTRL 

252 

00220 

COMPTON 

/RDPARM/ 

DXYP 

(46) 

SCNTRL 

253 

00221 

COMMON 

/RDPARM/ 

DYP 

(46) 

SCNTRL 

254 

00222 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

SCNTRL 

255 

00223 

COMMON 

/RDPARM/ 

F1DT 

SCNTRL 

256 

00224 

COMMON 

/RDPARM/ 

F2DT 

SCNTRL 

257 

00225 

COMMON 

/RDPARM/ 

H 1 DT 

SCNTRL 

258 
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i 


00226 

00227 

Q022S 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 
00233 

00239 

00240 


0024  1 

00242 

00243 

00244 

00245 

00246 

00247 

00248 
OQZ49 
00250 

0025  1 

00252 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 
00262 

00263 

00264 

00265 

00266 

00267 

00268 
00269 
0027  0 

00271 

00272 

00273 

00274 

00275 

00276 

00277 


00278 

00279 

00280 
00231 
002B2 

00283 

00284 

00285 
0023  6 
00287 


COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PKSTD 
COMMON  /RDPARM/  PKTOP 
COMMON  /RDPARM/  RLAT  (461 
COMMON  /RDPARM/  HLATD  (46) 

COMMON  /RDPARM/  R0CPOT 
COMMON  /RDPARM/  R0CPP1 
COMMON  /RDPARM/  SGNP  (21 
COMMON  /RDPARM/  SINL  146) 

COMMON  /RDPARM/  SlNLON  (72) 

COMMON  /RDPARM/  THSTD 
COMMON  /RDPARM/  TH5TD2 
COMMON  /RDPARM/  W5AVE  (159) 

COMMON  /RDPARM/  DSIG  <91 
COMMON  /RDPARM/  SIG  (9) 

C 

C * * * 

C GLOBAL  MODEL  SURFACE  FIELDS 

COMMON  / QANDQT / QS<72, 15,46) 

C 

DIMENSION  PHIS { 1368 , U 

DIMENSION  SMTHU36S,  23  > 

DIMENSION  ALBEDO ( 1368, 1 ) 

DIMENSION  GT ( 1368 , 1 ) 

DIMENSION  GW(  1368  , 1 ) 

DIMENSION  TSt 1368, 1 ) 

DIMENSION  SHS ( 13GB , 1 ) 

DIMENSION  P(72. 19, 1 ) 

DIMENSION  TMIN ( 1363 , 1 1 

DIMENSION  TMAXf 1368*  t ) 

DIMENSION  PREACCi  1368, 1 ) 

DIMENSION  PRECON  f 1 368  * 1 ) 

DIMENSION  HFLUX  < 1368, 1 > 

DIMENSION  EFLU  X < 1368, 1 ) 

DIMENSION  FUSION { 1368, 1 ) 

DIMENSION  RADSWG  ( 1 368 , 1 ) 

DIMENSION  RADLWGf 136B , 1 ) 

DIMENSION  I CLOUD ( 1 368  . 1 ) 

C 

EQUIVALENCE  ( QS (1,1,1), PHI S ( t , 1 ) ) 

EQUIVALENCE  CQS( 1,2,1) . SMTH ( 1,1)1 

EQUIVALENCE  (QS( 1,3,1) , ALBEDO { 1,1)) 

EQUIVALENCE  ( QS ( 1 , 4 » 1 ) , GT (!,!)) 

EQUIVALENCE  ( QSt 1 , 5 , 1 ) , GW ( 1 , 1 ) > 

EQUIVALENCE  ( QS (1 , 6 , 1 ) , TS ( 1 , 1 ) ) 

EQUIVALENCE  ( QS I 1 , 7 , t ) ,SH5(  1,1)) 

EQUIVALENCE  (QSt  1 , B , 1 } , P ( 1 , 1 , I ) ) 

EQUIVALENCE  (QS{ 1 , 10 , 1 ) , TMIN ( 1 , 1} > 

EQUIVALENCE  (05(1,11,1) . TMA X ( 1 , 1 ) ) 

EQUIVALENCE  (QS(1 r 12, 1 ) ,PREACC( 1,1)) 

EQUIVALENCE  (QSt 1 t 13, 1) , PRECON (I , 1) > 

EQUIVALENCE  (05(1,14,1) ,HFLUX( 1 , 1) > 

EQUIVALENCE  (Q5( 1 , 15 , 1 ) , EFLU*< 1 ( 1 >) 

EQUIVALENCE  (QS( 1 , 16, 1 ) , FUSION ( 1,1)) 

EQUIVALENCE  (1)5(1,17,1),  RAD5WG  ( T , 1 ) ) 

EQUIVALENCE  (QSt  1,13,1)  , RADLWG ( 1,1)} 

EQUIVALENCE  (05(1,19,1), ICLOUD( 1 , 1 ) } 

C + + + 

C GLOBAL  MODEL  UPPER-AIR  FIELDS 

COMMON  /QANDQT/  QU f 72 , 9 . 1 4 „ 46) 

C 

DIMENSION  (1(72,9, 14, 1 ) 

DIMENSION  V ( 72 , 9 , 14,1) 

DIMENSION  1(72,9, 14,1) 

DIMENSION  SH (72,9,  T 4 , 1 ) 

DIMENSION  PHI (72,9,  14 , 1 ) 

DIMENSION  OMEGA (72, 126,1) 

DIMENSION  DIABAK72, 126,  1 J 

DIMENSION  RAD5W172, 126, 1 ) 

DIMENSION  RADLW  <72,  126,1) 

C 


l . 

i 


SCNTRL  259 

5CNTRL  260 

SCNTRL  261 

SCNTRL  262 

SCNTRL  263 

SCNTRL  264 

SCNTRL  265 

SCNTRL  266 

SCNTRL  267 

SCNTRL  268 

SCNTRL  269 

SCNTRL  270 

SCNTRL  271 

SCNTRL  272 

SCNTRL  273 

SCNTRL  274 

SQANDQT 

2 

SQANDQT 

3 

SQANDQT 

4 

SQANDQT 

5 

SQANDQT 

6 

SQANDQT 

7 

SQANDQT 

8 

SQANDQT 

9 

SQANDQT 

to 

SQANDQT 

t 1 

SQANDQT 

t 2 

SQANDQT 

1 3 

SQANDQT 

14 

SQANDQT 

15 

SQANDQT 

16 

SQANDQT 

17 

O Q 

SQANDQT 

13 

:u 

SQANDQT 

19 

F's* 

SQANDQT 

20 

SQANDQT 

21 

O ^ 

SQANDQT 

22 

o 

SQANDQT 

23 

SQANDQT 

24 

SQANDQT 

25 

rO 

SQANDQT 

26 

c:  ^ 

SQANDQT 

27 

SQANDQT 

23 

•r  tv 

SQANDQT 

29 

SQANDQT 

30 

an 

SQANDQT 

31 

SQANDQT 

32 

SQANDQT 

33 

SQANDQT 

34 

SQANDQT 

35 

SQANDQT 

36 

SQANDQT 

37 

SQANDQT 

38 

SQANDQT 

39 

SQANDQT 

40 

SQANDQT 

41 

SQANDQT 

42 

SQANDQT 

43 

SQANDQT 

44 

SQANDQT 

45 

SQANDQT 

46 

SQANDQT 

47 

SQANDQT 

48 

SQANDQT 

49 

SQANDQT 

50 

SQANDQT 

51 

SQANDQT 

52 

SQANDQT 

53 

SQANDQT 

54 

SQANDQT 

55 

SQANDQT 

56 

SHCORN  5 


4 


■r  rf  A;r 


00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 


00297 

00298 

00299 

00300 
0030  1 
00302 


00304 

00305 


00306 

00307 

00308 

00309 

00310 
003  1 1 

00312 

00313 


003  14 
00315 
003  16 

00317 

00318 

00319 

00320 
0032  1 

00322 

00323 

00324 

00325 


EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 


1 , 1 , 1 } ,UM  . 1 . 1 , M ) 

1 .3. 1 )  , Vf 1 , 1 , 1 , 1 ) > 

1 .5. 1 )  «T( 1 , t t T , 1 H 
1,7,n,SH(ttM,1)} 
1*9, 1 ) .PHI f 1 . I , 1 » 1 > > 

1.11.1)  f OMEGA { 1,1,1)) 

1 , 12,1)  , D I ABAT { 1,1,1)) 
1 . 13 , 1 ) , RAOSW  < 1 . 1 t 1) ) 

1 , Ifi , 1 ) ,RAOLW( 1 , t , 1 ) ) 


C POLAR  MODEL  PROGNOSTIC  FIELDS 
COMMON  / QPOLES/  PP(2t2) 

COMMON  /QPOLES/  UP (9,2, 2) 

COMMON  /QPOLES/  VP {9, 2, 2) 

COMMON  /QPOLES/  TP  19, 2, 2) 

COMMON  /QPOLES/  SHP{9.2,2) 

COMMON  /QPOLES/  PHIP19,2.2J 
C 
C 

C DEBUG 
10000  CONTINUE 

C CYBER  SCALAR  VERSION  04,001 

C '-»**  CYBER  SCALAR  VERSION  04,000 

C CYBER  SCALAR  VERSION  00 


INPUT, IOQ 


SOANDQT  57 
SQANDQT  58 
SQANDOT  59 
SOANDQT  60 
SQANDQT  61 
SQANDQT  62 
SQANDQT  63 
SQANDQT  64 
SQANDQT  65 
SQANDQT  66 
SQPOLE5  2 
SQPOLES  3 
SQPOLES  4 
SQPOLES  5 
SQPOLES  6 
SOPOLES  7 
SQPOLES  8 
SQPOLES  9 
SOPOLES  10 
SSHCORN  32 
SBEGDEB  2 
SBEGDEB  3 
SBEGDEB  4 
SBEGDEB  5 
SBEGDEB  6 


CSSSSS$SS£SSSS5SSS$£SS5S£SSSSSSSS5S$S££SSSSSSSSSSSSSSSS$555SSSSSSSSSS5S£SBEGD£3 


M = MJfd) 


(M.EQ.O)  GO  TO  20 


CORRECT  SPECIFIC  HUMIDITY  AT  POLES 


DO  10  L “2 , NLA Y 
LM1  = L - 1 


IF  <5HPfLM1 rNB,M> . G£ , 0, > GO  TO  10 
SHP ( L , NB , M)  = SHP  f L , NB , M)  + SHP  f LM 1 . NB , M ) *DS I G ( LM 1 ) /DSIG  f L I 
SHPfLMI s 0. 

CONTINUE 

SHP ( NLAY , NB , M ) = AMA X 1 f SHP 1 NLA Y , NB , M ) , 0 . ) 

RETURN 


CORRECT  SPECIFIC  HUMIDITY  ELSEWHERE 


CONTINUE 
DO  40  I = 1 * I M 
DO  30  L = 2 , NLAY 
- L - 1 

IF  f SH 1 I , LM1 , NB , J ) . GE , 0 , ) GO  TO 
. L,NB,J>  = SHi I , L ,NB rd > + SM  F I , LM 1 . NB 
,LMl,NB,d)  = 0, 

CONTINUE 

, NLAY  , NB  r d ) = AMAXItSHU  ,NLAY,NB,d)  ,0 

CONTINUE 
RETURN 


,0, ) GO  TO  30 

SH f I , LM1  ,NBf  d ) *DSIG( LM1) /DSIGf L ) 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


10 

31  1 

306 

308 

10000 

303 

20 

314 

305 

30 

22  1 

316 

3 IS 

40 

323 

315 

SSHCORN  34 
SSHCORN  35 
SSHCORN  36 
SSHCORN  37 
SSHCORN  38 
SSHCORN  39 
SSHCORN  40 
SSHCORN  4 1 
SSHCORN  42 
SSHCORN  43 
SSHCORN  44 
SSHCORN  45 
SSHCORN  46 
SSHCORN  47 
SSHCOKN  4B 
SSHCORN  49 
SSHCORN  50 
SSHCORN  51 
SSHCORN  52 
SSHCORN  53 
SSHCORN  54 
SSHCORN  55 
SSHCORN  56 
SSHCORN  57 
SSHCORN  53 
SSHCORN  59 
SSHCORN  60 
SSHCORN  61 
SSHCORN  62 
SSHCORN  63 
SSHCORN  64 
SSHCORN  65 
SSHCORN  66 
SSHCORN  67 
SSHCORN  68 
SSHCORN  69 


ORIGINAL  PAGE 
OF  POOR  QUALITY 


VARIABLE 

--NAME--' 

AOATE 

ADLDP 

ALBEDO 

APHEL 

atime 

BETA 

CALTOJ 

cc 

cco 

CCWTRL 

CCSP06 

CCSP07 

CCSPOS 

CONI 

CON  IDT 

C0N2 

CON2DT 

CON3 

CON3DT 

C0N4 

C0N4DT 

CONS 

COSD 

COSL 

COSLON 

CP 

CPD2 

COS 

CQU 

DAYSPV 

DEC 

DECMAX 
DIABAT 
DIST 
DL  AT 

□ LON 
DSIG 
DT 
DXP 
DXYP 

□ VP 
ECCN 
EF  LUX 
EPS 

EPSFAC 

F t DT 

F2DT 

FCORLS 

FILTER 

FUSION 

GNUt 

GNU2 

GRAV 

GT 

GW 

H IDT 

H2DT 

HEAT! 

HEATW 

HFLUX 

I 

IC 

ICO 

ICLOUD 

ICNTRL 


MAP 


-BLOCH 

TYPE 

--CLASS 

REFERENCES 

A =ARGL I ST , 

C-CTRL 

OP  DO. 

I =DATA 

INITt  R=READ.  S=5T0RE . W=WflITE 

CCNTRL 

CwAR  *8 

SIMPLE 

3 

16 

RDPARM 

BEAL 

SIMPLE 

206 

QANDQT 

REAL 

ARRAY 

244 

262 

rcntrl 

REAL 

SIMPLE 

146 

CCNTRL 

CHAR  *8 

SIMPLE 

4 

17 

RCNTRL 

REAL 

SIMPLE 

147 

RCNTRL 

REAL 

SIMPLE 

IBS 

CCNTRL 

CHAR  *8 

ARRAY 

14 

15 

CCNTRL 

CHAR  *8 

SIMPLE 

2 

14 

15 

REAL 

UNKNOWN 

2 
1 3 
7 

3 

4 

5 

6 

7 

3 9 10  IT 

12 

CCNTRL 

CHAR -B 

SIMPLE 

20 

CCNTRL 

CHAR  *8 

SIMPLE 

a 

21 

CCNTRL 

CHAR-S 

SIMPLE 

9 

22 

RDPARM 

REAL 

simple 

207 

RDPARM 

REAL 

SIMPLE 

20S 

RDPARM 

REAL 

SIMPLE 

203 

RDPARM 

REAL 

SIMPLE 

2 t 0 

RDPARM 

REAL 

SIMPLE 

21  1 

RDPARM 

REAL 

SIMPLE 

21  2 

RDPARM 

REAL 

SIMPLE 

213 

RDPARM 

REAL 

SIMPLE 

214 

RDPARM 

REAL 

SIMPLE 

215 

rcntrl 

REAL 

SIMPLE 

148 

RDPARM 

REAL 

array 

216 

RDPARM 

REAL 

ARRAY 

217 

RCNTRL 

REAL 

SIMPLE 

149 

RDPARM 

REAL 

SIMPLE 

2TB 

CCNTRL 

REAL 

ARRAY 

12 

CCWTRL 

REAL 

ARRAY 

13 

RCNTRL 

REAL 

SIMPLE 

150 

RCNTRL 

REAL 

SIMPLE 

151 

RCNTRL 

REAL 

SIMPLE 

1 52 

QANDQT 

REAL 

ARRAY 

285 

294 

© o 

RCNTRL 

REAL 

SIMPLE 

153 

RCNTRL 

REAL 

SIMPLE 

154 

RCNTRL 

REAL 

SIMPLE 

155 

RDPARM 

REAL 

ARRAY 

239 

309 

309 

3 1 9 

3 t 9 

o % 

RCNTRL 

REAL 

SIMPLE 

156 

o f . 

RDPARM 

REAL 

ARRAY 

219 

RDPARM 

REAL 

ARRAY 

220 

RDPARM 

REAL 

ARRAY 

221 

jO  -i 

c: 

St*  ■'* 

RCNTRL 

REAL 

SIMPLE 

157 

OANDQT 

REAL 

ARRAY 

255 

273 

RCNTRL 

REAL 

SIMPLE 

183 

> ^ 

RCNTRL 

REAL 

STMPLE 

1S4 

RDPARM 

REAL 

SIMPLE 

223 

<t  i*£ 

RDPARM 

REAL 

SIMPLE 

224 

RDPARM 

REAL 

ARRAY 

222 

LDPARM 

LOGICAL 

ARRAY 

200 

203 

QANDQT 

REAL 

ARRAY 

256 

274 

RCNTRL 

REAL 

SIMPLE 

153 

RCNTRL 

REAL 

SIMPLE 

159 

RCNTRL 

REAL 

SIMPLE 

ISO 

QANDQT 

REAL 

ARRAY 

245 

263 

QANDQT 

REAL 

ARRAY 

246 

264 

RDPARM 

REAL 

simple 

225 

RDPARM 

REAL 

SIMPLE 

226 

RCNTRL 

REAL 

SIMPLE 

182 

RCNTRL 

REAL 

SIMPLE 

18  1 

QANDQT 

REAL 

ARRAY 

25  4 

272 

INTEGER 

SIMPLE 

315/C 

3 18 

319 

319 

3 t 9 

320 

322  322 

ICNTRL 

INTEGER 

ARRAY 

90 

91 

ICNTRL 

INTEGER 

SIMPLE 

25 

90 

9 1 

QANDQT 

INTEGER 

ARRAY 

259 

277 

INTEGER 

UNKNOWN 

25 

26 

27 

23 

29 

30 

31  32  33  34 

35  m 

PC 

o 

o 


jgarw  t 


V \ 


‘U  y 


36 

37 

38 

47 

48 

49 

58 

59 

60 

69 

70 

71 

IC5P53 

ICNTRL 

INTEGER 

SIMPLE 

68 

I C SPSS 

ICNTRL 

INTEGER 

SIMPLE 

6S 

IDIASAT 

ICNTRL 

integer 

UNKNOWN 

sa 

IDPARM 

INTEGER 

UNKNOWN 

1 S3 

190 

191 

IDSPG2 

I DP ARM 

INTEGER 

SIMPLE 

190 

I EF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

82 

IFUSIQN 

ICNTRL 

INTEGER 

UNKNOWN 

B3 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

S 1 

r rcLouo 

ICNTRL 

INTEGER 

UNKNOWN 

86 

1 JUMP 

I DP ARM 

INTEGER 

ARRAV 

189 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

2 15 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IMD2P 1 

ICNTRL 

INTEGER 

SIMPLE 

2B 

INDEX 

I DP A RM 

INTEGER 

ARRAY 

191 

IOMEGA 

ICNTRL 

INTEGER 

unknown 

B7 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IPRECON 

ICNTRL 

. INTEGER 

UNKNOWN 

BO 

I OS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

igu 

ICNTRL 

INTEGER 

ARRAY 

76 

87 

B3 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

as 

IRADSW 

ICNTRL 

integer 

UNKNOWN 

59 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

B4 

IROD 

I DP ARM 

INTEGER 

SIMPLE 

192 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

20  1 

204 

UMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

d 

INTEGER 

SIMPLE 

1 

304 

318 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

JE 

1 DP ARM 

INTEGER 

ARRAY 

194 

JIG 

CCMTRL 

CHAR*  B 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

3 1 

UMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

004 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOS 

ICNTRL 

integer 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR  *S 

SIMPLE 

6 

19 

JP 

I DPARM 

INTEGER 

ARRAY 

195 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

kligw 

ICNTRL 

INTEGER 

SIMPLE 

3B 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

196 

KU 

ICNTRL 

INTEGER 

SIMPLE 

4 T 

L 

INTEGER 

SIMPLE 

306/C 

307 

309 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

INTEGER 

UNKNOWN 

92 

93 

94 

103 

104 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

14  1 

LDP ARM 

INTEGER 

UNKNOWN 

200 

201 

202 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

110 

135 

L PUS I ON 

LCNJRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

109 

134 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

139 

LMi 

INTEGER 

SIMPLE 

307/S 

308 

309 

LQGSR 

ICNTRL 

integer 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

LPREACC 

LCNTRL 

LOGICAL 

unknown 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

unknown 

103 

133 

LOS 

LCNTRL 

LOGICAL 

ARRAY 

1 03 

105 

106 

1 23 

LOU 

LCNTRL 

LOGICAL 

ARRAY 

104 

115 

116 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

13B 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

117 

142 

c/i 

W 

Cl 

o 

pa 


39 

40 

4 1 

42 

43 

44 

45 

46 

21 

50 

5 1 

52 

53 

54 

55 

56 

57 

03 

61 

6 2 

63 

64 

65 

66 

67 

63 

72 

73 

74 

75 

76 

192 

1 93 

194 

195 

196 

1 97 

198 

199 

79  80  81  82  S3  £4  £5  86 

89 


319  319  319  320  322  322 


309 

309 

316/C 

317 

319 

319 

319 

95 

96 

97 

98 

99 

1 00 

101 

102 

309 

3 1 0 

317/S 

3 18 

319 

3 19 

320 

107 

1 08 

109 

1 10 

1 t 1 

1 1 2 

1 13 

1 14 

117  1 29 


lradswg 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

106 

131 

LTfWIN 

LCNTRL 

LOGICAL 
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00  115 

equivalence 

< LOMEGA  , LQU { 1)) 

SCNTRL 

130 

00  1 16 

equivalence 

< LD I ABA  T , LQU 1 2)> 

SCNTRL 

13  1 

1 i 

00117 

equivalence 

f LRADSW  « LOUf  3 J 1 

5CNTRL 

132 

i - ! 

c 

SCNTRL 

133 

7 

oo  t ia 

logical 

QALT 

SCNTRL 

134 

l ■ ; 

00119 

logical 

QBEG 

SCNTRL 

135 

!•  ^ 

00  1 20 

logical 

QDAY 

SCNTRL 

136 

00121 

LOGICAL 

QEND 

SCNTRL 

137 

; 

00  1 22 

LOGICAL 

QOUT 

SCNTRL 

1 33 

00123 

LOGICAL 

QPHY 

SCNTRL 

139 

t.  - 

00  1 24 

LOGICAL 

QSHF 

SCNTRL 

140 

L- 

00125 

LOGICAL 

SN2FLG 

SCNTRL 

141 

00126 

LOGICAL 

QRSW 

SCNTRL 

142 

00127 

LOGICAL 

QRSH 

SCNTRL 

143 

c 

SCNTRL 

144 

00  128 

LOGICAL 

LQS 

SCNTRL 

145 

\\ 

00  129 

LOGICAL 

LQU 

SCNTRL 

146 

:\V 

00130 

LOGICAL 

LTMIN 

SCNTRL 

147 

00131 

LOGICAL 

LTMAX 

SCNTRL 

148 

% 

00  132 

LOGICAL 

LPREACC 

SCNTRL 

149 

00133 

LOGICAL 

LPRECON 

SCNTRL 

150 

■> 

00  134 

LOGICAL 

LHFLUX 

SCNTRL 

151 

00135 

LOGICAL 

LEFLUX 

SCNTRL 

152 

u 

00136 

LOGICAL 

LFUSION 

SCNTRL 

153 

■f 

00137 

LOGICAL 

LRADSWG 

SCNTRL 

154 

t* 

00  1 38 

LOGICAL 

LRADLWG 

SCNTRL 

155 

i 

00  139 

LOGICAL 

LICLOUD 

SCNTRL 

156 

It 

c 

SCNTRL 

157 

A 

00140 

LOGICAL 

LOMEGA 

SCNTRL 

158 

;4r 

00  141 

LOGICAL 

LDIABAT 

SCNTRL 

159 

: tl 

00142 

LOGICAL 

LRADSW 

5CNTRL 

1 60 

■ f! 

c 

SCNTRL 

161 

1 r 

00143 

EQUIVALENCE 

f LCO, LC< 1 > ) 

SCNTRL 

162 

Ml 

00  1 44 

LOGICAL 

LCO P LC<200) 

SCNTRL 

163 

i ? 

c 

SCNTRL 

164 

1 j 

c 

REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

165 

c 

SCNTRL 

166 

i -i 

00  MS 

COMMON  /8CMTRL / 

RCO 

SCNTRL 

167 

1 i 

00  MS 

COMMON  /RCNTRL/ 

APHEL 

SCNTRL 

168 

* i 

00147 

COMMON  /RCNTRL/ 

BETA 

SCNTRL 

163 

;:  1 

00143 

COMMON  /RCNTRL/ 

COSO 

SCNTRL 

170 

00  149 

COMMON  /RCNTRL/ 

CP 

SCNTRL 

17  1 

■ *! 

00  150 

COMMON  /RCNTRL/ 

DAYSPY 

SCNTRL 

172 

00151 

COMMON  /RCNTRL/ 

DEC 

SCNTRL 

173 

00152 

COMMON  /RCNTRL/ 

DECMAX 

SCNTRL 

174 

I 

00  153 

COMMON  /RCNTRL/ 

DIST 

SCNTRL 

175 

; > 

00  154 

COMMON  /RCNTRL/ 

DL  AT 

SCNTRL 

176 

L-  1 

00155 

COMMON  /RCNTRL/ 

DLON 

SCNTRL 

177 

L'  i 

00156 

COMMON  /RCNTRL/ 

DT 

SCNTRL 

1 78 

!:| 

00  157 

COMMON  /RCNTRL/ 

ECCN 

SCNTRL 

179 

00158 

COMMON  /RCNTRL/ 

GNU  1 

SCNTRL 

ISO 

tv 

00  159 

COMMON  /RCNTRL/ 

GNU2 

SCNTRL 

181 

} 

00  160 

COMMON  /RCNTRL/ 

GRAV 

SCNTRL 

182 

u> 
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00161 
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/RCNTRL/ 

OMEGA 2 

SCNTRL 

183 

00162 

COMMON 

/RCNTRL/ 

PI 

SCNTRL 

1 84 

00163 

COMMON 

/RCNTRL/ 

pi  tao 

SCNTRL 

185 

00164 

COMMON 

/RCNTRL/ 

pr2 

SCNTRL 

136 

00  t 65 

COMMON 

/ RCNTRL/ 

PSTD 

SCNTRL 

187 

00166 

COMMON 

/RCNTRL/ 

PIMEAN 

SCNTRL 

1SS 

00167 

COMMON 

/RCNTRL  / 

F5MAX 

SCNTRL 

T 89 

oo  tea 

COMMON 

/RCNTRL/ 

PSMIN 

SCNTRL 

190 

00  169 

COMMON 

/RCNTRL/ 

PTOP 

SCNTRL 

191 

00170 

COMMON 

/RCNTRL/ 

RACE 

SCNTRL 

192 

00171 

COMMON 

/RCNTRL/ 

RGAS 

SCNTRL 

193 

00172 

COMMON 

/RCNTRL/ 

ROCP 

SCNTRL 

194 

00  1 73 

COMMON 

/RCNTRL/ 

RSDI ST 

SCNTRL 

195 

00  1 74 

COMMON 

/RCNTRL/ 

5DA  Y 

SCNTRL 

196 

00176 

COMMON 

/RCNTRL/ 

SEASON 

SCNTRL 

197 

00176 

COMMON 

/RCNTRL/ 

sige 

£25) 

SCNTRL 

198 

00177 

COMMON 

/RCNTRL/ 

SIND 

SCNTRL 

199 

00178 

COMMON 

/RCNTRL/ 

SOLS 

SCNTRL 

200 

00179 

COMMON 

/RCNTRL/ 

TSTD 

SCNTRL 

201 

OOfSO 

COMMON 

/RCNTRL/ 

PLEVS 

£ 25  ) 

SCNTRL 

202 

0018  1 

COMMON 

/RCNTRL/ 

HEATW 

SCNTRL 

203 

00182 

COMMON 

/RCNTRL/ 

HEAT  I 

SCNTRL 

204 

00183 

COMMDN 

/RCNTRL/ 

EPS 

SCNTRL 

205 

00184 

COMMON 

/RCNTRL/ 

EPSFAC 

SCNTRL 

206 

00186 

COMMON 

/RCNTRL/ 

CALTOJ 

SCNTRL 

207 

00186 

COMMON 

/RCNTRL/ 

PZERO 

SCNTRL 

206 

C 

SCNTRL 

209 

00187 

EQUIVALENCE 

£ RCO  t AC ( 1 ) > 

SCNTRL 

2 10 

00  las 

REAL 

RC0  * RC  £ 200  > 

SCNTRL 

21  1 

C 

SCNTRL 

212 

C 

INTEGER  MODEL  CONSTANTS 

SCNTRL 

213 

0 

SCNTRL 

214 

00189 

COMMON 

/IDPARM/ 

I JUMP 

(46  ) 

SCNTRL 

215 

00130 

COMMON 

/IDPARM/ 

IDSP02 

SCNTRL 

216 

00191 

COMMON 

/ I DP ARM/ 

INDEX 

(72) 

SCNTRL 

217 

00132 

COMMON 

/IDPARM/ 

I ROD 

SCNTRL 

218 

00193 

COMMON 

/IDPARM/ 

JC 

( 46  ) 

SCNTRL 

219 

00194 

COMMON 

/IDPARM/ 

JE 

(2) 

SCNTRL 

220 

00195 

COMMON 

/IDPARM/ 

JP 

( 2, 2 ) 

SCNTRL 

22  t 

00196 

COMMON 

/IDPARM/ 

KSTEP 

SCNTRL 

222 

00197 

COMMON 

/IDPARM/ 

MJ 

< 46) 

SCNTRL 

223 

00198 

COMMON 

/IDPARM/ 

NHMS  1 

SCNTRL 

224 

00199 

COMMON 

/IDPARM/ 

NYMDt 

SCNTRL 

225 

c 

SCNTRL 

226 

c 

LOGICAL  MODEL  CONSTANTS 

SCNTRL 

227 

c 

SCNTRL 

228 

00200 

COMMON 

/LDP ARM/ 

FILTER 

(46  ) 

SCNTRL 

229 

0020  t 

COMMON 

/LDPARM/ 

itape 

SCNTRL 

230 

00202 

COMMON 

/LDPARM/ 

START 

SCNTRL 

23  1 

c 

SCNTRL 

232 

00203 

LOGICAL 

FILTER 

SCNTRL 

233 

00204 

LOGICAL 

ITAPE 

SCNTRL 

234 

00205 

LOGICAL 

START 

SCNTRL 

235 

c 

SCNTRL 

236 

c 

REAL  MODEL 

. CONSTANTS 

SCNTRL 

237 

c 

SSS26S3  = = = 

■;:  = ==  = = = -: 

= =■ 

SCNTRL 

238 

00206 

COMMON 

/RDFARM/ 

ADLDP 

SCNTRL 

239 

00207 

COMMON 

/RDPARM/ 

CONI 

SCNTRL 

240 

00208 

COMMON 

/RDPARM/ 

CON  IDT 

SCNTRL 

241 

00209 

COMMON 

/RDPARM/ 

CON2 

SCNTRL 

242 

00210 

COMMON 

/RDPARM/ 

C0N2DT 

SCNTRL 

243 

0021  1 

COMMON 

/RDPARM/ 

C0N3 

SCNTRL 

244 

00212 

COMMON 

/RDPARM/ 

CON3DT 

SCNTRL 

245 

00213 

COFrtMON 

/RDPARM/ 

CON4 

SCNTRL 

246 

00214 

COMMON 

/RDPARM/ 

C0N4DT 

SCNTRL 

247 

00215 

COMMON 

/RDPARM/ 

CON5 

SCNTRL 

248 

00216 

COMMON 

/RDPARM/ 

COSL 

(46  ) 

SCNTRL 

249 

00217 

COMMON 

/RDPARM/ 

COSLON 

(72  > 

SCNTRL 

250 

00218 

COMMON 

/RDPARM/ 

CPD2 

SCNTRL 

25  1 

00215 

COMMON 

/RDPARM/ 

DXP 

(46) 

SCNTRL 

252 

00220 

COMMON 

/RDPARM/ 

DXYP 

(46) 

SCNTRL 

253 
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00221 

00222 

00223 

00224 

00225 

00226 
00227 
00223 

00229 

00230 

00231 

00232 
0CP33 

00234 

00235 

00236 

00237 

00233 

00239 

00240 


COMMON  /RDPARM/  DYP  M 6) 

COMMON  /RDPARM/  FCORLS  (46) 
COMMON  / RDPARM/  F IDT 
COMMON  /RDPARM/  F2DT 
COMMON  /RDPARM/  H 1 DT 
COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PK5TD 
COMMON  /RDPARM/  PKTOP 
COMMON  /RDPARM/  RL AT  <4S) 
COMMON  /RDPARM/  RLATD  (4G> 
COMMON  /RDPARM/  ROCPDT 
COMMON  /RDPARM/  ROCPP 1 
COMMON  /RDPARM/  SGNP  (2) 
COMMON  /RDPARM/  SINL  (46) 
COMMON  /RDPARM/  SINLON  (72) 
COMMON  /RDPARM/  THSTD 
COMMON  /RDPARM/  THSTD2 
COMMON  /RDPARM/  WSAVE  (159] 
COMMON  /RDPARM/  DSIG  (9) 
COMMON  /RDPARM/  SIG  (9) 


GLOBAL  MODEL  SURFACE  FIELDS 

COMMON  / QANDQT / Q5<72, 19,46) 


00242 

00243 

00244 

00245 

00246 

00247 
00242 

00249 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 
0025B 
00253 

00260 

00261 

00262 

00263 

00264 

00265 

00266 
00267 
00263 

00269 

00270 
0027  1 

00272 

00273 

00274 

00275 

00276 

00277 


00279 

00280 
00281 
00282 
00283 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

dimension 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PHI S f 1363, 1 ) 
SMTH 1 1 36B , 23 ) 
ALBEDO  < 1353, 1 ) 
GTf 1368 , 1 > 

GW<  1 368  T 1 ) 

TSI 1368 , 1 ) 

5H5( 1368, 1 > 

P ( 72 , 19,1) 

TWIN l 1368 , 1 ) 
TMAX< 136S, 1 ) 
PRE ACC ( 136B, 1 ) 
PRECON ( 1368, 1 1 
HF  LUX  ( 1368, 1 ) 

E FLUX ( 1368 , 1 ) 
FUSION  f 1368 , 1 ) 
RAD5WG ( 1368 , 1 ) 
RADLWG ( 1363, 1 ) 
1 CLOUD ( 1368, 1 ) 


EQUIVALENCE  ( QS (1 , 1 , 1 > , PHI S M , 1 ) ) 

EQUIVALENCE  (QS( 1 ,2, 1 ) ,SMTH( 1 , 1 ) ) 

EQUIVALENCE  < QS M , 3 , 1) , ALBEDO ( 1 , 1) ) 

EQUIVALENCE  < QS ( 1 , 4 r U , GT ( 1 * 1) ) 

EQUIVALENCE  (QS(1t5,1l ,GW( 1,1)) 

EQUIVALENCE  (QS (1,6,1)* TS (1,1)) 

EQUIVALENCE  ( QS (1,7,1), SH5 ( 1 , 1 J ) 

EQUIVALENCE  ( QS ( 1 , 8 , 1) , P ( 1 , 1 , 1 ) ) 

EQUIVALENCE  (QS<  t , 10  , 1 ) ,TMIN( 1 , 1 ) > 

EQUIVALENCE  (QS(  1 , 1 I , t J ,TMAX( 1,1)) 

EQUIVALENCE  ( QS  < 1 , 1 2 , 1)  , P RT ' 

EQUIVALENCE  < QS  ( T , 1 3 , f ) . PRI 

EQUIVALENCE  <QS( 1 , 14, 1 ) .HF1 

EQUIVALENCE  ( QS f t , 1 5 . 1) , EFI 

EQUIVALENCE  ( QS ( 1 * 1 6 . t ) , F U2 

EQUIVALENCE  ( QS ( t , 1 7 , 1 ) , R At 

EQUIVALENCE  < QS ( 1 , 1 8 , 1) , R A£ 

EQUIVALENCE  < QS ( 1 , 1 9 , 1 ) , ICI 

C * * * 

C GLOBAL  MODEL  UpPER-AIR  FIELDS 

COMMON  /QANDQT/  QU ( 72 , 9 , 1 4 , 46 > 

C 

DIMENSION  U ( 72 ,9,14,1) 

DIMENSION  V ( 7 2 , 9 , t4,  1) 

DIMENSION  T ( 72 ,9,14,1} 

DIMENSION  59(72,9, 14, 1 ) 

DIMENSION  PHI (72, 9, 14 t1 ) 


(QS<1 , 12 , U , PREACC ( 1 , 1 ) > 
<QS( t , 13. 1) , PRECON ( 1 , 1) ) 
<QS( 1 , 14, 1 ) , HFLUX ( 1 , 1 ) ) 

( QS ( t , 15. 1 I , EFLUXf  I , t )) 
(QS( 1,16,1)  , F USI ON { 1 , 1 ) ) 
(QS( t , 17 , 1 ) ,RADSWGl 1.1)) 
<QS( 1,18,1) , R ADLWG ( 1,1)) 
< QS (1,19,1), I CLOUD ( 1 , 1 )) 
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267 
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SCNTRL 
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SCNTRL 
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SCNTRL 

272 

SCNTRL 

273 

SCNTRL 
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SQANDQT 

2 

SQANDQT 

3 

SQANDQT 

SQANDQT 

5 

SQANDQT 

6 

SQANDQT 

7 

ig 

SQANDQT 

S 

SQANDQT 

9 

SQANDQT 

10 

ol 

SQANDQT 

1 1 

SQANDQT 

12 

SQANDQT 

13 

O 

SQANDQT 

14 

55  j'* 

SQANDQT 

15 

SQANDQT 

16 

rO  ^ 

SQANDQT 

17 

CT  w 

SQANDQT 

18 

i 

SQANDQT 

t 9 

tZm 

n frj 

SQANDQT 

20 

SQANDQT 

21 

50ANDQT 

22 

SQANDQT 

23 

SqANDQT 

24 

SQANDQT 

25 

SQANDQT 

26 

SQANDQT 

27 

SQANDQT 

28 

SQANDQT 

29 

SQANDQT 

30 

SQANDQT 

31 

SQANDQT 

32 

SQANDQT 

33 

SQANDQT 

34 

SQANDQT 

35 

SQANDQT 

36 

SQANDQT 

37 

SQANDQT 

38 

SQANDQT 

39 

SQANDQT 

40 

SQANDQT 

41 

SQANDQT 

42 

SQANDQT 

43 

SQANDQT 

44 

SQANDQT 

45 

SQANDQT 

46 

SQANDQT 

47 

SQANDQT 

4B 

SQANDQT 

49 

SQANDQT 

50 

SQANDQT 

51 
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00284 
00  285 
00286 
00287 

00285 

00289 

00290 

00291 

00292 
0 0293 

00294 

00295 
00295 


00297 

00298 

00299 

00300 
0030  1 
00302 


00303 


00304 

00305 

00306 


00307 


00308 


00309 

00310 


0031  1 
003  1 2 
00313 
003  14 

00315 

00316 
003  t7 
003  18 
00319 


C 

c 

c 


c 

c 

c 

c 

c 

c 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 


OMEGA (72,126,1) 
DIASA T( 72, 125,1) 
RADSW (72,1 26  T 1 ) 
RADLWI72, 126, 1 ) 


(QU{  1 
( QU  ( J 
tQUM 
(QU(  i 
( QUM 
( QU  C T i 1 
( QUt  1 , 1 
( QU  f 1 4 1 
< QU  ( 1 


1 , t , 1) ,U( t 

I.S.U.TU 

1 ' “ ' 


1 ) ) 
i i > 
i ) ) 


7, 1 } ,SH( 1 . t * 1 * 1 ) ) 

9.1) , PHI { 1 , 1 r 1 , 1 ) ) 

11.1)  t OMEGA ( 1,1,1)) 

12.1)  , D1 ABA? ( 1 ,1,1)) 

13.1) , RADSW ( 1 , 1 . 1 > ) 


1,14,1), RADLWf  1 , 1 r t ) > 


POLAR  MODEL  PROGNOSTIC  FIELDS 
COMMON  /QPOLES/  PP(2,2) 
COMMON  /QPOLES/  UP  19,2 ,2) 
COMMON  /QPOLES/  VP (9,2, 2) 
COMMON  /QPOLES/  TP(9,2f2> 
COMMON  /QPOLES/  SHP ( 9 , 2 t 2 ) 
COMMON  /QPOLES/  PHI  Pi  9, 2, 2) 


THREE  DIMENSIONAL  FIELD  WORK  AREAS 
COMMON  FLD (72, 46. IB ) 


ONE-DIMENSIONAL  WORK  AREAS 
COMMON  CARD (10), 

COMMON  PK ( 72 , 9 ) , 

CHARACTER+B  CARD 


DATA ( 144 ) , CATA ( 1 44 ) 
PT(72,9) 


C SURFACE  TO  SEA  LEVEL  PRESSURE  EXPONENT  FUNCTION 

5LEXP ( TS, PHIS)  = EKP(PHIS/( RGAS* (TS+ , 5*BETA*PHIS/GRAV ) ) ) 
C 

C DEBUG 
10000  CONTINUE 

c CYBER  SCALAR  VERSION  04*001  INPUT, IOQ 

c CYBER  SCALAR  VERSION  04*000 

C ****  CYBER  SCALAR  VERSION  00 


***•**+*♦ 
* * *■  * 

★ * + *■ 

+ * * +■ 

LOOP  OVER  ALL  QUANTITIES  TO  SMOOTH 

* * *-  * 
* * *■  * 
*-  * * » 

■*■**■* 

DO  1900  KF  = 1 , 2 
GO  TO  ( 100 , 200) , KF 

► ***■#***■#* 
• * * * 

* + +■  ♦ 

SEA  LEVEL  PRESSURE, 

» * * * 

*■'*'*•* 

SEA  LEVEL  TEMPERATURE, 

# * +■  * 

*•  * * * 

AND  POTENTIAL  TEMPERATURE 

+■  T*  * » 

*■*-**- 

100 

CONTINUE 

KFSGN  = 1 

LM  - 2 + NLA Y + 1 

M = 1 

DO  140  J= 1 , JNP 

IF  ( J . NE - 1 .AND,  d.NE.dNP)  GO  TO  120 
FLDMrtl,1)  = ( P P ( NB  , M ) + PTDP  ) *SLEXP  < TS  ( 1 . J ) , PHI  S(  1 , J > ) 
FLD  ( 1 r J , 2 ) = TS  { 1 , J ) A BETA  *PH  I S f 1 , lM  /GRAV 
FLD  { 1 , J , 2+NLA YA 1 ) - GT(1,d)  + SE TA -PHI S M t J ) /GRAV 


SQANDQT  52 
SQANDQT  53 
SQANDQT  54 
SQANDQT  55 
SQANDQT  56 
SQANDQT  57 
SQANDQT  53 
SQANDQT  59 
SQANDQT  60 
SQANDQT  61 
5QANDQT  S2 
SQANDQT  63 
SQANDQT  64 
SQANDQT  65 
SQANDQT  66 
SQPOLES  2 
SQP0LE5 
SQPOLES 
SQPOLES 
SQPOLES 
SQPOLES 
SQPOLES 
SQPOLES 
SQPOLES 
SWRKFLD 
SWRKFLD 
SWRKFLD 
SWRKFLD 
SWORK1D 
S WORK  ID 
SWORK ID 
SWORK ID 
SWORK ID 
SWORK ID 
SSLEXP 
SSLEXP 
SSLEXP 
SSLEXP 
SBEGDEB 
SBEGDEB 
SBEGDES 
SBEGDEB 
SBEGDEB 


cssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssbegdeb 
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5 

6 
7 
3 
9 

10 

2 

3 

4 

5 
2 

3 

4 

5 

6 
7 
2 

3 

4 

5 
2 

3 

4 

5 

6 
7 


SSMSHAP  41 
SSMSHAP  42 
SSMSHAP  43 
SSMSHAP  44 
SSMSHAP  45 
SSMSHAP  46 
SSMSHAP  47 
SSMSHAP  4B 
SSMSHAP  49 
SSMSHAP  50 
SSMSHAP  5 t 
SSMSHAP  52 
SSMSHAP  53 
SSMSHAP  54 
SSMSHAP  55 
SSMSHAP  56 
SSMSHAP  57 
SSMSHAP  53 
SSMSHAP  59 
SSMSHAP  60 
SSMSHAP  61 
SSM5HAP  62 
SSMSHAP  63 
SSMSHAP  64 
SSMSHAF  65 
SSMSHAP  66 
SSMSHAP  67 
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V 


.z\  r 


SJ 


00320 

DO  10S  L=1 , NLAY 

SSMSHAP 

68 

00321 

FLD  ( 1 tJ,2±L)  = TP(L  ,NB.M>/EXFBYKfPP(NB,M>  *SIGf  LAPTOP) 

SSMSHAP 

69 

00322 

105 

CONTINUE 

SSMSHAP 

70 

00323 

DO  110  1=1 ,IM 

SSMSHAP 

71 

00324 

FLD  ( I ,d  , 1)  = F LD ( 1 , J, 1 ) 

SSMSHAP 

72 

00325 
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00364 

00365 

00366 


00367 

0036B 


C 

0 

c 

c 

c 

c 

c 


U A NO  V WINO  COMPONENTS 


SSMSHAP 

SSMSHAP 

SSMSKAP 

SSMSHAP 


90 
3 t 

92 

93 


SSMSHAP  34 
SSMSHAP  35 
SSMSHAP  96 


00342 

200 

CONTINUE 

SSMSHAP  97 

00343 

KFSGN  = '1 

SSMSHAP  98 

00344 

LM  = 2-NLAY 

SSMSHAP  99 

00345 

m - i 

5SF4SHAP  100 

00346 

DO  240  d=1 , JNP 

SSMSHAP 101 

0C347 
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CONTINUE 
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DATA  f J ) . = FLD  ( I t J.Li 
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CONTINUE 

JL2  = 0 

DO  1150  N=1  r NSM 

J = JMT2 

DO  1135  JP  1 =■  I , JMT2 
CATAfJ)  = DATA f JP  1 ) - DATA  Id) 
d = JP  1 

CONTINUE 
JS1  - JMT2 
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CONTINUE 
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CONTINUE 
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V < I t L « NB , J ) = FLDU  , J , L-^NLAV  ) 
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CONTINUE 
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/RADCOM/ 

SHL  <72*91 , SHLE ( 72 ,101 

SRADCOM 

9 

00289 

COMMON 

/RADCOM/ 

SHG(72) , CLOUD { 72 , 12) 

SRADCOM 

10 

0 0290 

COMMON 

/RADCOM/ 

SHSA  T f 7 2 , 9 1 , GAMI7:I,9) 

SRADCOM 

t 1 

00291 

COMMON 

/RADCOM/ 

RH (72,9) 

SRADCOM 

12 

00292 

COMMON 

/RADCOM/ 

SSS (72,9)  , SS5E (72,10) 

SRADCOM 

13 

00293 

COMMON 

/RADCOM/ 

HH (72,9)  , HHE  (72,  10) 

SRADCOM 

14 

00294 

COMMON 

/RADCOM/ 

WHS (72,9) 

SRADCOM 

15 

00295 

COMMON 

/RADCOM/ 

CVT (72,9) . CVQf72,9) 

SRADCOM 

16 

00296 

COMMON 

/RADCOM/ 

CXDE (9> 

SRADCOM 

17 

00297 

COMMON 

/RADCOM/ 

5WALE( 72, 10) . SWIL<72,9) 

SRADCOM 

18 

0 0 298 

COMMON 

/RADCOM/ 

AL<72, 10) 

SRADCOM 

19 

00299 

COMMON 

/RADCOM/ 

T AUL (72,  10)  , QZALE ( 72 , 1 0 1 

SRADCOM 

20 

00300 

COMMON 

/RADCOM/ 

TOPABS ( 72 1 

SRADCOM 

21 

00301 

COMMON 

/RADCOM/ 

RN  ( 9 ) , TWO)  f SRS  ( 9 ) , STN(9) 

SRADCOM 

22 

00302 

COMMON 

/RADCOM/ 

TC0NDC9)  , TPENEO) 
TLOWL.TMIDL,  NLAYDZ 

SRADCOM 

23 

00303 

COMMON 

/RADCOM/ 

sradcom 

24 

00304 

COMMON 

/RADCOM/ 

FK ( 5 } , XK ( 5 ) , NFK 

SRADCOM 

25 

o o 

*n 

*TJ  £> 

O 

o % 
to  r 

tO  TJ 
C £ 
> Q 
r-  m 


4 


ca 


W 

O 

It1 


55 

J— ‘ 


I 


00305 

COMMON 

/RADCOM/ 

OLJAN(tg),  OLAPR (19),  OLdU-ttB),  OLOCT M 9 > 

SRADCOM 

26 

.;  '■ 

00306 

COMMON 

/RADCOM/ 

OCM22 ( 23 1 . OCM30 < 23 ) t OCM38(23),  OCM46123) 

SRADCOM 

27 

i 

00307 

COMMON 

/RADCOM/ 

PROCM ( 23 > t OCMX X ( 23 ) * NOZ , TOTOZ(4);  CDA TE  t $ ) 

SRADCOM 

28 

, 

00308 

COMMON 

/RADCOM/ 

CZH  i 72 ) * WET  ( 72 ) , EVAP,  PREP(72),  WK72) 

SRADCOM 

29 

00309 

COMMON 

/RADCOM/ 

COSZ172).  S0t  RADTRM1 72 ) , CXL 

SRADCOM 

30 

J 

00310 

COMMON 

/RADCOM/ 

SG(72J  , SP ( 72  > 

SRADCOM 

31 

0031  1 

COMMON 

/RADCOM/ 

RSURF172) , RCLOUD { 72  ) t dALB 

SRADCOM 

32 

003  1 2 

COMMON 

/RADCOM/ 

LAND ( 72 ) , OCEAN ( 72 ) , ICE172) 

SRADCOM 

33 

003  13 

COMMON 

/RADCOM/ 

SNOW  (72),  MI XWI  [ 72  > T FROSTf72> 

SRADCOM 

34 

00314 

LOGICAL 

LAND , OCEAN,  ICE » SNOW,  MIXWI,  FROST 

SRADCOM 

35 

[ 

C 

SRADCOM 

36 

r 

c 

# * 

* 

SD50LAR 

2 

J 

c 

DYNAMIC  SPACE  VARIABLES  FOR  SOLAR  1 SUBROUTINE 

5DSOLAR 

3 

1 ! 

00315 

COMMON 

/DSOLAR/ 

RMEAN  < 72  > 

SDSOLAR 

4 

00316 

COMMON 

/DSOLAR/ 

T0TAB5 ( 72 ) 

SDSOLAR 

5 

00317 

COMMON 

/DSOLAR/ 

COSMAG1 72  > 

SDSOLAR 

6 

l 

00318 

COMMON 

/DSOLAR/ 

SCOSZ ( 72  > 

SDSOLAR 

7 

*\ 

00315 

COMMON 

/DSOLAR/ 

F SCAT {721 

SDSOLAR 

B 

3 

f 

00320 

COMMON 

/□SOLAR/ 

RCUEAR(72) 

SDSOLAR 

9 

l 

00321 

COMMON 

/DSOLAR/ 

TEMPI (72, 9) 

SDSOLAR 

10 

00322 

COMMON 

/DSOLAR/ 

FCLOUD t 72  ) 

SDSOLAR 

1 1 

i. 

0 0323 

COMMON 

/DSOLAR/ 

FCLEAR ( 72 ) 

SDSOLAR 

12 

00324 

common 

/DSOLAR/ 

W ( 72  1 

SDSOLAR 

13 

00325 

COMMON 

/DSOLAR/ 

ACLEAR (72) 

SDSOLAR 

14 

. 00326 

COMMON 

/DSOLAR/ 

ACLOUD ( 72 ) 

SDSOLAR 

T 5 

00327 

COMMON 

/DSOLAR/ 

WW<72> 

SDSOLAR 

16 

o c 

00328 

COMMON 

/DSOLAR/ 

NTOPT { 72  > 

SDSOLAR 

17 

00329 

COMMON 

/DSOLAR/ 

NTOPF (72) 

SDSOLAR 

18 

■n  % 

00330 

COMMON 

/DSOLAR/ 

NTOP ( 72 ) 

SDSOLAR 

19 

TJ  £5 

\ 

00331 

COMMON 

/DSOLAR/ 

DARK  < 72 ) 

SDSOLAR 

20 

:\v 

00332 

COMMON 

/DSOLAR/ 

CLEAR ( 72 ) 

SDSOLAR 

21 

O S 

% 

00333 

COMMON 

/DSOLAR/ 

CLOUDY ( 72 ) 

SDSOLAR 

22 

O % 

00334 

COMMON 

/DSOLAR/ 

FOLD ( 72 ) 

SDSOLAR 

23 

?o  r- 

00335 

LOGICAL 

4 

DARK,  CLEAR,  CLOUDY,  FOLD 

SDSOLAR 

24 

••* 

c 

SDSOLAR 

25 

iO  “tJ 

1 

c 

SSOLAR1 

19 

a 

00336 

AWATER(X)  - 2 . 9 4 

X/((1,  +■  14  1 .5  1 «-X)  **•  .635  + 5 . 925*  X ) 

SSOLAR1 

20 

> © 

T~  F3 

•Hi 

;i 

00337 

AOZONEfX.).  - .021  IBO-X/11  .0  +■  X*(0.042  * X*0.000323M 

SSOLAR1 

21 

S 

+ 1 »08173*X/H  .0  a X * 1 38  * 57  ) * * 0 . 805 

SSOLAR1 

22 

\ 

S 

+ 0 .0G5B0*X/ ( 1 .00  + f 103 , 63*X > **3) 

SSOLAR1 

23 

c 

SSOLAR1 

24 

m 

1 

c 

DEBUG 

SBEGDEB 

2 

? V 

□ 0338 

10000 

CONTINUE 

SBEGDEB 

3 

; t 

c 

****  CYBER  SCALAR  VERSION  04,001  INPUT.IOQ 

SBEGDEB 

4 

it 

c 

CYBER  SCALAR  VERSION  04.000 

SBEGDEB 

5 

I ?l 

c 

CYBER  SCALAR  VERSION  00 

SBEGDEB 

6 

CS5SS3S$$S5SSSSESSSSSSSSSSSSS3SSSS5SSSSSSSSS£$SSSSSSSSS$SSS$SSSSSSS$SSSSSB6GDEB 

7 

i 

0 

SSOLAR1 

26 

i 

c 

SSOLAR1 

27 

‘ • 

00339 

NLA YP  1 

= NLA  Y 1 

SSOLAR 1 

28 

00340 

NLAYP2 

- NLA  Y-L2 

SSOLAR1 

29 

1 \ 

00341 

NLAYP3 

- NLAY+3 

SSOLAR 1 

30 

■ , 

c 

SSOLAR 1 

31 

c 

SSOLAR 1 

32 

c 

SSOLAR 1 

33 

\ 

c 

* » * 

* * 

***** 

SSOLAR1 

34 

c 

* * * 

*■  * 

NIGHT  TIME  SOLAR  RADIATION  ***** 

SSOLAR 1 

35 

j 

c 

SSOLAR 1 

r a n 4 

36 

| 

c 

5SLJL  A R 1 

37 

c 

SSOLAR 1 

3B 

r 

f 00342 

DO  1000 

I “ 1 , I M 

SSOLAR 1 

39 

t- 

■ 00343 

win  = 

0 . 0 

SSOLAR 1 

40 

h j 

l 00344 

wwm  - 

0.0 

SSOLAR T 

41 

F 00345 

SGII>  = 

0 . 0 

SSOLAR T 

42 

f 

00346 

1000 

CONTINUE 

SSOLAR 1 

43 

' 

c 

SSOLAR 1 

44 

00347 

DO  1005 

L = 1 , NLA  Y 

SSOLAR 1 

45 

? :'f  00348 

DO  1005 

1 = 1 , IM 

SSOLAR 1 

46 

00349 

AS  ( I 

,L)  = O.C 

SSOLAR 1 

47 

00350 

TEMPI  f I 

, L > = O.C 

SSOLAR 1 

48 

i 00351 

1005 

CONTINUE 

SSOLAR 1 

49 

t 


k Si-  — _ 


S0LAR1  6 


SSOLARt  50 
SSOLARt  51 
SSOLARt  52 
SSOLARt  53 
SSOLARt  54 
SSOLARt  55 
SSOLARt  56 
SSOLARt  57 
SS0LAR1  53 
SSQLAR1  59 
SSOLART  60 
5S0LARI  61 
SS0LAR1  62 
SSOLART  63 
SSOLART  64 
SSOLARt  65 
SSOLARt  66 
SSOLART  57 
SSOLART  68 
SSOLARt  69 
SSOLAR1  70 
SSOLARt  71 
SSOLARt  72 
SSOLARt  73 
SSOLARt  74 
SSOLARt  75 
SSOLARt  76 
SSOLARt  77 
SSOLAR1  78 
SSOLART  79 
S5QLARJ  SO 
SSOLARt  81 
SSOLART  82 
SSOLART  83 
SSOLAR1  84 
SSOLARt  85 
SS0LAR1  86 
SSOLAR1  87 
SSOLARt  as 
SSOLARt  B9 
SSOLARt  90 
SSOLARt  9 1 
SSOLARt  92 
SSOLARt  93 
SSOLARt  94 
SSOLARt  95 
SSOLART  96 
SSOLAR1  97 
SSOLARt  98 
SSOLARt  99 
SSOLARt 100 
SSOLARt 101 
SSOLART  T 02 
SSOLARt 103 
SSOLARt 104 
SSOLARt  t 05 
SSOLAR1 106 
SSOLARt 107 
SSOLARt 108 
SSOLARt 109 
SSOLARt 110 
SS0LAR1 t 1 1 
S SOLAR  1 1 12 
SSOLARt  1 13 
SSDLAR 1 t 14 
SSOLAR1  1 t5 
SSOLARt 116 
***  **SSOLAR  1 1 17 
*■  * * * *SSOLAR  1 1 t8 
* **  » *SSOLAR 1119 
* * *S5QLAR 1 120 


SOLARl  7 


\ 


FRACTIONAL  AREA  OF  CLEAR  SKY:  FCLEAR 

NOTE:  IN  CURRENT  VERSION,  IF  CLOUDS  EX  1 5TS  THEY  ARE 

ASSUMED  TO  OCCUPY  THE  ENTIRE  GRID  ELEMENT. 

THUS,  FOR  A GRID  ELEMENT  CONTAINING  CLOUDS  + 

WE  HAVE-:  CLOUD  ( I , L ) = 1,0 

F CLOUD  U ,L ) = 1.0 

FCLEAR  t t ,L>  - 0.0 

DEFINE  LOGICALS: 

CLEAR:  , TRUE , FOR  GRID-POINTS  CONTAINING  NO  CLOUDS 

CLOUDY:  .TRUE.  FOR  GRID-POINTS  CONTAINING  ANY  CLOUDS 


0 03SS 

DO  105  0 I si  , IM 

SSOLARl 136 

00389 

IF!  DARK! I } ) GOTO  1050 

SS0LAR1 137 

00390 

FCLOUD ( I»  * 0.0 

S50LAR 1 138 

0039  1 

FCLEAR! I ) = 1.0 

SSOLAR 1 139 

00392 

NTDPT l I ) = WLAYP 1 

SSOLARl 140 

00393 

NTOPFU)  = NLAYP1 

SSOLAR 1 14 ! 

00394 

1050  CONTINUE 

SSOLAR 1 t 42 

C 

SSOLAR 1 143 

00395 

DO  1 060  Is  1 , IM 

SSOLARl 144 

0 0396 

I F ( DARK! I > ) GO  TO  1060 

SSOLAR 1 145 

00397 

DO  140  L = 2 , NL AY 

SSOLARl 146 

0039S 

XX  = CLOUD ( I , L > 

SSOLARl 147 

00399 

IF  (XX.LT.O.Ot) 

GO 

TO 

140 

SSOLARl 148 

00400 

IF  (XX. GT. 0.99) 

GO 

TO 

130 

SSOLARl 149 

00401 

FC  = AMAX1 (XX, FCLOUD! I) ) 

SSOLARl 150 

00402 

FCLOUDU  ) - FC 

SSOLAR 1 15 1 

00403 

FCLEAR  ( I ) * 1,0  - FCLOUDU) 

SSOLARl 152 

00404 

IF  (NTOPFU  ) .LT.NLAY) 

GO 

TO 

140 

SSOLARl 153 

00405 

NTOPF (I  ) = L 

SSOLARl 154 

00406 

GO 

TO 

140 

SSOLARl 155 

00407 

130  CONTINUE 

SSOLARl 1 58 

0040S 

IF  ! NTOPT ( I ) . LT , NLA Y ) 

GO 

TO 

140 

SSOLARl 157 

00409 

NTOPTU)  = L 

SSOLARl 158 

004  1 0 

FCLEAR ( I 1 = 0.0 

SSOLARl 159 

004  1 1 

140  CONTINUE 

SSOLAR 1 150 

00412 

1060  CONTINUE 

SSOLAR  l t 6 1 

C 

SSOLARl 162 

00413 

DO  1069  1=1 t IM 

SSOLAR 1 163 

00414 

CLEAR!!)  » FCLEARU]  .GT.  0.99 

SSOLARl 164 

00415 

CLOUDY ( I } = FCLEARU)  .LT.  0.01 

SSOLARl 165 

004  19 

1069  CONTINUE 

SSOLARl 166 

C 

SSOLARl 167 

★ 

*■  *■  * 

SSOLAR 1 168 

c ***** 

SSOLAR 1 169 

C *****  DETERMINING  FCLOUD 

SSOLAR 1 170 

Q *■***•«. 

* * *■  * * 

SSOLARl 171 

Q ♦ ***■*■*•++>++  + •++*■+**•  + #**  + *»*+■+  + + + + ** 

tt  +W  * 

# +■  + 

SSOLAR 1 172 

c 

SSOLAR  T 173 

00417 

DO  1070  I=1,IM 

SSOLAR 1 174 

00418 

IF!  DARKU)  .OR.  CLEAR  U ) ) GOTO 

1070 

SSOLARl 175 

004  V9 
00420 


IF  ( FCLOUDU  ) . LT.0.01  ) FCLOUDU  ) = t . 00 
CONTINUE 


k*-*+-*’4r*'**l**itr*4 


LARGE  SCALE  CONDENSATION  ! 5TRATOFORM)  CLOUD  PARAMETERS 


»-*>**-*'*,*****-***-**,l»:**.l«rj< 


004  21 

00422 

00423 

00424 

00425 

00426 

00427 


00  150  L= 1 , NLA  Y 

DO  1080  1= 1 , IM 

IF!  DARKU)  .OR  CLEAR  f I > ) GOTO  1000 

TAUL ( I , L ) = 0.0 

IF  (CLOUD! I ,L) ,GT.0,39)  TAUL  U , U = TCOND!L) 

CONTINUE 

CONTINUE 


ORIGINAL  PASS  C8 
OF  POOR  QUALITY 


s;  -'i 

V 


0042B 

00429 

00430 
0043  1 

00432 

00433 

00434 


00435 

0043S 

00437 

00438 

00439 

00440 
0044  t 


00442 

00443 

00444 

00445 
00448 

00447 

00448 

00449 

00450 
0045  I 


00452 

00453 

00454 

00455 

00456 


00457 

00458 


r V r 'VP' 


C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

n 


c 

c 

c 

c 

c 

c 

c 


*****  LOW  LEVS  L CONVECTION  CLOUD  PARAMETERS  **** 
*****  IFfNAB.EQ.U  CLOUD  IS  IN  LAYER  7 ***» 
*****  I F l NAB  . E Q , 2 ) CLOUD  IS  IN  LAYER  8 **** 

*****  * + * j 


DO  1090  1=1, IM 

IFf  DARK ( I ) .OR,  CLEAR(J)  ) GOTO  1090 
NAB  = CLOUD t I , NLAYP t)  + DELTA 
IF  ( NAB . LT . 1 ) GOTO  1090 

L = NAB  + S 
TAUL  ( I t L ) = TLOWL 

090  CONTINUE 


MID  LEVEL  CONVECTION  CLOUD  PARAMETERS 
IFINBC.EQ.I)  CLOUD  IS  IN  LAYER  5 
IFfNBC.E0.2l  CLOUD  IS  IN  LAYER  6 


DO  t 1 0 0 I = 1 p I M 

I F ( DARK ( I ) .OR-  CLEAR  (!)  ) GOTO  1100 

NBC  = CLOUD f I .NLAYP2)  * DELTA 
IF  ( NBC . LT.  t \ GOTO  1 100 

L = NBC  + 4 
TAUL  f I , L ) = TMIDL 
100  CONTINUE 


*****  PENETRATING  CONVECTION  CLOUD  PARAMETERS  ***** 


DO  I 1 10  1*1 f IM 

IFf  DARK ( I ) . OR . CLEAR  < I ) ) GOTO  1 1 t 0 

NAC  “ CLOUD ( I , NLA YP3  t + DELTA 

IF  < NAC . LT.  U GOTO  1110 

L = NAC  ■*  3 

DO  ISO  N=  1 , 4 

TAUL  < I t L ) = TPENE(L> 

L “ L-  1 
180  CONTINUE 
1 1 0 CONTINUE 


RAYLEIGH  SCATTERING  AND  CLEAR  ATMOSPHERE  REFLECTIVITY 


DO  1120  1=1 , IM 

IFf  DARK  f I ) .OR.  CLOUDY  ( I J ) GOTO  1120 
RBRAY  = .433/(1.0  * 6.43*COSZfIH 

RCLEARfl)  = RBRAY  * (1.0  - RBRAY) *.907*R SURF (I ) 

£ / ( T . 0 - . 093  * RSURF  f I ) ) 

t?0  CONTINUE 


*****  ABSORPTION  BY  WATER  VAPOR  IN  CLEAR  ATMOSPHERE 
* * * * * 


DO  1130  1 = 1 * I M 

I F ( DARKd)  .OR.  CLOUDY  ( I > ) GOTO  1130 


SSOLAR 1 192 
SS0LAR1 193 
SSOLAR 1 194 
SSOLAR 1 J95 
SS0LAR1 196 
SSOLAR 1 197 
SSOLAR 1 193 
SSOLAR 1 199 
SSOLAR 1200 
SSOLAR 1201 
SSOLAR 1202 
SSOLAR 1 203 
SSOLAR 1 204 
SSOLAR  f 205 
SSOLAR 1206 
SSOLAR 1207 
SSOLAR 1 20B 
SSOLAR I 209 
SSOLAR 1210 
SSOLAR 1 2 1 1 
SSOLAR 121  2 
SSOLAR 1213 
SSOLAR 1214 
SSOLAR 1215 
SSOLAR 1216 
SSOLAR 1217 
SSOLAR 12 18 
SSOLAR  T 219 
SSOLAR 1220 
SSOLAR 1 221 
SSOLAR 1 222 
SSOLAR 1223 
SSOLAR 1 224 
SSOLAR 1225 
SSOLAR1226 
SSOLAR 1 227 
SSOLAR 1228 
SSOLAR 1 229 
SSOLAR 1 230 
SSOLAR 1 23 1 
SSOLAR 1232 
SSOLAR 1 233 
SS0LAR1 234 
SSOLAR 1 235 
SSOLAR 1236 
S50LAR1 237 
SSOLAR 1238 
SSOLAR 1239 
SSOLAR  t 240 
SSOLAR  t 24 1 
SSOLAR 1 242 
SSOLAR 1 243 
SSOLAR  t 244 
SSOLAR 1245 
SSOLAR 1 246 
SSOLAR1247 
SS0LAR1 248 
SSOLAR 1249 
SSOLAR 1 250 
SSOLAR 1251 
SSOLAR 1 252 
SSOLAR 1253 
SS0LAR1 254 
SS0LAR1 255 
SSOLAR 1 255 
SSOLAR 1257 
SSOLAR I25B 
SSOLAR 1259 
SSOLAR 1260 
SSOL A R 1 26 1 
SSOLAR 1 262 


ORlGiMAL  PASS  Is 
OF  POOR  QUALITY 


00459 

00460 

00461 

00462 

00463 

00464 

00465 

00466 

00467 

00468 

00469 

00470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 
0047B 

00479 

00480 

00481 
004S2 

00483 

00484 

00485 

00486 
00467 
0048B 

00489 

0043C 

00491 

00492 

00493 

00494 

00495 

00496 

00497 

00498 

00499 

00500 
005  01 

00502 

00503 

00504 

00505 


00506 

00507 

00508 

00509 

00510 
0051  1 


WfD  = SWALE  f I . 1 ) *C0SMAG«  I > 

TEMP  T f I , NLA Y 1 = AWATER(W<IJJ 

T0PAB5U)  = TEMP  1 < I rNLAY  j 
1 130  CONTINUE 
C 

DO  ! 140  1 = 1 ,IM 

I F ( DARK  ( I ) , OR  . CLOUDVm  > GOTO  1140 

LM 1 = NLA Y 
DO  210  L = 1 , NLA Y 

LPt  = L x t 

Will  = SWALE  (I  , LP 1 J *COSMAG ( I ) 

TEMP  t ( I f L)  = AWATE  R (Wf  t ) ) 

ALII .11  = TEMPI(I'L)  - TEMP 1<I, LM 1 ) 

LM1  = L 

210  CONTINUE 
1 140  CONTINUE 
C 

DO  1150  t = 1 , IM 

IF*  DARK  ( I ) . OR  . CLOUDVm  > GOTO  1150 

TRANS  = 1,0  - TEMP  1 < I f NLAY) 

RF  = TRANS^RSURF  f t ) 

AL  f I ,NLAYp 1 } = (TRANS  - O.G47J*M.O  - RSURF(J)) 

C 

IF  (RF.LT.0.001)  GOTO  1150 
C 

WW(I)  = W t I J * « T . 0 + 1 * 66 /COSMAG ( I ) ) 

LM  t = NLA Y 
DG  220  L= f , NLAY 
M = NLA YP 1 - L 

W1I)  * WWdJ  - 1 ,66*SWALE  { I J) 

TEMPHI.L)  = A WATER  ( W ( I J ) 

AUI.M)  = AL(IJ)  ♦ ( TEMP  1 ( I , L } "TEMP  1(1,  LM  1 ) > * RF 
LMi  = L 

220  CONTINUE 
C 

T 150  CONTINUE 
C 

DO  1160  1 = 1 , IM 

IF1  DARK ( I > .OR,  CLOUDYlli  ) GOTO  1160 
ACLEARfl)  = FCLEARU  ) ^SCOSZin 
1160  CONTINUE 
C 

DO  240  L = 1 , NLA  Y 
DO  1 170  1=1 rIM 

IFf  DARK ( I J .OR.  CLOUDY  f l J ) GOTO  1170 
AS(I.L)  = ACL EAR { I ) *AL ( 1 * L ) 

1 170  CONTINUE 
240  CONTINUE 
C 

DO  1 180  1= ! . IM 

IF<  DARK ( I > .OR.  CLOUDY  < I ) ) GOTO  1180 

SG(I)  = FCLEAR(I)  * (FSCATU  )*(  1 .0  - RCLEARUM 
S * SCOSZf  IMAU  J .NLAYP1)  ) 

RMEANfl)  = FCLEAR  ( I J *RCL£AR ( I > 

TOTASS(I)  = TOTABS(I)  * A CL EAR ( I ) * TOPABS ( I ) 

1180  CONTINUE 


C 

c * * * * * * * * * * 

C *****  ABSORPTION  BY  WATER  VAPOR  IN  CLOUDY  ATMOSPHERE  * * * * * 

C *■*  + **  * * Hr  * * 

C 

c 


DO  1190  1 = 1 ,IM 

IFf  DARK ( I ) .OR . CLEARfI)  ) GOTO  1190 
NTOPfl)  = MINOfNTOPTfT ) ,NTOPF( I) ) 

1 190  CONTINUE 
C 

CALL  CLOUDS  <riW,NLAY.1> 

C 

DO  1200  1=1 ,IM 


SSOLAP 1263 
SS0LAR1264 
SSOLAR 1 265 
SSOLART256 
SSOLAR 1267 
SSOLAR 1 268 
SSOLAR 1269 
SSOLAR 1270 
SSOLAR 1271 
SSOLAR 1 27  2 
SSOLAR 1273 
SSOLAR 1274 
SSOLAR 1 275 
SSOLAR 1 276 
SSOLAR1 277 
SSOLAR  T 27B 
SSOLAR 1 279 
SSOLAR 1280 
SSOLAR 1 28 1 
SSOLAR 1282 
SSOLAR 1 283 
SSOLAR 1284 
SSOLAR 1285 
SSOLAR 1286 
SSOLAR 1 287 
SSOLAR 1288 
SSOLAR 1289 
SSOLAR 1290 
SSOLAR 1291 
SSOLAR 1292 
SSOLAR 1293 
SSOLAR 1294 
SSOLAR1 295 
SSOLAR 1 296 
SSOLAR 1297 
SSOLAR 1298 
SSOLAR 1 299 
SSOLAR 1 300 
5SOLA  R 1 30  T 
SSOLAR 1302 
SSOLAR 1303 
SSOLAR 1304 
SSOLAR 1305 
SSOLAR 1306 
SSOLAR 1307 
SSOLAR 1 308 
SSOLAR 1309 
SSOLAR 1310 
SSOLAR 1 3 1 1 
SSOLAR 13 12 
SSOLAR 1313 
SSOLAR 13 14 
SSOLAR 1315 
SSOLAR 1 3 1 6 
SSOLAR  1317 
SSOLAR 1318 
SSOLAR 13 19 
SSOLAR 1 320 
SSOLAR 1321 
SSOLAR 1322 
SSOLAR 1 323 
SSOLAR  1 324 
SSOLAR 1325 
SSOLAR 1 326 
SSOLAR 1 327 
SSOLAR 1328 
SSOLAR 1329 
SSOLAR 1330 
SSOLAR1331 
SSOLAR 1 332 
SSOLAR 1 333 


o o 

y gf 

o 5 

o 5s 

7Q  F 


1 1 


005  t2 
005  1 3 
005  14 

00515 
005  16 
005  17 
005  1 S 

00519 

00520 

0052.1 

00522 

00523 

00524 

00525 

00526 

00527 
00523 

00529 

00530 

00531 

00532 

00533 

00534 

00535 

00536 

00537 
005  33 

00539 

00540 

00541 

00542 

00543 

00544 

00545 

00546 

00547 
00543 

00549 

00550 
0055  1 

00552 

00553 

00554 

00555 

00556 

00557 

00558 

00559 

00560 

00561 

00562 
00553 


IF*  DARK* I ) .OH,  CLEARfI)  ) GOTO  1200 
ACLOUDU  J = FCLOUD*  I ) *SCOSZC  X 1 

1200  continue 

DO  260  L = 1 , NLA Y 
DO  1210  1-1  , IM 

I F * DARK(I)  .OR.  CLEAR ( I ) > GOTO  1210 

ASU.L)  = A5fI,L)  + AC  LOUD  ( I ) * A L ( I , L ) 

1210  CONTINUE 
260  CONTINUE 

* 

DO  1220  1=1,  IM 

IF*  DARK ( I ) -OR.  CLEAR ( I ) } GOTO  1220 

SGtlJ  = SGI  I 1 - F CLOUD i I ) * t F SCAT f I ) * C 1 . 0 - RCLOUD(I)) 

5 - 5C0SZII)  * AL  * 1 f NLAYP 1 ) > 

RMEANfU  * RMEANIJ)  + FClOUD  ( I > * RCLQUD  ( I > 

TOTABSfl)  = TOTABS(I)  + ACLOUD * I ) * TOP ABS * I > 

1220  CONTINUE 

DO  1225  1 = 1,  I M 

IF*  DARK ( I ) .OR.  CLEAR  f I > > GOTO  1225 

FCLDflJ  = FCLOUDri)  . GT . 0.99 

1225  CONTINUE 

DO  1230  1=1, IM 

I F ( DARK  * I J .OR,  CLEAR* I J ) GOTO  1230 
IF<  FCLD  ( I ) ) GOTO  1230 

NTOP * I > = NTOPTU J 

FCLOUD  t I ) = 1.0  - FCLOUD* D 

1230  CONTINUE 

DO  270  L-1 , NLA V 
DO  1240  1=1, I M 

IF*  DARK ( I ) ,0R.  CLEAR  f I J > GOTO  1240 

I F ( FCLD  f I J ) GOTO  1240 

IF*  CLOUD  * I , L J .LT,  0,99  ) T AUL < I , L ) =0 . 0 

1240  CONTINUE 
270  CONTINUE 

CALL  CLOUDS  ( IH, NLA V , 2) 

DO  1250  1=1 pIM 

IF*  DARK  * I I .OR.  CL  EAR ( I ) ) GOTO  1250 

IF*  FCLD  f I ) ) GOTO  1250 

ACLOUDU)  = FCLOUD  f I)  *5C05Z1Ii 
1250  CONTINUE 

DO  230  L = 1 * NLA V 
DO  1260  1 = 1 pIM 

IF*  DARK* I ) .OR.  CLEAR  * I 7 ) GOTO  1260 

7FC  FCLD  * I ) 1 GOTO  1260 

AS(I,L)  = ASfl.LJ  + ACLQUPdWU  I ,L) 

1260  CONTINUE 
230  CONTINUE 

OO  1270  1 = 1 rIM 

IF*  DARK  f I ) , OR . CLEAR  * I } ) GOTO  1270 

IF*  FCLD  * I > } GOTO  1270 

SGfl)  = SG*I)  + FCLOUD  f I ) * { FSCAT  * I ) **  I . 0 - RCLOUD f I ) ) 

S + SCOSZ  * I J *AL  * I , NLA VP  1 ) ) 

RWEAN(I)  - RMEANtn  + FCLOUD * I } *RCLQUD < I ) 

TOTABSfl)  = TOTABSfl)  + ACLOUD  * I ) * TOP A 35  ( I ) 

1270  CONTINUE 


C 

C *♦**♦•♦**********♦**#*** ***#*  + *^** ****,*****..***,****♦  »**.*****., 

c - * * * *■ 

C ******  EFFECTIVE  CLEAR  SKV  RAYLEIGH  ALBEDO  FOR  OZONE  ABSORPTION 
C *■*  + *•* 

c 


SS0LAR1334 
SSOLAR 1335 
5S0LAR1336 
SSOLAR 1337 
SSOLAR 1333 
SSOLAR 1339 
SSOLAR 1340 
SS0LAR134I 
SSOLAR 1342 
SSOLAR 1343 
SSOLAR 1344 
SSOLAR 1345 
SSOLAR 1346 
SSOLAR 1347 
SSOLAR 134B 
SSOLAR 1349 
SSOLAR 1 35  0 
SSOLAR 1 35 1 
SSOLAR  1 352 
SSOLAR 13 S3 
SSOLAR 1 354 
SSOLAR 1 355 
SSOLAR 1356 
SSOLAR  t 357 
SSOLAR 1353 
SSOLAR 1359 
SSOLAR 1 360 
SSOLAR 1361 
SSOLAR 1 362 
SSOLAR 1363 
SSOLAR 1364 
SSOLAR 1365 
SSOLAR 1 366 
SSOLAR 1 367 
SSOLAR 1368 
SSOLAR 1369 
SSOLAR1370 
SSOLAR 1371 
SSOLAR 1372 
SSOLAR 1373 
SSOLAR 1374 
SSOLAR 1375 
SSOLAR 1376 
SSOLAR 1377 
SSOLAR 1 378 
SSOLAR 1379 
SSOLAR  t 380 
SSOLAR 13B 1 
S5DL  1I3Q2 
SSm  ; 383 
6“  LMK13S4 
SSUL AR 1335 
SSOLAR 1386 
SSOLAR 13B7 
SSOLAR 13SB 
SSOLAR 1 339 
5SOLAR1390 
SSOLAR 1 39 1 
SSOLAR 1392 
SSOLAR 1393 
SSOLAR 1 394 
5SOLAR1395 
SSOLAR 1 396 
SSOLAR 1397 
**•**«  SSOLAR  1 393 
+ + **  + SSOLA  R 1 39S 
**  -**SSQLARMOO 
*****S50LAPl4ai 
^ r r ■*'  * SSOLAR  1 4 02 
SSOLAR 1403 
SSOLAR 1 404 


CD 

£3 

& 


00564 


DO  1280  1=1,  IM 
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00565 

00566 

00567 

00568 


005  65 
00570 


00571 

00572 

00573 

00574 

00575 

00576 

00577 
0057S 

00579 

00580 
O05B1 
0Q5B2 

00583 

00584 

00585 


00586 

00587 

00588 

005B3 
00590 
0059  1 

00592 

00593 

00594 

00595 

00596 

00597 

0059B 

00599 

STATEMENT 

--LABEL-- 

1000 

10000 


I F < DARK ( I ) .OR,  , NOT , CLEAR ( I ) ) GOTO  1280  S50LAR1405 

RBROZ  = 0.218G/H  .0*O.B16*COSZ<I  » ) S50LAR1406 

RMEAN1I)  = RBROZ  * (1,0  - RBROZ  > * . 856 *RSURF  (I)  SSOLAR1407 

S / (1.0  - . 1 44  *R5URF f I J)  SSOLAR1408 

1280  CONTINUE  SSOLAR1409 

C SSOLAR 1410 

C ♦ * • *******•**..>..»**.*<,***♦***.****»****-***♦*****...►*.****  SS0LAR141  1 

C *****  *****  SSOL Afl 1 4 1 2 

C *****  ROUTINE  PROVIDES  OZONE  CM  ABOVE  EACH  LAYER  EDGE  *****  550LART413 

C *****  *****  SS0LAR1414 

C r*. »************-.**..**************«.»***♦*********. .-.*****♦**  S50LAR 1415 

C SSOLAR 1416 

NLA YO 1 = NLAYOZ  + 1 SS0LAR1417 

CALL  0Z0NE2  f I M , NLA YO 1 , XDA Y , K L AT ) SSOLAR 1 4 t S 

C SSOLAR 1419 

C **  * + -.*  + . + »*»»  + ***  + ****»*».**  + + + «»*****»»**'.»»**  ******************  ****  SSOLAR  1420 
C ***  • * *SSOLAR 142 1 

C ***  COMBINED  UV+VIS  OZONE  ABSORPTION  OF  INCOMING  SOLAR  RADIATION  * * * SSOLAR 1422 
C ***  ** *5SOLAR1423 

C +<++  * m + * + w m * w + *****  *■+  + + + + -m  »*  + *+*+  + + + + * + + -m*  * m»  + +*■++■+  + ++++  + + + **  + +■*•  + + + * SSOLAR  1424 
c SSOLAR  14.25 

DO  1 290  I s t < I M SSOLAR 14  26 

I F ( DARK ( I > } GOTO  1290  SSOLAR1427 

C SSOLAR 1428 

wen  = ozaleu  f n *cosmag<  n ssolar  1429 

TEMP  1 < I .NLAYOZ)  = AOZQNElWfm  SSOLAR  1430 

TOTABS ( I > = TOTABStn  * TEMP U 1 t NL A YOZ ) * SCOSZ f I ) + SG ( I)  5SQLAR1431 

C SSOL A R 1 43  2 

LM1  ^ NLAYOZ  SSOLAR 1 4 33 

DO  310  L = 1 , NLAYOZ  5S0LAR1434 

LPI  = L* 1 SSOLAR 1435 

Wd>  » OZALE  CX,  LP  1 ) *COSMAG  ( l ) SSOLAR  T436 

TEMPI  U,L>  =■  AOZONE  ( W ( I ) ) SS0LAR1437 

AS  ( I , L ) - AS  ( I , L ) * (TEMPKI.L)  - TEMP  1(1*  LM  1 ) ) * SCOSZ  f I > SSOLAR1438 

LM1  = L SSOLAR 1439 

310  CONTINUE  SSOLAR1440 

C SSOLAR 1441 

wwm  = win  * t .so^wf  n /cosmagci  > ssolari442 

c SSOLAR 1443 

1290  CONTINUE  5S0LAR1444 

C SS0LAR1445 

c *****-♦+  »***++***+***++**+**  *****  + » + .|.**#*  + **.>~»*  + ******  ***+».  r*r»  *****SSOLART446 
C **•  * *SSOL A R 1 447 

C ***  COMBINED  UV*VIS  OZONE  ABSORPTION  OF  REFLECTED  SOLAR  RADIATION  **SS0LAR144S 

C ***  **S50LAR1449 

C + + * + + ♦*  + * *»»*,.♦  ******  ****** **********************  *******  ******  ********SSOLAR1450 
C S50LAR1451 

DO  1300  1 = 1. IM  SSOLAR 1 45  2 

I F ( DARK ( 1)  ) GOTO  1300  SSOLAR1453 

C SSOLAR 1 454 

RF  = SCO 52 ( I ) *RMEAN ( I J 5SOLAR1455 

C SSOLAR 1 456 

LM  1 = NLAYOZ  55DLAR1457 

DO  320  L=J. NLAYOZ  SSOLARt45a 

M = NLA YO 1 - L SSOLAR t459 

WUJ  = WWfl)  - 1 .90*0ZALEfI  , M)  SSOLAR14BO 

TEMPI <1 .U  = AOZONE (W( I ) ) SSOLAR 1461 

A 5 { I , M ) ■ ~ AS(I.M)  * (TGMPKI.L)  - TEMP  1 f I t LM  1 ) ) * RF  SSOLAR1462 

LM1  = L SSOLAR 1463 

320  CONTINUE  SSOLAR1464 

C SSOLAR 1 465 

1300  CONTINUE  SS0LAR1466 

C SSOLAR 1467 

RETURN  SSOLAR 1 4 6S 

END  SSOLAR  t 469 


O S 

o > 

;o  r 

tO  $ 

c 5 

r* 


LABEL  MAP 

DEFINED REFERENCES 

346  342 

33B 


S0LAR1  12 


4 


-^h:  b- 


t 005 

35  1 

347 

34B 

1010 

355 

352 

1020 

369 

362 

363 

1030 

375 

371 

372 

1040 

387 

376 

377 

1050 

394 

389 

383 

1060 

412 

395 

396 

1069 

4J6 

413 

1070 

420 

417 

4J8 

1 0B0 

426 

422 

423 

1090 

434 

428 

429 

431 

1100 

441 

435 

436 

438 

1110 

451 

442 

443 

44  S 

1 1 20 

456 

452 

453 

1 130 

462 

457 

458 

1140 

473 

463 

464 

1 ISO 

489 

474 

475 

479 

1160 

493 

490 

491 

1 170 

4sa 

495 

496 

1 180 

505 

500 

5 Q 1 

1 190 

509 

506 

507 

2 S 

120 

386 

379 

1200 

5 14 

5 1 T 

512 

1210 

519 

5 16 

5 17 

1220 

526 

521 

522 

Q $2 

1226 

530 

527 

528 

O 

1230 

536 

53  J 

532 

533 

pu 

1240 

542 

538 

539 

540 

1250 

543 

545 

546 

547 

rO 

1260 

555 

551 

552 

553 

c 

1270 

563 

557 

558 

559 

1 280 

569 

564 

565 

r m 

1290 

585 

57  t 

572 

130 

407 

400 

—4  «*=* 

1300 

597 

5BS 

587 

140 

411 

397 

399 

404  406  408 

150 

427 

421 

180 

450 

447 

1 

210 

472 

466 

220 

488 

482 

240 

499 

494 

260 

520 

5 15 

270 

543 

537 

280 

556 

550 

310 

583 

577 

320 

596 

590 

999 

350 

357 

VARIABLE  MAP 


NAME- 

— -BLOCK 

--type  — - 

- "CLASS 

-- "REFERENCES 

A = 

ARGLIST, 

C=CTRL 

OF  DO,  1 

:=data  init,  reread r s-store,  w=write 

ACLEAR 

DSOLAR 

REAL 

ARRAY 

325 

492/S 

497 

604 

ACLOUD 

□SOLAR 

REAL 

ARRAY 

326 

513/S 

513 

525 

548/S 

554 

562 

ADATE 

CCNTRL 

CHAR*8 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

206 

AL 

RADCOM 

REAL 

ARRAY 

238 

470/S 

478  /S 

486/ S 

4B5 

497 

502  518  523  554 

550 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

AS 

RADCOM 

REAL 

ARRAY 

283 

349/S 

497/S 

518/S 

5 18 

554/S 

554  58T/S  5S1  594/S 

594 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

4 

1 7 

BETA 

RCNTRL 

REAL 

SIMPLE 

147 

CIO 

CNTRLP 

REAL 

SIMPLE 

253 

C100 

CNTRLP 

REAL 

SIMPLE 

254 

C40 

CNTRLP 

REAL 

SIMPLE 

255 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

185 

CC 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

cco 

CCNTRL 

CHAR*  8 

SIMPLE 

2 

14 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

4 

5 

6 

7 

8 9 10  11 

12 

CCSP06 

CCNTRL 

CHARTS 

SIMPLE 

1 o 
7 

20 

CCSP07 

CCNTRL 

CHAR*B 

SIMPLE 

8 

21 

CO 

o 

c* 

% 

H-* 


CO 


CC3PQ8 

CCNTRL 

CHARTS 

SIMPLE 

9 

22 

CDATE 

RADCOM 

REAL 

array 

307 

CDFR 

CNTRLP 

REAL 

SIMPLE 

241 

CDXL 

CNTRLP 

REAL 

SIMPLE 

242 

CD  XO 

CNTRLP 

nEAL 

SIMPLE 

243 

CLEAR 

DSOLAR 

LOGICAL 

ARRAY 

332 

335 

414/S 

522 

526 

532 

CLH 

CNTRLP 

REAL 

SIMPLE 

244 

CLOUD 

RADCOM 

REAL 

ARRAY 

289 

398 

425 

CLOUDY 

DSOLAR 

LOGICAL 

ARRAY 

333 

335 

4 15/S 

CNTRLP 

REAL 

UNKNOWN 

241 

242 

243 

252 

253 

254 

263 

264 

265 

274 

275 

276 

COE 

CNTRLP 

REAL 

ARRAY 

245 

COEF  ■ 

CNTRLP 

REAL 

SIMPLE 

246 

COEFS 

CNTRLP 

REAL 

SIMPLE 

247 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

208 

CON2 

RDPARM 

REAL 

SIMPLE 

209 

CON2DT 

RDPARM 

REAL 

SIMPLE 

210 

COM3 

RDPARM 

real 

SIMPLE 

21  1 

CON3DT 

RDPARM 

REAL 

SIMPLE 

212 

C0N4 

RDPARM 

REAL 

SIMPLE 

213 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

214 

CONS 

RDPARM 

REAL 

SIMPLE 

215 

COSD 

RCNTRL 

REAL 

SIMPLE 

148 

353 

COSL 

RDPARM 

REAL 

ARRAY 

216 

354 

COSLON 

RDPARM 

REAL 

ARRAY 

217 

353 

COSMAG 

DSOLAR 

REAL 

ARRAY 

317 

366/S 

459 

COSFtOT 

CNTRLP 

REAL 

SIMPLE 

248 

353 

COSZ 

RADCOM 

REAL 

ARRAY 

309 

354/S 

353 

CP 

RCNTRL 

REAL 

SIMPLE 

149 

CPD2 

RDPARM 

REAL 

SIMPLE 

218 

CPP 

CNTRLP 

REAL 

SIMPLE 

249 

CQS 

CCNTRL 

real 

ARRAY 

12 

COU 

CCNTHL 

REAL 

ARRAY 

13 

CTID 

CNTRLP 

REAL 

SIMPLE 

250 

CUMD'AY 

CNTRLP 

REAL 

SIMPLE 

251 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

252 

CVQ 

RADCOM 

REAL 

ARRAY 

295 

CVT 

RADCOM 

REAL 

ARRAY 

295 

CXDE 

RADCOM 

REAL 

ARRAY 

296 

CXL 

RADCOM 

REAL 

SIMPLE 

309 

CZR 

RADCOM 

REAL 

ARRAY 

308 

DARK 

DSOLAR 

LOGICAL 

ARRAY 

331 

335 

358  /S 

429 

436 

443 

512 

517 

522 

587 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

150 

DEC 

RCNTRL 

real 

SIMPLE 

151 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

152 

DELTA 

CNTRLP 

REAL 

SIMPLE 

256 

430 

437 

OIST 

RCNTRL 

REAL 

SIMPLE 

153 

DLAT 

RCNTRL 

REAL 

SIMPLE 

154 

DLON 

RCNTRL 

REAL 

SIMPLE 

155 

DSIG 

RDPARM 

REAL 

ARRAY 

239 

D SOLAR 

REAL 

UNKNOWN 

315 

316 

317 

326 

327 

328 

DT 

RCNTRL 

REAL 

SIMPLE 

156 

DTC3 

CNTRLP 

REAL 

simple 

257 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

258 

DXP 

RDPARM 

REAL 

ARRAY 

219 

DXYP 

RDPARM 

REAL 

ARRAY 

220 

DYP 

RDPARM 

REAL 

ARRAY 

221 

ECCN 

RCNTRL 

REAL 

SIMPLE 

157 

ED 

CNTRLP 

REAL 

SIMPLE 

259 

EDNM 

CNTRLP 

REAL 

SIMPLE 

260 

EPS 

RCNTRL 

REAL 

SIMPLE 

1B3 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

184 

4 IS 
533 

430 

453 

244 

255 

266 

277 


4GB 

366 


359 

453 

528 


444 


3 1 8 
3 29 


423 

545 

437 

458 

245 

256 

267 

273 


480 

367 


263 

453 

532 


3 19 
330 


t— 1 
4>* 


429 

436 

a 43 

552 

558 

565 

444 

541 

464 

475 

491 

246 

247 

24  a 

257 

258 

259 

268 

269 

270 

279 

280 

281 

573  579  584 

454  566 


372  377  389 
464  475  491 
539  546  552 


320  321  322 

33 1 332  333 


507 

5 1 2 

517 

496 

501 

24S 

250 

251 

260 

261 

262 

271 

272 

273 

396  418  423 
496  501  507 
558  565  572 


3 23  324  325 

334 
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’.S  ' 


EVAP 
F IDT 
F2DT 
FC 

FOLD 

fclear 
F CLOUD 

FCOEF 

FCORLS 

FILTER 

FK 

FMU 

FROST 

FSCAT 

FWET 

GAM 

GAMP AC 

GNU1 

GWU2 

GRAV 

GSTAR 

GTOPO 

H IDT 

H2DT 

HACOS 

HEAT  I 

HEATW 

HH 

HHE 

HHS 

NICE 

I 


IC 

ICO 

ICE 

ICNTRL 


ICSPS3 

ICSP55 


RADCOM 
RD  FARM 
RDPARM 

DSOLAR 

DSOLAR 

DSOLAR 

CNTRLP 

RDPARM 

LDPARM 

RADCOM 

CNTRLP 

RADCOM 

DSOLAR 

CNTRLP 

RADCOM 

CNTRLP 

RCNTRL 

RCNTRL 

RCNTRL 

CNTRLP 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RADCOM 

RADCOM 

RADCOM 

CNTRLP 


ICNTRL 

ICNTRL 

RADCOM 


ICNTRL 

ICNTRL 


REAL 

REAL 

REAL 

REAL 

logical 

HEAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

R£*L 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 


simple 

SIMPLE 

SIMPLE 


30a 

223 

224 


INTEGER 

INTEGER 

LOGICAL 

INTEGER 


INTEGER 

INTEGER 


SIMPLE 

ARRAY 

ARRAY 

401/s 

334 

323 

402 
335 
39  1/5 

529/S 

403/S 

533 
4 10/S 

540 
4 1 4 

547 
4 15 

553 

492 

559 

502 

503 

ARRAY 

322 

535/S 

390/5 

535 

40  1 
548 

402/S 

560 

403 

561 

4 19 

419/S 

513 

523 

524 

529 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 
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SIMPLE 

XK 

RADCOM 

REAL 

ARRAY 

XLABEL 

CCNTRL 

CHARTS 

ARRAY 

XLAT 

REAL 

SIMPLE 

XX 

REAL 

SIMPLE 

ZLMCO 

CNTRLP 

REAL 

SIMPLE 

5SS 

174 

175 
3 10 

233 
289 
288 
2S8 

271 
230 
240 

176 

177 

234 

235 

272 
1 00 
3 13 

273 

274 
I 

178 
3 1 0 
30  1 
202 
292 
202 

275 

276 

277 

301 
297 
297 
299 

302 
321 
470 
594 
237 
237 

236 

237 
273 
286 
28E 

303 
279 


345/S  502/S  523/S  523 


560/S 


560 


575 


332 

370 


354 

354 

353 

353 

125 

314 


- *> 

M f ■' 

Ki'~ 


205 


374/S 

3S3/S 

384/S 

384 

459 

468 

484 

424/S 

425/S 

433/S 

440/S 

448/5 

54T/S 

425 

350/S 

373/S 

374 

3B1/5 

382 

382 

460/S 

481 

469/S 

470 

47S 

485/S 

486 

486 

574/S 

575 

580/5 

581 

581 

593 

594 


382 

433 

370 


303 

440 

301 

300 

481/5 

504 

525 

562 

3 16 

365/S 

504/5 

504 

525/S 

307 

302 

44S 

47G/S 
1 79 

477 

478 

10 

23 

324 

343/S 

382/S 

383 

384 

485 

573/5 

574 

579/S 

580 

308 

308 

233 

327 

344/S 

480/S 

484 

584/S 

336 

336 

336 

336 

337 

337 

280 

570 

304 

1 1 

24 

1 

570 

393/S 

2B1 

399 

400 

401 

525 

5S2/S 

562 

575/S 

575 

459/S 

584 

460 

584 

468/S 

592/S 

469 

593 

480 

592 

337 

337 

337 

337 

337 

484 


337 
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PROCEDURE  MAP  ° 

- -NAME TYPE CLASS- REFERENCES  D = STMT  FN  DEF  r A = ARCL  I ST 


amak: 

REAL 

INTRINSIC 

40  1 

AOZONE 

real 

STAT  F UNO 

337/S 

574 

580 

593 

AWATER 

REAL 

STAT  FUNC 

336/5 

460 

469 

485 

CLOUDS 

subroutine 

510 

544 

MINO 

INTEGER 

INTRINSIC 

5QB 

OZONE  2 

SUBROUTINE 

570 

SORT 

REAL 

INTRINSIC 

366 

370 

382 

: 

? 
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I 

I 


0000  T 
00002 

00003 

00004 


00005 


00006 


00007 


□ ooos 


00005 
000  1 0 
0001  1 
00012 
00013 
000  1 4 

00015 

00016 
00017 

000  i 8 

00013 

00020 

00021 

00022 

00023 

00024 

00025 
000  26 

00027 

00028 
00023 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 


00039 

00040 

00041 

00042 

00043 

00044 


C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


SUBROUTINE  STRATM  ( T 1 , T2 , I DA VH . I LATH  ) SSTRATM  2 

DIMENSION  TD AY (37 ,21  . TJAN  ( 19,2)  , TAPRC 1 9,2)  , TJUL < 19.2)  * TOCT t 19,2)  5STHATM  3 
DATA  IOLO/O/  SSTRATM  4 

DATA  T JAN/  269.00,  269.00,  268.00,  266,00,  265.00,  263.00,  262 . 00 , S5TRA TM  5 

- 261.00,  260.00,  260.00,  250.00,  250,00,  250.00,  250.00,  250.00,  SSTRATM  6 

* 253.00,  253.00,  253.00,  253.00,  242.30,  242.50,  242.50,  242. 50t  SSTRATM  7 

* 242,50,  242.00,  240,50,  238,50,  237,00,  235.00,  232.00,  230.00,  SSTRATM  8 

* 228.00,  226.00,  224.50,  223.00,  222.50,  222.50,  222.50/  SSTRATM  9 

DATA  TAPR/  270.00,  270.00,  270.00,  270.00,  270.00,  270.00,  270 . 00 , SSTRA TM  10 

* 270.00,  270.00,  270.00.  267.00,  264.00,  263,00,  262.00,  260,00.  SSTRATM  11 

* 259,00,  257.00,  256.00,  255.00,  246.00,  246,00,  246.00,  246.00,  SSTRATM  12 

* 246.50,  246.50,  246.50,  246.00,  245.50,  245.00,  245.00,  245.00,  SSTRATM  13 

* 244.00,  243.50,  243.00,  242,50,  242.00,  242.00,  242,00/  SSTRATM  14 

DATA  TJUL/  267.00,  266.00,  265.00,  265.00,  265.00,  270.00,  272 . 00 , SSTRATM  15 

* 273.00,  275.00,  277.00,  277.00,  230.00,  280.00,  280.00,  280.00.  SSTRATM  16 

* 280.00,  280.00,  280.00,  280.00,  242.00,  242.00,  242.00,  242.00,  SSTRATM  17 

* 242.50,  243.00,  244.00.  245.50,  247.50,  249.00.  251.00,  253.00,  SSTRATM  18 

* 255.00,  256.00,  257,50,  258.00,  259.00,  259.50,  260,00/  SSTRATM  19 

DATA  TOCT/  267.00,  266.00,  265.00,  263.00,  263.00,  .262.00,  260 . 00 , SSTRATM  20 

* 258.00,  255,00,  253.00,  252.00,  247.00,  245.00,  243.00,  240,00,  SSTRATM  21 

* 236.00.  234.00,  232.00.  231.00,  247.00,  247.00,  247.00,  247.00.  SSTRATM  22 

* 245.00,  243.00,  241.00,  239.00,  237.00,  235.50,  233.00,  231.00,  SSTRATM  23 

* 229.00,  227.50,  226,00.  224.00,  223.00.  222.00,  222,00/  SSTRATM  24 

***  INTRODUCE  CLIMATOLOGICAL  TEMPERATURES  IN  UPPER  STMOSPHERE  SSTRATM  25 


DATA 

* I,.  ILATt  JDAYH,  TOA  Y / 77  *200000000/ 

CALL  ERR5ET1207 ,256,- ! , t ,0,209) 

IF  ( IDA YH . EQ , I OLD ) GO  TO  113 
TIME  INTERPOLATION  NORTHERN  HEMISPHERE 
' - * I=19=EQUAT0R  , I=37=N0RTH  POLE 

IF  ( IDAYH .GE .0 . AND . IDAYH.LE . 15)  GO  TO  102 
IF  { TDAYH.GE . 15 . AND , IDAYH . LE , 106}  GO  TO  104 
IF  i IDAYH. GE. 106. AND. IDAYH, LE, 197)  GO  TO  106 
IF  < IDAYH. GE. 197 .AND. IDAYH. LE . 289)  GO  TO  108 
IF  MDAYH  .GE.  289  .AND,  IDAYH  , LE  - 36G)  GO  TO  110 

102  DO  103  1=19,37 

n = r-ja 

DD  103  J * 1,2 

103  TDAYC I , d } = TOCT 1 I t . d > + f IDAYH A77 ) * ( T JAN ( I 1 r d ) - TOCT ( 1 1 . J ) ) /9  2 
GO  TO  112 

104  DO  105  1=19,37 
I 1 = 1-18 

DO  105  J = 1,2 

105  TDAY  ( I ,d) =TJAN( I 1 , J ) + < I DA  YH- 1 5 } + f TAPR  1 II  ,d)  -TJAN  ( It,  J))/9T 
GO  TO  1 1 2 

106  DO  107  1=19,37 

r t = i-ia 

DO  107  d= 1 , 2 

107  TDA  Y ( I t d) =TAPR< I 1 , d > * f I DA YH- 1 06 ) * f TJUL U 1 td) -TAPR ( I 1 , J)  > /9 l 
GO  TO  112 

108  DO  109  1=19,37 
11=1-18 

DO  109  d = 1 , 2 

109  TDAY  < I , d) =TdUL <11 , J I -M  I DA  YH  - 1 97  } M TOCT* I 1 , J> -TJUL  <11,0)1/92 
GO  TO  112 

1 TO  DO  111  1 = 19,37 

11=1-18 
DO  lit  d= 1 , 2 

1 t 1 TDAY  { r , J ) = TOCT  f I 1 , J)^  < I DA YH-289 ) M T JAN ( I 1 , J 1- TOCT  Cl  1 ,d)  ) /92 
1 12  CONTINUE 

***  TIME  INTERPOLATION  SOUTHERN  HEMISPHERE 
***  r = 1 = SOUTH  POLE,  I = 18=5  DEGREE  SOUTH 
IF  r IDAYH. LE. 183)  GO  TO  175 

114  JDAYH=IDAYH- 183 
GO  TO  tie 

115  JDA YH  = IDA YH+ 1 S3 

1 16  CONTINUE 

IF  (JDAYH. GE .0 .AND .JDAYH, LE . 15)  GO  TO  202 


SSTRATM  26 
SSTRATM  27 
SSTRATM  28 
SSTRATM  29 
SSTRATM  30 
SSTRATM  31 
SSTRATM  32 
SSTRATM  33 
SSTRATM  34 
SSTRATM  35 
SSTRATM  36 
SSTRATM  37 
SSTRATM  38 
SSTRATM  39 
SSTRATM  40 
SSTRATM  41 
SSTRATM  42 
SSTRATM  43 
SSTRATM  44 
5STRATM  45 
SSTRATM  46 
SSTRATM  47 
SSTRATM  48 
SSTRATM  49 
SSTRATM  50 
SSTRATM  51 
SSTRATM  52 
SSTRATM  53 
5STRATM  54 
SSTRATM  55 
SSTRATM  56 
S5TRATM  57 
SSTRATM  58 
SSTRATM  59 
SSTRATM  60 
SSTRATM  61 
SSTRATM  62 
SSTRATM  63 
SSTRATM  64 
SSTRATM  65 
SSTRATM  66 
SSTRATM  67 
SSTRATM  68 
SSTRATM  59 
SSTRATM  70 
SSTRATM  71 
SSTRATM  72 


CO 


i-* 
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OF  POOR  QUALITY 


00045 

IF  1 JDA  YH . GE . 15. AND  * JDA YH . LE ,106)  GO  TO  204 

00046 

IF  < JDAYH.GE . 1 06. AMD, JDAYH.LE . 137)  GO  TO  206 

00047 

IF  ldOAYH*GE . 137, AND, JDAYH.LE. 283)  GO  TO  20B 

00048 

IF  ( JDAYH.GE.283,AND. JOA VH , LE , 366 > GO  TO  210 

00043 

202 

DO  203  I = 1 , 18 

00050 

I 1-20-1 

0005  1 

DO  203  d=1  r2 

00052 

203 

TDAY ( I , J ) = TOCT  t I 1 , d > -M JDAYH  + 77 } * (TJAN< I 1 , J ) -TOCT  < I 1 f J) ) /92 

00053 

GO  TO  212 

00054 

204 

DO  205  1=1,18 

00055 

I 1=20-1 

00056 

DO  205  d= 1 . 2 

00057 

205 

TDAY  ( I „ J)=TdAN(I  1 , J ) + f JDA  YH-  1 5 > * ( TAPR  ( I 1 f J)  -TdAWl  It.dM/St 

00058 

GO  TO  2 t 2 

00053 

206 

DO  207  1=1,18 

00060 

I 1 =20- I 

00061 

DO  207  J=1 . 2 

00062 

207 

TDAY  < I , d) =TAFR  < I 1 , d 1 M JDA YW- t06>  * ( TJUL  t 1 1 t d ) -TAPR ( I 1 . d >1 /B 1 

00063 

GO  TO  212 

00064 

208 

DO  203  I =1 , IB 

00065 

I 1 =20-1 

00066 

DO  203  d=1 ,2 

00067 

203 

TDAY  ( I , d ) ~ T JUL  < 1 1 ,d}  + (JDAYH-  197  > * (TOCT  U 1 , d ) -TdUL  (I  1 , d)  1 /92 

00068 

GO  TO  212 

00069 

210 

DO  21 t 1=1 , 18 

00070 

11=20-1 

0007  1 

DO  21 1 d=1 .2 

00072 

211 

TDAY ( I , d ) = TOC1  [ I t , d)  -MdDAYH-283) * (TdANI  I 1 , d 1 -TOCT ( I 1 , d ) ) / 92 

00073 

212 

CONTINUE 

00074 

IOLD= IDA YH 

00075 

1 13 

CONTINUE 

00078 

I LAT= 1 . 00001 +( ILATH+301 /5 

00077 

T 1 = TDA  Y < I L AT , 1 > 

0007B 

T2=TDAY< ILAT.2) 

00073 

RETURN 

00080 

END 

SSTRATM  73 
SSTRATM  74 
SSTRATM  75 
SSTRATM  76 
SSTRATM  77 
SSTRATM  7B 
SSTRATM  73 
SSTRATM  SO 
SSTRATM  St 
SSTRATM  82 
SSTRATM  S3 
SSTRATM  S4 
SSTRATM  85 
SSTRATM  86 
SSTRATM  87 
SSTRATM  88 
SSTRATM  89 
SSTRATM  30 
SSTRATM  91 
SSTRATM  32 
SSTRATM  33 
SSTRATM  34 
SSTRATM  35 
SSTRATM  36 
S5TRATM  37 
SSTRATM  38 
SSTRATM  33 
5STRATM1 00 
SSTRATM 1 0 1 
S5TRATM1 02 
SSTRATM1 03 
SSTRATM104 
SSTRATM 1 05 
5STRATM106 
SSTRATM 1 07 
SSTRATM 1 08 


STATEMENT 

LABEL  MAP 

--LABEL-- 

-DEFINED-- 

-REFERENCES 

102 

1 4 

3 

103 

17 

14 

16 

104 

13 

10 

105 

22 

13 

21 

106 

24 

1 1 

107 

27 

24 

26 

108 

23 

12 

T 09 

32 

29 

31 

t 10 

34 

13 

t 1 1 

37 

34 

36 

1 12 

38 

is 

23  28 

33 

1 13 

75 

8 

1 14 

40 

115 

4 2 

33 

116 

43 

41 

202 

43 

44 

203 

52 

49 

51 

204 

54 

45 

205 

57 

54 

56 

206 

53 

46 

207 

62 

59 

61 

20S 

64 

47 

209 

67 

64 

66 

210 

69 

48 

21  1 

72 

69 

71 

212 

73 

53 

58  63 

68 

VARIABLE  MAP 

Fpnpti 

[ y ^ . 

* “ “L.L  ASS  — — - — “ 

--REFERENCES 

I 

INTEGER 

SIMPLE 

14 

A=ARGLI5T,  C=CTRL  OF  00.  t»DATA  INIT,  REREAD.  S=STORE+  V/ 
15  17  13  20  22  24  25  27 


= WRITE 
23 
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1 l 


a,  i-.M- , ■ , > • i 


3 2 

34 

SO 

02 

; r t 

INTEGER 

SIMPLE 

15/S 

1 7 

f 

j 

27 

30/S 

52 

52 

67 

G7 

I DA  YM 

INTEGER 

SIMPLE 

1 

a 

ILAT 

INTEGER 

SIMPLE 

t 3 

76/S 

1 7 
77 

ilath 

INTEGER 

SIMPLE 

1 

76 

I OLD 

INTEGER 

SIMPLE 

3/1 

a 

J 

INTEGER 

SIMPLE 

ts 

17 

27 

27 

37 

37 

57 

57 

67 

71 

JDAYH 

INTEGER 

SIMPLE 

40/S 

42/S 

43 

52 

5TRATM 

SUBROUTINE 

1 

1 T 1 

REAL 

SIMPLE 

1 

77/5 

j T2 

REAL 

SIMPLE 

1 

78/S 

TAPR 

REAL 

ARRAY 

2 

5/1 

} TDAY 

REAL 

ARRAY 

2 

17/S 

77 

7B 

T JAN 

REAL 

ARRAY 

2 

4/1 

T JUL 

REAL 

array 

2 

6/1 

toct 

REAL 

ARRAY 

Z 

7/1 

■i 


% 


35 

37 

49 

50 

52 

54 

55 

57 

59 

64 

65 

67 

69 

70 

72 

17 

17 

20/S 

22 

22 

22 

25  /S 

27 

27 

32 

32 

32 

35/5 

37 

37 

37 

50/S 

52 

55  / S 

57 

57 

57 

60/S 

62 

62 

62 

65 

67 

70/S 

72 

72 

72 

9 

9 

10 

10 

1 1 

1 1 

T 2 

1 2 

13 

22 

78 

27 

32 

37 

39 

40 

42 

74 

74/S 

17 

17 

17 

21 

22 

22 

22 

22 

26 

27 

27 

3 t 

32 

32 

32 

32 

36 

37 

37 

51 

52 

52 

52 

52 

56 

57 

57 

61 

62 

62 

62 

62 

66 

67 

67 

67 

72 

72 

72 

72 

44 

44 

45 

45 

46 

46 

47 

47 

48 

57 

62 

67 

72 

22 

27 

27 

57 

62 

62 

22/S 

27/S 

32/5 

37/S 

52/S 

57/S 

62/S 

67/S 

72 

17 

22 

22 

37 

52 

57 

57 

72 

27 

32 

32 

62 

67 

67 

17 

17 

32 

37 

37 

52 

52 

67 

72 

oooot 


SUBROUTINE  TIMA VG  fd> 

k-*-***»*-+*  + * + + **M*frte*»4-**K«.«r#**4**»»***#****»-»  + » + a*'**»*»*'*»«»«« 

PURPOSE 

TIME  FILTER  DIFFERENTIAL  FIELDS  USING  NEW  BASE  FIELDS  AND 
SAVED  BASED  FIELDS  FOR  LEAPFROG  STEP. 

CALLED  BY  MAIN  (COMPO)  ONLY 

USAGE 

AVERAGES  THE  4TH-0RDER  MODEL  VALUES  OVER  THREE  TIME  STEPS 
OStNJ  “ Q( N>  + NU' ( QS  f N*  )/2  - Q(N>  + Q(N-M)/2) 

WHERE  0<NU<1.  IF  NUt  = 1 -NU  AND  NU2  = NU/2,  THEN 
Q S ( N } = NU  1 * 0 ( N ) + NU2*(QS<N-n  A Q < N*  t } ) . 


ARGUMENTS 

J 


DESCRIPTION 
LATITUDE  BAND  NUMBER 


SUBPROGRAMS  NEEDED 

NAME  DESCRIPTION 

NONE 

RECORD  OF  MODIFICATIONS 

BASED  ON  OLD  VERSION  B, 


?DATE? 

05/04/83 


^PROGRAMMER? 

RAMESH 


^DESCRIPTION  OF  MODIFICATIONS'* 
THIS  PART  AND  COMMENTS 


STTMAVG 
'STIMAVG 
STIMAVG 
STIMAVG 
STIMAVG 
5TIMAVG 
STIMAVG 
STIMAVG 
STIMAVG  10 
STIMAVG  11 
STIMAVG  12 
STIMAVG  13 
STIMAVG  14 
STIMAVG  15 
STIMAVG  16 
STIMAVG  17 
STIMAVG  IS 
STIMAVG  13 
STIMAVG  20 
STIMAVG  21 
STIMAVG  22 
STIMAVG  23 
STIMAVG  24 
STIMAVG  25 
STIMAVG  26 


C 

c 

c 

c 

REMARKS: 

I 1)  '’MACHINE  DEPENDENT 

FEATURES  * REFERENCES* 

ERROR 

STIMAVG 

STIMAVG 

RETURNS,  ETC . ^STIMAVG 
STIMAVG 

27 

28 

29 

30 

u 1 

3 1 

c* 

M / A - C 0 M S 

I G M A 

DATA  INC.  N 

ASA 

- G S F C 'STIMAVG 

32 

c * 

33 

c 

SCNTRL 

2 

c 

character  model  parameters 

SAVED  ON  HISTORY  RECORD 

SCNTRL 

3 

00002 

COMMON  / CCNTRL/ 

cco 

SCNTRL 

SCNTRL 

4 

5 

00003 

COMMON  /CCNTRL/ 

ADATE 

SCNTRL 

6 

00004 

COMMON  /CCNTRL/ 

atime 

SCNTRL 

7 

00005 

COMMON  /CCNTRL/ 

JIC 

SCNTRL 

B 

00006 

COMMON  /CCNTRL/ 

dOB 

SCNTRL 

9 

00007 

COMMON  /CCNTRL/ 

CCSP06 

SCNTRL 

10 

oocoa 

COMMON  /CCNTRL/ 

CCSP07 

SCNTRL 

t 1 

00009 

COMMON  /CCNTRL/ 

ccspoa 

SCNTRL 

12 

000  T 0 

COMMON  /CCNTRL/ 

VER 

SCNTRL 

13 

00011 

COMMON  /CCNTRL/ 

XLABEL  C TO  > 

SCNTRL 

14 

000  T 2 

COMMON  /CCNTRL/ 

CQS  (30) 

SCNTRL 

15 

00013 

COMMON  /CCNTRL/ 

CQU  (10) 

SCNTRL 

16 

c 

SCNTRL 

17 

00014 

EQUIVALENCE 

(cco<cc< 1 ) ) 

SCNTRL 

18 

ooois 

characters 

CCO,  CC ( 200 ) 

SCNTRL 

19 

00016 

character's 

ADATE 

SCNTRL 

20 

000  1 7 

character's 

ATIME 

SCNTRL 

21 

000  1 B 

CHARACTERS 

dIC 

SCNTRL 

22 

OOO  1 9 

CHARACTER'S 

dOB 

SCNTRL 

23 

00020 

CHARACTER'S 

CCSP06 

SCNTRL 

24 

00021 

CHARACTER'S 

CCSP07 

SCNTRL 

25 

00022 

CHARACTER'S 

CCSPQ8 

SCNTRL 

26 

00023 

CHARACTER'S 

VER 

SCNTRL 

27 

00024 

CHARACTER'S 

klabel 

SCNTRL 

28 

c 

SCNTRL 

29 

c 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

SCNTRL 

30 

c 

SCNTRL 

31 

00025 

COMMON  / I CNTRL/ 

ICO 

SCNTRL 

32 

00026 

COMMON  /I CNTRL/ 

IM 

SCNTRL 

33 

00027 

COMMON  /I CNTRL/ 

IMD2 

SCNTRL 

34 

00028 

COMMON  /I CNTRL/ 

IMD2P1 

SCNTRL 

35 

00029 

COMMON  n CNTRL/ 

NDRSW 

SCNTRL 

36 

00030 

COMMON  / I CNTRL / 

JM 

SCNTRL 

37 

0003  1 

COMMON  /I CNTRL/ 

JMD2 

SCNTRL 

38 

00032 

COMMON  / ICNTRL/ 

JMT2 

SCNTRL 

39 

00033 

COMMON  /ICNTRL/ 

dNP 

SCNTRL 

40 

H 

H 


< 

<n 
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j 

; i 

3 1 


00034 

00035 

00036 

00037 

00038 

00039 

00040 

0004  1 

00042 
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c 

SCNTRL 

T 64 

t T 

c 

REAL  MODEL  PARAMETERS  SAVED 

ON  HISTORY  RECORD 

SCNTRL 

165 

1 

c 

i = = “ - “ = = = =“  ^ 

SCNTRL 

1 66 

* ■ 

00145 

COMMON  /RCNTRL / 

RCO 

SCNTRL 

167 

\ + 

00146 

COMMON  /RCNTRL/ 

APHEL 

SCNTRL 

168 

00147 

COMMON  /RCNTRL/ 

BETA 

SCNTRL 

159 

l | 

00  1 48 

COMMON  /RCNTRL/ 

COSD 

SCNTRL 

170 

00149 

COMMON  /RCNTRL/ 

CP 

SCNTRL 

171 

t 

00150 

COMMON  /RCNTRL/ 

DAYSPY 

SCNTRL 

172 

0015  T 

COMMON  /RCNTRL/ 

DEC 

SCNTRL 

173 

; 

00152 

COMMON  /RCNTRL/ 

DECMAX 

SCNTRL 

174 

i 00153 

COMMON  /RCNTRL/ 

DI5T 

SCNTRL 

175 

! • 00154 

COMMON  /RCNTRL/ 

DLAT 

SCNTRL 

176 

1 j O0155 

COMMON  /RCNTRL/ 

DLON 

SCNTRL 

177 

00  15  6 

COMMON  /RCNTRL/ 

DT 

SCNTRL 

178 

? 00 157 

COMMON  /RCNTRL/ 

ECCN 

SCNTRL 

179 

If  I 


p n 

- if  *4 

...  nd 


L>; 


mV  V-l 

t ? ' • : 


■2* 

-fl 


,1 

**1 


I;  ! 


TWRITE  3 


00  1 58 
00t59 
00  160 
00  161 
00  1 62 
00  1 63 
00164 
00  165 
00  166 
00  167 
00168 
00  169 
00  170 
00  171 
00  172 

00173 

00174 

00175 
OO  176 
00177 
00  ITS 
00  179 
00  180 
0018  1 
00182 
00  183 

00184 

00185 

00186 

00187 

00188 


00  189 
00  190 

00191 

00192 

00193 
00  194 
00195 

ootse 

00197 

00198 

00199 


00  200 
00201 
00202 

00203 

00204 

00205 


00206 

00207 

00208 

00209 

00210 
0021  1 
00212 

00213 

00214 

00215 

00216 
00217 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COP^IMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RCNTRL / 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 


GNUt 

GNU2 

GRAV 

0MEGA2 

PI 

PI  180 

P I 2 

PSTD 

PIMEAN 

PSMAX 

PSMIN 

PTOP 

RADE 

RGAS 

ROCP 

RSDIST 

5DAY 

SEASON 

SIGE 

SIND 

SOLS 

TSTD 

PLEV5 

HEATW 

HEATI 

EPS 

EPSFAC 

CALTOJ 

PZERO 


(25  J 


(25) 


EQUIVALENCE 

REAL 


( RCO  * RC { 1 ) ) 
ECO,  RC(200) 


INTEGER  MODEL  CONSTANTS 
- =■='  = = = = = = “ = “ “ = = = = 

COMMON  /IDPARM/  IJUMP  (46) 
COMMON  /IDPARM/  IDSR02 
COMMON  /IDPARM/  INDEX  (72) 
COMMON  / IDPARM/  I ROD 
COMMON  /IDPARM/  tJC  (46) 

COMMON  /IDPARM/  UE  (2) 

COMMON  /IDPARM/  UP  (2,2) 

COMMON  /IDPARM/  JfSTEP 
COMMON  /IDPARM/  MJ  (46) 

COMMON  /IDPARM/  NHMS1 
C0MP40N  /IDPARM/  NYMD  I 


LOGICAL  MODEL  CONSTANTS 

COMMON  /LDP ARM/  FILTER 
COMMON  /LDP ARM/  I TAPE 
COMMON  /LDPARM/  START 


(46) 


LOGICAL 

LOGICAL 

LOGICAL 


FILTER 

ITAPE 

START 


REAL  MODEL  CONSTANTS 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RDPARM/  ADLDP 
/RDPARM/  CONI 
/RDPARM/  CONIDT 
/RDPARM/  C0N2 
/RDPARM/  C0N2DT 
/RDPARM/  C0N3 
/RDPARM/  C0N3DT 
/RDPARM/  C0N4 
/RDPARM/  C0N4D7 
/RDPARM/  CONS 
/RDPARM/  COSL 
/RDPARM/  COSLQN 


(46) 

(72) 


SCNTRL  180 
SCNTRL  131 
SCNTRL  1 82 
SCNTRL  183 
SCNTRL  184 
SCNTRL  185 
SCNTRL  186 
SCNTRL  1 87 
SCNTRL  IBS 
SCNTRL  1 39 
SCNTRL  190 
SCNTRL  T 9 1 
SCNTRL  192 
SCNTRL  193 
SCNTRL  194 
SCNTRL  195 
SCNTRL  195 
SCNTRL  197 
SCNTRL  19B 
SCNTRL  199 
SCNTRL  200 
SCNTRL  201 
SCNTRL  202 
SCNTRL  203 
SCNTRL  204 
SCNTRL  205 
SCNTRL  206 
SCNTRL  207 
SCNTRL  208 
SCNTRL  209 
SCNTRL  210 
SCNTRL  21 T 
SCNTRL  212 
SCNTRL  213 
SCNTRL  214 
SCNTRL  215 
SCNTRL  216 
SCNTRL  217 
SCNTRL  218 
SCNTRL  219 
SCNTRL  220 
SCNTRL  221 
SCNTRL  222 
SCNTRL  223 
SCNTRL  224 
SCNTRL  225 
SCNTRL  226 
SCNTRL  227 
SCNTRL  228 
SCNTRL  229 
SCNTRL  230 
SCNTRL  231 
SCNTRL  232 
SCNTRL  233 
SCNTRL  234 
SCNTRL  235 
SCNTRL  236 
SCNTRL  237 
5CNTRL  238 
SCNTRL  239 
SCNTRL  240 
SCNTRL  241 
SCNTRL  242 
SCNTRL  243 
SCNTRL  244 
SCNTRL  245 
SCNTRL  246 
SCNTRL  247 
SCNTRL  24S 
SCNTRL  249 
SCNTRL  250 


H 


ORIGINAL  PAGE  ESF 
OF  POOR  QUALITY 


-I 


V 


00218 

COMMON 

/RDPARM/ 

CPD2 

SCNTRL 

25  1 

00219 

COMMON 

/RDPARM/ 

DXP 

<46  J 

SCNTRL 

252 

00220 

COMMON 

/RDPARM/ 

DXYP 

< 46) 

SCNTRL 

253 

00221 

COMMON 

/RDPARM/ 

DYP 

< 4G  ) 

SCNTRL 

254 

00222 

COMMON 

/RDPARM/ 

FC0RL5 

(46) 

SCNTRL 

255 

00223 

COMMON 

/RDPARM/ 

F1DT 

SCNTRL 

256 

00224 

COMMON 

/RDPARM/ 

F2DT 

SCNTRL 

257 

00225 

COMMON 

/RDPARM/ 

HtDT 

SCNTRL 

258 

00226 

COMMON 

/RDPARM/ 

H2DT 

SCNTRL 

259 

00227 

COMMON 

/RDPARM/ 

PKSTD 

SCNTRL. 

260 

00228 

COMMON 

/RDPARM/ 

P'KTOP 

SCNTRL 

261 

00229 

COMMON 

/RDPARM/ 

RL  AT 

{ 46  ) 

SCNTRL 

262 

00230 

COMMON 

/RDPARM/ 

RLATD 

f 46  ) 

SCNTRL 

263 

00231 

COMMON 

/RDPARM/ 

ROCPDT 

SCNTRL 

264 

00232 

COMMON 

/RDPARM/ 

R0CPP1 

SCNTRL 

265 

00233 

COMMON 

/RDPARM/ 

sgnp 

< 2 ) 

SCNTRL 

266 

00234 

COMMON 

/RDPARM/ 

SI  NL 

( 46) 

SCNTRL 

267 

00235 

COMMON 

/RDPARM/ 

SINLON 

(72) 

SCNTRL 

263 

00236 

COMMON 

/RDPARM/ 

TH5TD 

SCNTRL 

269 

00237 

COMMON 

/RDPARM/ 

THSTD2 

SCNTRL 

270 

00233 

COMMON 

/RDPARM/ 

WEAVE 

f 153) 

SCNTRL 

271 

00233 

COMMON 

/RDPARM/ 

DSIG 

(9) 

SCNTRL 

272 

00240 

COMMON 

/RDPARM/ 

51 G 

(3? 

SCNTRL 

Z73 

C 

SCNTRL 

274 

C * 

* *■ 

SCGRDEF 

I 2 

IDENTIFYING  LABELS  OF  MODEL  H I STOH Y RECORD  QUANTITIES 


SCORDER 


0024  T 

COMMON  /CDRDER/ 

XOROSf  19)  , XORDU  < 14) 

SCORDER 

4 

00242 

CHARACTER  *3  XORDS,  XORDU 

SCORDER 

5 

C 

*■  * * 

SQANDQT 

2 

C 

GLOBAL  MODEL  SURFACE  FIELDS 

SOANDQT 

3 

00243 

common  /qandqt/ 

QS<72, 19,46) 

SQANDQT 

4 

C 

SQANDQT 

5 

00244 

DIMENSION 

PHIS ( 1 36B , ? ) 

SQANDQT 

6 

00245 

DIMENSION 

SMTHf 1363,23) 

SQANDQT 

7 

00246 

DIMENSION 

ALBEDO ( 1 368 , 1 ) 

SQANDQT 

3 

00247 

dimension 

GT ( 1368, 1 ) 

SQANDQT 

9 

00243 

DIMENSION 

GW ( 1368, 1) 

SQANDQT 

10 

00249 

DIMENSION 

TS< [368. 1 ) 

SQANDQT 

1 1 

00250 

DIMENSION 

SHS< 1363 , 1 ) 

SQANDQT 

12 

00251 

DIMENSION 

P f 7 2 , 19,  1 ) 

SQANDQT 

13 

00252 

dimension 

TMINf 1 368 , 1 ) 

SQANDQT 

14 

00253 

DIMENSION 

TMA  X < 13GB,  1 ) 

SQANDQT 

15 

00254 

DIMENSION 

PREACC ( 1368, 1 ) 

SQANDQT 

16 

00255 

DIMENSION 

PRECON { T36H  r 1 ) 

SQANDQT 

17 

00256 

DIMENSION 

HFLUX { 136S, 1 ) 

SQANDQT 

18 

00257 

DIMENSION 

EFLUX  f 1368 , 1 ) 

SQANDQT 

19 

00253 

DIMENSION 

FUSION  t 1 368 , 1 ) 

SQANDQT 

20 

00259 

DIMENSION 

RADSWG ( 1368, 1 ) 

SQANDQT 

21 

00260 

dimension 

RADLWG( 1368, 1 > 

SQANDQT 

22 

0026  1 

DIMENSION 

ICLOUDt 1368, 1) 

SQANDQT 

23 

c 

SQANDQT 

24 

00262 

EQUIVALENCE 

(PSM.M),  PHIS  ( 1.U) 

SQANDQT 

25 

00263 

EQUIVALENCE 

{ QS  f 1 , 2 r 1 } , SMTH  < 1 , T ) ) 
t QS f 1 , 3 r 1 ) .ALBEDOt  1,0) 

SQANDQT 

26 

00264 

EQUIVALENCE 

SQANDQT 

27 

00265 

EQUIVALENCE 

C QS  f 1 .4, 1)  ,GT< 1,1)) 

SQANDQT 

28 

00266 

EQUIVALENCE 

t QS 1 1,5,1)  ,GW< 1,1)) 

SQANDQT 

23 

00267 

EQUIVALENCE 

{ QS  < 1,6,1)  r TS  (1,1)) 
(QS< 1 ,7, 1 ) , SMS ( 1 , 1 ) ) 

SQANDQT 

30 

00268 

EQUIVALENCE 

SQANDQT 

3 t 

00269 

EQUIVALENCE 

f qs < i ta,  i ) ,pm  , i , i ) ) 
<Qsn  , to  r n , tm i n c 1 1 1 ) ) 

5QANDQT 

32 

00270 

EQUIVALENCE 

SQANDQT 

33 

00271 

EQUIVALENCE  . 

( QS  <1,11,1)  , TMAX ( 1,1)? 

SQANDQT 

34 

00272 

EQUIVALENCE 

< QS  <1,12,1)  , PREACC { 1 , 1 ] ) 

SQANDQT 

35 

00273 

EQUIVALENCE 

<QS< 1 , 13 , 1 ) , PRECON  f 1 , 1 ) ) 
(05(1,14,1)  , HFLUX  < 1,1)) 

SQANDQT 

36 

00274 

EQUIVALENCE 

SQANDQT 

37 

00275 

equivalence 

< QSC  1 , 15, 1 ) , EFLUX ( 1,1)) 

SQANDQT 

38 

00276 

EQUI VALENCE 

<QS< 1 , 16, 1 > , FUSION ( 1 , 1 ) ) 

SQANDQT 

39 

00277 

EQUIVALENCE 

(QSC 1 r 17, 1)  , RADSWG  f 1 . 1 ) ) 

SQANDQT 

40 

00278 

EQUIVALENCE 

<QS(  1,  18, 1 ) , R ADLWG  f 1 , 1 ) ) 

SQANDQT 

41 

00279 

equivalence 

(05(1,19,1),  I CLOUD  < 1,1)) 

SQANDQT 

42 

c 

*r  + ir 

SQANDQT 

43 

c 

GLOBAL  MODEL  UPPER- 

AIR  FIELDS 

SQANDQT 

44 

H3 

H 


ORK3INAL  FACS  S3 
OF  POOR  QUALITY 


7TC  i 


U 


00280 

COMMON  / GANDQT/  QU £ 7 2 , 9 , 1 4 , 46 > 

SQANDQT 

45 

C 

SQANDQT 

4 S 

0028  t 

DIMENSION 

U{ 72 ,9, 14 . 1 ) 

SQANDQT 

47 

00282 

D I ME NS 1 ON 

V f 7 2 , 9 , 14, t 1 
T f 72 , 9 , 14,1) 

SQANDQT 

riB 

0 0283 

DIMENSION 

SQANDQT 

49 

00284 

DIMENSION 

SH (72.9,14,1) 

SQANDQT 

50 

0 0 285 

DIMENSION 

PHI (72,9,  14,1) 

SOANDOT 

5 1 

00286 

DIMENSION 

OMEGAf 72. 126  * 1 ) 

SQANDQT 

52 

00287 

DIMENSION 

DI ABAT ( 7 2 , 126,1) 

SQANDQT 

53 

0028S 

DIMENSION 

RADSWf 72, 126.1) 

SQANDQT 

54 

00289 

DIMENSION 

RADLW ( 72 , 126, 1 ) 

SQANDQT 

55 

C 

SOANDQT 

56 

00290 

EOU.I  VALENCE 

jqu( i . i , i , n .u<  1 1 1 . i , i ) > 

SQANDQT 

57 

00291 

EQUIVALENCE 

[QU<1  .1  ,3, I > ,V( t , 1 , 1 ,1  ) ) 

SQANDQT 

53 

00292 

EQUI VALENCE 

{QU< 1 , 1 ,5, t ) . T<  t , 1 , 1 , 1 ) > 

SQANDQT 

59 

00  293 

equivalence 

f QU(  1 , 1 r7,  1 J V5KC1  , 1 , 1 * 1)  ) 
f QUM  , 1 r9p  1 ) , PHI  ( 1 , 1 , 1 . 1 > ) 

SQANDQT 

60 

00294 

equivalence 

SQANDQT 

61 

00295 

EQUIVALENCE 

<QU<  1 , t , 11  , U , OMEGA ( 1,1,11) 

SQANDQT 

62 

00296 

EQUIVALENCE 

(QUM  , 1 , 12.  1)  , DI  ABAT  < 1,1,1)) 

SQANDQT 

63 

00297 

EQUIVALENCE 

<QU(1 . 1 , 13, 1 ) ,RADSW( T , 1 . 1 ) } 

SQANDQT 

64 

00298 

EQUIVALENCE 

( QU( 1,1,14,1), RADLW ( 1.1,1)) 

SQANDQT 

65 

C 

SQANDQT 

66 

C 

*•  w-  * 

SWORK1D 

2 

c 

one-dimensional 

WORK  AREAS 

SWORK1D 

3 

00  299 

COMMON 

CARD  (10),  DATA  (144),  CATAU44) 

5WORK1D 

4 

00300 

COMMON 

PK ( 72 , 9 > , P T ( 7 2 , 9 ) 

S WORK  ID 

5 

00301 

CHARACTER'S 

CARD 

SWORKtD 

6 

c 

SWORK1D 

7 

c 

STV/RITE 

41 

00302 

DATA  LUNEXT 

/ 14/ 

STV/RITE 

42 

c 

5TV/RI  TE 

43 

C 

DEBUG 

SBEGDEB 

2 

00303 

10000  CONTINUE 

SBEGDEB 

3 

0 0304 

00305 

00306 

00307 
0030B 
00303 
003  10 
00311 
00313 

00313 

00314 
003  15 

00316 

00317 
00313 

00319 

00320 

00321 
0 02  22 

00323 

00324 

00325 

00326 

00327 
00323 

00329 

00330 


CYBER 

CYBER 

CYBER 


SCALAR 

SCALAR 

SCALAR 


VERSION 

VERSION 

VERSION 


04  , 
04 
00 


00  1 
000 


INPUT. IDQ 


SBEGDEB 

SBEGDEB 

SBEGDEB 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBEGDEE 


c 
c 
c 

c * * * *■ 

c ♦ * * * 

c + + + + 

c 

10 


k * *r  * it  1r  1 


WRITE  NEXT  RECORD  ON  RESTART  RILE 


*'*.!*****■+'*■***■#*  *4 


r + * * * * 


20 


30 


35 


CONTINUE 

IF1.LFLAG.Eq, SI  QRSW 
IF  1 . NOT . QRSW } GO  TO 
LU  = LUNEXT 
IF(LU.EQ,12)  LUNEXT 
I F ( LU , EQ , 1 4 ) LUNEXT 
REWIND  LU 
LOGSR  = LF  LAG 
CALL  TOO  ( LU ,2,0) 

DO  20  J=1 
CALL  IOQ  [ LU , 2 , J ) 
CONTINUE 

WRITE  (3,6020)  LUt 
REWIND  LU 

IF (LFLAG. EQ, 6 ) QOUT 
I F ( . NOT , QOUT ) GO  TO 
CALL  CONHTR 
IROD  = I ROD  + 
WRITE(3,S030) 

I F ( . NOT . QRSH 1 
IROD  = IROD  + 

LOGSR  = LFLAG 
CALL  I Op (3,2,0) 

DO  35  J = 
CALL  I OQ ( S . 2 , J ) 

CONTINUE 

luu  = a 


= .TRUE. 
30 


= 14 
= 12 


JNP 


NYMD,  NHMS,  LOGBR,  JOB 

* .FALSE . 

40 


1 

NYMD , NHMS , LOGSR , 
GO  TO  40 
1 


1 , JNP 


JOB 


STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

5TV/RITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STV/RITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 

STWRITE 


4 

5 

6 
7 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
B 1 
62 

63 

64 

65 

66 
6 7 
68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
7B 


ORIGINAL  PA8E  m 
OF  POOR  QUALITY 


00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

00340 
0034  1 
00342 


40 


45 


WR  T TE ( 3 « 6020 > LUU , N YMO , NHMS , LOG8R , JOB 
IF { .NOT, QRSW)  GO  TO  45 
KRS  = < LU  - 12)  7 2 + 1 
REWIND  1 5 

WRITE* 15,6040)  KRS 
REWIND  15 

I F < I ROD . GE i MROD ) RETURN  1 
RETURN 


6020  FORMAT  { * 0 RESTART  RECORD  WRITE  TO  .UNI  T ' t T2  t 4X  . 

& ' MODEL  TIME  • , I 6 , 2X , I 6 „ 2 X , I 4 , 4X . * JOB  f , AS ) 

f * OHI STOR  Y RECORD  WRITE  TO  UNIT08',  4X, 

' MODEL  TIME  M6p2X,IBp2X,I4t4X/  JOG  * t AS  } 

( * PROC ( RSPROC p NNNN  t RSRUNI T , RSRVOL ) * / 

' BEGIN*  f PiRSRUNI  T-RSR  , “*NNNN- , ^RSRVOL-’  t * , I 1 * ' , 


6030  FORMAT 

a 

6040  FORMAT 

a 

END 


R)'  J 


STWRITE  79 
STWRITE  SO 
STWRITE  81 
STWRITE  82 
STWRITE  S3 
STWRITE  34 
STWRITE  35 
STWRITE  SB 
STWRITE  87 
STWRITE  SB 
STWRITE  BS 
STWRITE  90 
STWRITE  9 1 
STWRITE  92 
STWRITE  93 
STWRITE  94 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


10 

10000 

20 

30 

35 

40 

45 

6020 

6030 

5040 


304 
303 
3 15 
319 
329 
332 
337 

339 

340 

341 


313 
306 
327 
3 13 
332 
316 
322 
335 


323 

331 


variable  map 


NAME 

-BLOCK 

-TYPE 

-CLASS 

‘--REFERENCES 

ADATE 

CCNTRL 

CHARTS 

SIMPLE 

3 

16 

adldp 

rdparm 

REAL 

SIMPLE 

206 

ALBEDO 

QANDQT 

REAL 

ARRAY 

246 

264 

APHEL 

RCNTRL 

REAL 

SIMPLE 

146 

ATIME 

CCNTRL 

CHAR  * 8 

SIMPLE 

4 

t 7 

BETA  4 

RCNTRL 

REAL 

SIMPLE 

147 

CALTOJ 

rcntrl 

REAL 

SIMPLE 

185 

CARD 

// 

CHAR'S 

ARRAY 

299 

301 

DATA 

// 

REAL 

ARRAY 

299 

CC 

CCNTRL 

CHAR  * 8 

ARRAY 

14 

15 

COO 

CCNTRL 

CHAR'S 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

C0SP06 

CCNTRL 

CHAR'S 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHAR'S 

SIMPLE 

a 

21 

CCSPOB 

CCNTRL 

CHAR'S 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

207 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

208 

C0N2 

RDPARM 

REAL 

SIMPLE 

209 

G0N2DT 

RDPARM 

real 

SIMPLE 

210 

C0N3 

RDPARM 

REAL 

SIMPLE 

211 

CDN3DT 

RDPARM 

REAL 

SIMPLE 

212 

CON4 

RDPARM 

REAL: 

SIMPLE 

213 

CON4DT 

RDPARM 

REAL 

SIMPLE 

214 

CONS 

RDPARM 

REAL 

SIMPLE 

215 

CORDER 

REAL 

UNKNOWN 

241 

COSD 

rcntrl 

REAL 

SIMPLE 

148 

COSL 

RDPARM 

REAL 

ARRAY 

216 

COSLON 
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15 

CCNTRL 

CHAR  + 8 

SIMPLE 

2 

1 4 

15 

REAL 

UNKNOWN 

2 

13 

7 

3 

4 

CCNTRL 

CHARTS 

SIMPLE 

20 

CCNTRL 

CHARTS 

SIMPLE 

8 

21 

CCNTRL 

CHARTS 

SIMPLE 

9 

22 

RDPARM 

REAL 

SIMPLE 

207 

398 

rdparm 

REAL 

SIMPLE 

208 

RDPARM 

REAL 

SIMPLE 

209 

398 

RDPARM 

REAL 

SIMPLE 

210 

RDPARM 

REAL 

SIMPLE 

21  1 

RDPARM 

REAL 

STMPLE 

212 

RDPARM 

REAL 

SIMPLE 

213 

RDPARM 

REAL 

SIMPLE 

214 

RDPARM 

REAL 

SIMPLE 

215 

450 

OMSAVE 

REAL 

ARRAY 

31  1 

345/S 

346/S 

392 

37  1 

373 

RCNTRL 

REAL 

SIMPLE 

1 48 

RDPARM 

REAL 

ARRAY 

218 

RDPARM 

REAL 

ARRAY 

217 

44B 

RCNTRL 

REAL 

SIMPLE 

149 

RDPARM 

REAL 

SIMPLE 

2 13 

CCNTRL 

REAL 

ARRAY 

12 

CCNTRL 

real 

ARRAY 

13 

RCNTRL 

REAL 

SIMPLE 

150 

RCNTRL 

REAL 

SIMPLE 

TS  1 

RCNTRL 

REAL 

SIMPLE 

15.2 

QANDQT 

REAL 

array 

285 

294 

RCNTRL 

REAL 

SIMPLE 

153 

RCNTRL 

REAL 

SIMPLE 

154 

RCNTRL 

REAL 

SIMPLE 

155 

RDPARM 

REAL 

ARRAY 

239 

362 

398 

RCNTRL 

REAL 

SIMPLE 

156 

RDPARM 

PEAL 

ARRAY 

219 

347 

348 

RDPARM 

REAL 

ARRAY 

220 

378 

433 

RDPARM 

REAL 

ARRAY 

221 

330 

331 

RCNTRL 

REAL 

SIMPLE 

157 

QANDQT 

REAL 

ARRAY 

255 

273 

RCNTRL 

REAL 

SIMPLE 

183 

RCNTRL 

REAL 

SIMPLE 

184 

RDPARM 

REAL 

SIMPLE 

223 

RDPARM 

real 

SIMPLE 

224 

RDPARM 

REAL 

array 

222 

LDP ARM 

LOGICAL 

ARRAY 

200 

203 

QANDQT 

REAL 

ARRAY 

256 

274 

RCNTRL 

REAL 

SIMPLE 

153 

RCNTRL 

REAL 

SIMPLE 

159 

RCNTRL 

REAL 

SIMPLE 

160 

QANDQT 

REAL 

ARRAY 

245 

263 

qANDQT 

REAL 

ARRAY 

246 

264 

RDPARM 

REAL 

SIMPLE 

225 

RDPARM 

REAL 

SIMPLE 

226 

RCNTRL 

REAL 

SIMPLE 

182 

RCNTRL 

REAL 

SIMPLE 

181 

QANDQT 

REAL 

ARRAY 

254 

272 

integer 

SIMPLE 

328/S 

332 

332 

346 

347 

347 

351 

352 

352 

359 

359 

359 
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373 
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INTEGER 
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354 

355 

355  ■ 

356 

356 

356 

356 

359 

359 

362 

362 

364 

365/S 
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37  1 

371 

377 

378 

392/C 
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393 

395 

395 

421 

427 

430 

430 

432 

432 

432 

432 

433 

447/C 

448 

448 

448 

448 

*15  1 /C 

452 

I CLOUD 

QANDQT 

INTEGER 

ARRAV 

259 

277 

ICNTRL 

INTEGER 

UNKNOWN 
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26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

36 

39 

40 

41 

42 

43 

4d 

45 

46 

47 

4S 

49 

50 

51 

52 

53 

54 

55 

56 

57 

53 

59 

60 

S 1 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

66 

I CSP55 

ICNTRL 

INTEGER 

SIMPLE 

.66 

I D I AE3  AT 

ICNTRL 

INTEGER 

UNKNOWN 

88 

IDPARM 

INTEGER 

UNKNOWN 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

I DSP  02 

IDPARM 

INTEGER 

SIMPLE 

190 

I EF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

62 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

83 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

61 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

IBS 

IM 

ICNTRL 

INTEGER 

SIMPLE 

26 

326 

327 

328 

329 

337 

370 

392 

419 

420 

421 

422 

423 

4 47 

45  1 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

27 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

28 

INDEX 

IDPARM 

INTEGER 

ARRAY 

1 9 1 

425 

427 

I OMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

37 

IP  t 

INTEGER 

SIMPLE 

329/S 

333 

333 

333 

336 

340 

3G5 

366/S 

422/S 

428 

437 

43B/S 

I P2 

INTEGER 

SIMPLE 

337/C 

339 

339 

339 

34  1 

366 

423/C 

429 

436 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

79 

I PRECON 

rCNTRL 

INTEGER 

UNKNOWN 

SO 

IQS 

ICNTRL 

INTEGER 

ARRAY 

75 

77 

78 

79 

SO 

SI 

82 

63 

84 

85 

66 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

B7 

58 

S3 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

65 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

84 

IROD 

IDPARM 

INTEGER 

SIMPLE 

192 

IS1 

INTEGER 

SIMPLE 

327/S 

33  1 

331 

331 

335 

335 

336 

336 

35G 

359 

363 

364/S 

420/S 

428 

435 

436/S 

rs2 

INTEGER 

SIMPLE 

326/S 

330 

330 

330 

334 

334 

356 

359 

3S3/S 

419/5 

429 

435  /S 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

20  1 

204 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

78 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

77 

IXP 

INTEGER 

SIMPLE 

424/5 

425/S 

431 

TXS 

INTEGER 

SIMPLE 

426/S 

427/5 

431 

J 

INTEGER 

SIMPLE 

317/C 

318 

319 

320 

330 

330 

330 

33  1 

33  1 

331 

332 

332 

332 

333 

333 

333 

33B 

339 

339 

339 

342 

347 

347 

347 

369 

378 

378 

381 

3S4 

406 

407 

407 

408 

409 

410 

4 1 1 

41  1 

4 12 

4 IS 

425 

427 

426 

42S 

429 

429 

432 

432 

432 

432 

432 

432 

433 

433 

433 

440 

443 

JC 

IDPARM 

INTEGER 

ARRAY 

193 

320 

321 

322 

385 

412 

445 

JE 

IDPARM 

INTEGER 

ARRAY 

194 

385 

403 

444 

JEND 

INTEGER 

SIMPLE 

444/S 

445 

450 

450 

452 

452 

JIG 

CCNTRL 

CHARTS 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

30 

3 17 

342 

381 

384 

41  1 

425 

440 

443 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

31 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

32 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

33 

J04 

ICNTRL 

INTEGER 

SIMPLE 

34 

JOB 

ICNTRL 

INTEGER 

SIMPLE 

35 

JOB 

CCNTRL 

CHAR  * B 

SIMPLE 

6 

19 

t '? 

IDPARM 

INTEGER 

ARRAY 

135 

366 

3S7 

448 

44S 

JP  1 

INTEGER 

SIMPLE 

316/5 

321 

348 

34B 

346 

3B6/S 

393 

393 

409/S 

430 

JP2 

INTEGER 

SIMPLE 

319/S 

322 

350 

350 

350 

367/S 

395 

395 

410/S 

411/S 

431 

JS1 

integer 

SIMPLE 

408/5 

430 

JS2 

INTEGER 

SIMPLE 

406/S 

407/5 

431 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

36 

K 

integer 

SIMPLE 

320/S 

346 

347 

35  1 

352 

356 

356 

359 

359 

359 

362 

362 

371 

37  1 

373 

373 

373 

377 

366  /S 

398 

402 

412 

KE 

INTEGER 

SIMPLE 

445/S 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

37 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

36 
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KLISST 

ICNTRL 

INTEGER 

SIMPLE 

39 

KP  1 

INTEGER 

SIMPLE 

321  /S 

345 

348 

KP2 

INTEGER 

SIMPLE 

322/S 

350 

352 

KS 

ICNTRL 

INTEGER 

SIMPLE 

40 

KSTEP 

I DFA AM 

integer 

SIMPLE 

196 

HU 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

L 

INTEGER 

SIMPLE 

323/C 

324 

325 

352 

354 

355 

362 

372/C 

373 

402 

403 

4T3/C 

450 

452 

452 

LC 

LCNTRL 

LOGICAL 

ARRAY 

143 

144 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

92 

143 

144 

LCNTRL 

integer 

UNKNOWN 

92 

93 

94 

103 

1 04 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

141 

LDPARM 

INTEGER 

UNKNOWN 

200 

20  1 

202 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

135 

LFUSroW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

136 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 09 

134 

LICLOUD 

LCNTRL 

LOGICAL 

unknown 

1 14 

139 

LNB 

INTEGER 

SIMPLE 

325/S 

330 

33  1 

395 

415/S 

416 

LNO 

INTEGER 

SIMPLE 

324/S 

4 14/S 

LGG8R 

ICNTRL 

integer 

SIMPLE 

42 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

140 

lpreacc 

LCNTRL 

LOGICAL 

UNKNOWN 

107 

132 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

108 

133 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

103 

105 

106 

1 28 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

104 

1 15 

1 16 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

113 

138 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

142 

LRAPSWG 

LCNTRL 

LOGICAL 

unknown 

112 

137 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

t 06 

13  1 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

T 05 

130 

LWE 

INTEGER 

SIMPLE 

416/S 

417/S 

432 

M 

INTEGER 

SIMPLE 

383/S 

384/S 

385 

448 

448 

448 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

43 

MATSNX 

ICNTRL 

integer 

SIMPLE 

44 

MAT SUN 

ICNTRL 

INTEGER 

SIMPLE 

45 

M J 

IDPARM 

INTEGER 

ARRAY 

T 97 

MLF 

ICNTRL 

INTEGER 

ARRAY 

46 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

47 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

49 

NB 

ICNTRL 

INTEGER 

SIMPLE 

50 

316 

330 

395 

428 

428 

ND 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

315 

ndalt 

ICNTRL 

INTEGER 

SIMPLE 

52 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

74 

NDQUT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

29 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

56 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

57 

NNMS 

ICNTRL 

INTEGER 

SIMPLE 

58 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMS  1 

IDPARM 

integer 

SIMPLE 

198 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

59 

NKR5H 

ICNTRL 

INTEGER 

SIMPLE 

48 

nlay 

ICNTRL 

INTEGER 

SIMPLE 

61 

315 

316 

NLA YM 1 

ICNTRL 

INTEGER 

SIMPLE 

62 

372 

376 

nlaynb 

INTEGER 

SIMPLE 

3 16/S 

325 

389 

NLAYND 

INTEGER 

SIMPLE 

315/S 

324 

414 

NLAYP1 

ICNTRL 

INTEGER 

SIMPLE 

63 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

73 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

64 

351  355  355 

354 


345 

346 

347 

348 

350 
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35  1 

352 

355 
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356 

359 
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359 
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N5EQ 

icntrl 

INTEGER 

SIMPLE 

65 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

67 

nymd 

ICNTRL 

INTEGER 

SIMPLE 

59 

n ymd  o 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

199 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

70 

NZINtT 

ICNTRL 

INTEGER 

SIMPLE 

72 

□MEGA 

QANDQT 

REAL 

ARRAY 

284 

293 

378/  S 

403/S 

433/S 

433 

450/S 

450 

0MEGA2 

RCNTRL 

REAL 

SIMPLE 

161 

P 

QANDQT 

REAL 

ARRAY 

249 

267 

330 

33  1 

332 

333 

339 

347 

395 

428 

428 

429 

429 

430 

430 

431 

PDOT 

REAL 

SIMPLE 

432/S 

433 

PHI 

QANDQT 

REAL 

ARRAY 

283 

292 

PHIM 

QMSAVE 

REAL 

ARRAY 

308 

PHIP 

QPOLES 

REAL 

ARRAY 

302 

PHIS 

QANDQT 

REAL 

array 

242 

260 

PI 

RCNTRL 

REAL 

SIMPLE 

162 

PI  1B0 

RCNTRL 

REAL 

SIMPLE 

163 

P 12 

RCNTRL 

REAL 

SIMPLE 

164 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

1 66 

PIT 

QMSAVE 

REAL 

ARRAY 

310 

371/S 

373/S 

373 

PK5TD 

RDPARM 

REAL 

SIMPLE 

227 

PKTOP 

RDpARM 

REAL 

SIMPLE 

228 

PUEVS 

RCNTRL 

REAL 

ARRAY 

ISO 

PM 

QMSAVE 

REAL 

ARRAY 

303 

PP 

QPOLES 

REAL 

ARRAY 

297 

PREACC 

QANDQT 

REAL 

ARRAY 

252 

270 

PBECOW 

QANDQT 

REAL 

ARRAY 

2S3 

271 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

167 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

168 

PSTD 

RCNTRL 

REAL 

SIMPLE 

165 

P TOP 

RCNTRL 

REAL 

SIMPLE 

169 

PU 

// 

REAL 

ARRAY 

313 

330/S 

331/S 

332/S 

333  /S 

334 

334 

335 

339/S 

340 

340 

34  1 

34  1 

PU1 

// 

REAL 

ARRAY 

313 

335/S 

340/S 

356 

356 

359 

359 

PU2 

// 

REAL 

ARRAY 

3 13 

334/S 

336/5 

34  1 /S 

356 

356 

359 

359 

PV 

QMSAVE 

REAL 

ARRAY 

309 

347/S 

348/S 

350/S 

35  t 

35  1 

352 

352 

PV1 

real 

SIMPLE 

351/S 

355 

356 

393/  S 

394 

pvis 

real 

SIMPLE 

390/S 

394/5 

394 

398 

PV2 

REAL 

SIMPLE 

352/S 

354 

356 

395 '5 

396 

PV2S 

REAL' 

SIMPLE 

391/S 

396/S 

396 

398 

PVDS 

REAL 

SIMPLE 

446/S 

448/S 

448 

450 

P X 1 

REAL 

SIMPLE 

428/S 

432 

PX2 

REAL 

SIMPLE 

429/S 

432 

PY1 

REAL 

SIMPLE 

430/S 

432 

PY2 

REAL 

SIMPLE 

431/S 

432 

PZERO 

RCNTRL 

REAL 

SIMPLE 

186 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

93 

1 1 a 

QANDQT 

REAL 

UNKNOWN 

241 

278 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

94 

1 19 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

95 

120 

Q6ND 

LCNTRL 

LOGICAL 

SIMPLE 

96 

121 

QMSAVE 

REAL 

UNKNOWN 

303 

304 

305 

306 

307 

308 

309 

3 10 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

97 

122 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

98 

123 

QPOLES 

real 

UNKNOWN 

297 

298 

299 

300 

30  1 

302 

QBSH 

LCNTRL 

LOGICAL 

SIMPLE 

102 

T 27 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

101 

126 

Q5 

QANDQT 

REAL 

ARRAY 

241 

260 

261 

262 

263 

264 

265 

266 

270 

271 

272 

273 

274 

275 

276 

277 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

99 

124 

QU 

QANDQT 

REAL 

ARRAY 

278 

2SS 

289 

290 

291 

292 

293 

294 

RADE 

RCNTRL 

real 

SIMPLE 

170 

RADLW 

QANDQT 

real 

ARRAY 

2B7 

296 

RADLWG 

QANDQT 

REAL 

ARRAY 

258 

276 

RADSW 

QANDQT 

REAL 

ARRAY 

286 

295 

RADSWG 

QANDQT 

REAL 

ARRAY 

257 

275 

RC 

RCNTRL 

REAL 

ARRAY 
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188 

RCO 

RCNTRL 

REAL 

SIMPLE 
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216 

217 

218 
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224 

225 

226 
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228 

229 

230 

23  t 

232 

233 

234 

235 

236 

237 

23B 

239 

240 

RGA5 

RCNTRL 

REAL 

SIMPLE 

17  1 

R L AT 

RDPARM 

REAL 

ARRAY 

223 

RLATD 

RDPARM 

REAL 

ARRAY 

230 

RQCP 

RCNTRL 

REAL 

SIMPLE 

172 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

23  t 

ROCPP  t 

RDPARM 

REAL 

SIMPLE 

232 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

173 

SD 

QMSAVE 

REAL 

ARRAY 

31  1 

SD2 

REAL 

SIMPLE 

375/S 

377/S 

377 

378 

400/S 

402/S 

402 

403 

sday 

RCNTRL 

REAL 

SIMPLE 

1 7 4 

SEASON 

RCNTRL 

REAL 

SIMPLE 

175 

SGWP  . 

RDPARM 

REAL 

ARRAY 

233 

398 

448 

SH 

QANDQT 

REAL 

ARRAY 

282 

29  1 

SHM 

QMSAVE 

REAL 

ARRAY 

307 

SHP 

QPOLES 

REAL 

ARRAY 

301 

SHS 

OANDQT 

REAL 

ARRAY 

248 
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o o 
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SIG 

RDPARM 

REAL 

ARRAY 

240 

51  GE 

RCNTRL 

REAL 

ARRAY 

176 

433 

450 

SIND 

RCNTRL 

REAL 

SIMPLE 

177 

5INL 

RDPARM 

REAL 

ARRAY 

234 

5INLGN 

RDPARM 

REAL 

ARRAY 

235 

448 

S iV 

SMTH 

OANDQT 

REAL 

ARRAY 

243 

26  1 

o 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

100 
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